From 0b1de8c6bbe426a199c840032beba9b698449ccc Mon Sep 17 00:00:00 2001
From: Jacob Barrett <jbarrett@pivotal.io>
Date: Sat, 6 Feb 2021 10:53:18 -0800
Subject: [PATCH] Remove unused.

---
 cppcache/integration-test/comparePerf.pl | 102 -----------------------
 1 file changed, 102 deletions(-)
 delete mode 100755 cppcache/integration-test/comparePerf.pl

diff --git a/cppcache/integration-test/comparePerf.pl b/cppcache/integration-test/comparePerf.pl
deleted file mode 100755
index 405c88b407..0000000000
--- a/cppcache/integration-test/comparePerf.pl
+++ /dev/null
@@ -1,102 +0,0 @@
-#!/bin/perl
-# Licensed to the Apache Software Foundation (ASF) under one
-# or more contributor license agreements.  See the NOTICE file
-# distributed with this work for additional information
-# regarding copyright ownership.  The ASF licenses this file
-# to you under the Apache License, Version 2.0 (the
-# "License"); you may not use this file except in compliance
-# with the License.  You may obtain a copy of the License at
-#
-#     http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
-# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-# See the License for the specific language governing permissions and
-# limitations under the License.
-
-# Compare PerfSuite lines in one file against those in another...
-
-$argOne = shift( @ARGV );
-$argTwo = shift( @ARGV );
-
-$argOne =~ s/\\/\//g;
-$argTwo =~ s/\\/\//g;
-
-# Read baseline
-
-if ( ! -f "$argOne" ) {
-  print "Error: No baseline file to for host, checkin appropriate testPutGetPerf.out as file $argOne\n";
-  exit( 1 );
-}
-
-open( FILONE, "grep PerfSuite $argOne|" ) || die( "Error: No baseline file to for host, checkin appropriate testPutGetPerf.out as file $argOne" );
-
-while( $line = <FILONE> ) {
-  $line =~ m/PerfSuite\] (\w+) -- (\d+) ops/;
-  $key = $1;
-  $value = $2;
-  $dataone{"${key}"} = $value;
-}
-
-close( FILONE );
-
-@tmp = keys( %dataone );
-if ( $#tmp == -1 ) {
-  print "Error: No data found in $argOne\n";
-  exit( 1 );
-}
-
-# Read new results
-
-if ( ! -f "$argTwo" ) {
-  print "Error: No result file from test to compare, expected $argTwo\n";
-  exit( 1 );
-}
-
-open( FILTWO, "grep PerfSuite $argTwo|" ) || die( "No file $argTwo" );
-
-while( $line = <FILTWO> ) {
-  $line =~ m/PerfSuite\] (\w+) -- (\d+) ops/;
-  $key = $1;
-  $value = $2;
-  $datatwo{"${key}"} = $value;
-}
-
-close( FILTWO );
-
-$code = 0;
-
-@tmp = keys( %datatwo );
-if ( $#tmp == -1 ) {
-  print "Error: No data found in $argTwo\n";
-  exit( 1 );
-}
-
-# display comparisons
-
-format top =
-%CHANGE  TESTCASE                     BASELINE CURRENT
-======== ============================ ======== ================
-.
-format STDOUT =
-( @##% ) @<<<<<<<<<<<<<<<<<<<<<<<<<<< @####### @####### ops/sec
-$percent, $item,                       $baseValue, $newValue
-.
-
-foreach $item (sort( keys( %dataone ) )) {
-  $change = $datatwo{"${item}"} - $dataone{"${item}"};
-  $percent = int( 100 * ( $change / $dataone{"${item}"} ));
-  $baseValue = $dataone{"${item}"};
-  $newValue = $datatwo{"${item}"};
-  write;
-  if ( $percent < ( -5 ) ) {
-    $code++;
-  }
-}
-
-if ( $code > 0 ) {
-  print "Error: $code performance cases failed by more than 5%\n";
-}
-
-exit( $code );