[Libsysio-commit] HEAD: libsysio/tests helper.pm test_all.pl
Brought to you by:
lward
|
From: Sonja T. <so...@us...> - 2004-03-11 15:07:34
|
Update of /cvsroot/libsysio/libsysio/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7290/tests Modified Files: helper.pm test_all.pl Log Message: Fixing buf in enumerate_extents. Added a somewhat less trivial test for strided I/O to test suite. Index: helper.pm =================================================================== RCS file: /cvsroot/libsysio/libsysio/tests/helper.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -u -w -b -B -p -r1.3 -r1.4 --- helper.pm 10 Oct 2003 18:50:31 -0000 1.3 +++ helper.pm 11 Mar 2004 14:40:53 -0000 1.4 @@ -27,9 +27,6 @@ sub print_and_exit my $res = <$outfh>; chop($res); - if ($res ne "0000 ") { - print STDOUT "ERROR! Failed to free buf (code $res)\n"; - } print $cmdfh "exit\n"; close $outfh; Index: test_all.pl =================================================================== RCS file: /cvsroot/libsysio/libsysio/tests/test_all.pl,v retrieving revision 1.9 retrieving revision 1.10 diff -u -w -b -B -p -r1.9 -r1.10 --- test_all.pl 14 Feb 2004 19:43:00 -0000 1.9 +++ test_all.pl 11 Mar 2004 14:40:53 -0000 1.10 @@ -191,6 +191,17 @@ if ($res ne "rw test successful") { print "rw test finished successfully\n"; } +# Test strided I/O +$res = `perl $testdir/test_strided.pl $alpha_arg $cwd/tmp_dir/tmp2.foo`; +chop($res); +if ($res ne "strided IO test successful") { + print "strided IO test failed with message: $res\n"; + $failures++; +} else { + $success++; + print "strided IO test finished successfully\n"; +} + print "$failures tests failed and $success tests succeeded\n"; # cleanup |