29 lines
733 B
Perl
Executable File
29 lines
733 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
##############################################################################
|
|
#
|
|
# Wrapper for OpenFlow regression tests
|
|
# $Id: of_regress_test.pl 105 2008-06-06 04:07:05Z brandonh $
|
|
#
|
|
##############################################################################
|
|
|
|
use OF::Base;
|
|
use Test::RegressTest;
|
|
use strict;
|
|
use OF::OFUtil;
|
|
|
|
# check vars are set.
|
|
check_OF_vars_set();
|
|
|
|
sub INT_Handler {
|
|
my $signame = shift;
|
|
print "\nNo interrupt handler implemented yet...\n";
|
|
print "\nExited with SIG$signame\n";
|
|
exit(1);
|
|
}
|
|
|
|
push (@ARGV, "--root=$ENV{'OFT_ROOT'}", "--map=$ENV{'OFT_ROOT'}/bin/nf2.map", "--port_base=1", "--common-st-args=nf2");
|
|
push @ARGV, "--no_slicing";
|
|
|
|
run_regress_test( \&INT_Handler, @ARGV );
|