test/e2e/harness/TestDriverTest.pm

############################################################################           
#  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.                                                      
                                                                                       
package TestDriverTest;

use TestDriver;
use IPC::Run; # don't do qw(run), it screws up TestDriver which also has a run method

our @ISA = "TestDriver";

use strict;

sub new
{
	# Call our parent
	my ($proto) = @_;
	my $class = ref($proto) || $proto;
	my $self = $class->SUPER::new;

	bless($self, $class);

	return $self;
}

sub runTest
{
	my ($self, $testCmd, $log, $copyResults) = @_;

	my %result;

	$result{'rc'} = $testCmd->{'rc'};
	return \%result;
}

sub generateBenchmark
{
	my ($self, $testCmd, $log) = @_;

	my %result;
	$result{'rc'} = $testCmd->{'benchmark_rc'};
	return \%result;
}

sub compare
{
	my ($self, $testResult, $benchmarkResult, $log) = @_;

	return $testResult->{'rc'} == $benchmarkResult->{'rc'};
}
1;