Update of /cvsroot/compbench/CompBenchmarks++/CBM-PI/t
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv17729
Modified Files:
07-compbenchmarks-core.pl
Log Message:
Many more tests.
Index: 07-compbenchmarks-core.pl
===================================================================
RCS file: /cvsroot/compbench/CompBenchmarks++/CBM-PI/t/07-compbenchmarks-core.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** 07-compbenchmarks-core.pl 6 Feb 2007 17:53:21 -0000 1.2
--- 07-compbenchmarks-core.pl 6 Feb 2007 19:29:59 -0000 1.3
***************
*** 11,34 ****
use CBM::LibUI;
! use Test::Simple tests => 76;
sub test_options {
my @valid_options = ( ['-v', 0, '\d\.\d.\d'],
! ['-h', 0, '.*'],
! ['-qap', 0, '.*'],
! ['-qip', 0, '.*'],
['-qi -pgzip', 255, ''],
['-qa', 255, ''],
['-qa -pgzip', 255, ''],
! ['-q -pgzip', 0, '.*'],
['-qi', 255, ''],
! ['-qab', 0, '.*'],
['-qab -bgzip-1c', 255, ''],
! ['-qib', 0, '.*'],
['-qib -bgzip-1c', 255, ''],
! ['-q -bgzip-1c', 0, '.*'],
! ['-qb -pgzip', 0, '.*'],
['-I', 255, ''],
['-U', 255, ''],
['-M -I', 255, ''],
['-M -U', 255, ''],
--- 11,39 ----
use CBM::LibUI;
! use Test::Simple tests => 105;
sub test_options {
my @valid_options = ( ['-v', 0, '\d\.\d.\d'],
! ['-h', 0, '.+'],
! ['-qap', 0, '.+'],
! ['-qip', 0, '.+'],
['-qi -pgzip', 255, ''],
['-qa', 255, ''],
['-qa -pgzip', 255, ''],
! ['-q -pgzip', 0, '.+'],
['-qi', 255, ''],
! ['-qH', 0, '.+'],
! ['-qc', 255, ''],
! ['-q -cgcc', 0, '.+'],
! ['-qx', 0, '.+'],
! ['-qab', 0, '.+'],
['-qab -bgzip-1c', 255, ''],
! ['-qib', 0, '.+'],
['-qib -bgzip-1c', 255, ''],
! ['-q -bgzip-1c', 0, '.+'],
! ['-qb -pgzip', 0, '.+'],
['-I', 255, ''],
['-U', 255, ''],
+ ['-B', 255, ''],
['-M -I', 255, ''],
['-M -U', 255, ''],
***************
*** 38,47 ****
my %incompatible_options =
( '-q' => ['-v', '-m', '-M', '-B', '', '-U', '-I' ],
! '-I' => ['-v', '', '-b'],
! '-qbp' => ['-a', '', '-i'],
! '-v' => ['-a', '-i', '-b', '-p', '-m' ],
! '-m' => ['-a', '-i', '-b', '-p', '-U', '-I' ],
! '-M' => ['-a', '-i', '-b', '-p' ],
! '-B' => ['-a', '-i', '-b', '-p', '-U', '-I' ],
);
my $item;
--- 43,52 ----
my %incompatible_options =
( '-q' => ['-v', '-m', '-M', '-B', '', '-U', '-I' ],
! '-I' => ['-v', '', '-b', '-x', '-c', '-H'],
! '-qbp' => ['-a', '', '-i', '-x', '-c', '-H'],
! '-v' => ['-a', '-i', '-b', '-p', '-m', '-x', '-H' ],
! '-m' => ['-a', '-i', '-b', '-p', '-U', '-I', '-x', '-c', '-H' ],
! '-M' => ['-a', '-i', '-b', '-p', '-I', '-U', '-x', '-c', '-H' ],
! '-B' => ['-a', '-i', '-b', '-p', '-U', '-I', '-x', '-c', '-H' ],
);
my $item;
|
