[Libsysio-commit] libsysio_tests: libsysio/tests test_all.pl

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

Update of /cvsroot/libsysio/libsysio/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv27855/tests

Modified Files:
      Tag: libsysio_tests
	test_all.pl 
Log Message:
Added test_path.pl to test_all.pl

Index: test_all.pl
===================================================================
RCS file: /cvsroot/libsysio/libsysio/tests/Attic/test_all.pl,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -w -b -B -p -r1.1.2.3 -r1.1.2.4
--- test_all.pl	9 Jul 2003 15:22:16 -0000	1.1.2.3
+++ test_all.pl	9 Jul 2003 20:07:13 -0000	1.1.2.4
@@ -45,6 +46,29 @@ if ($res ne "list test successful") {
 } else {
   $success++;
 }
+
+# Test path
+my @resarr = `./test_path.pl $alpha_arg $sysdir $cwd $cwd/tmp_dir`;
+$res = $sysdir.": d\n";
+if ($resarr[0] ne $res) {
+  print "path test returned $resarr[0] instead of $res\n";
+  $failures++;
+} else {
+  $res = $cwd.": d\n";
+  if ($resarr[1] ne $res) {
+    print "path test returned $resarr[1] instead of $res\n";
+    $failures++;
+  } else {
+    $res = $cwd."/tmp_dir: d\n";
+    if ($resarr[2] ne $res) {
+      print "path test returned $resarr[2] instead of $res\n";
+      $failures++;
+    } else {
+      $success++;
+    }
+  }   
+}
+
 
 # Test getcwd
 $res = `./test_getcwd.pl $alpha_arg $sysdir`;