[Libsysio-commit] HEAD: libsysio/tests helper.pm test_all.pl

[Sonja T. <so...@us...>]

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