[Libsysio-commit] strided-io: libsysio/tests test_rw.pl

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

Update of /cvsroot/libsysio/libsysio/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29001/tests

Modified Files:
      Tag: strided-io
	test_rw.pl 
Log Message:
Fixing comments.  Adding check to verify open worked


Index: test_rw.pl
===================================================================
RCS file: /cvsroot/libsysio/libsysio/tests/Attic/test_rw.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -w -b -B -p -r1.1.2.1 -r1.1.2.2
--- test_rw.pl	30 Jan 2004 19:55:33 -0000	1.1.2.1
+++ test_rw.pl	2 Feb 2004 16:22:52 -0000	1.1.2.2
@@ -191,8 +191,7 @@ sub do_rwcalls
 		verify_result($cmdfh, $outfh, "ipwrite", $IOID_FAIL, "==");
 		do_iowait($cmdfh, $outfh, '$id3', "ipwrite", $bufsize);
 
-		# Set up the buffers again since iwritev kindly blew them away
-		# for us...
+		# Set up the buffers again 
 		$iovcnt++;
 		$iovname = set_iovecs($cmdfh, $outfh, $iovcnt);
 
@@ -213,7 +212,7 @@ sub do_rwcalls
 		my $xtvcnt = 0;
 		my $xtvname = set_xtvecs($cmdfh, $outfh, $xtvcnt, 512 * 1024);
 
-		# Have to re-setup the iovecs (again..)
+		# Have to re-setup the iovecs
 		$iovcnt++;
 		$iovname = set_iovecs($cmdfh, $outfh, $iovcnt);
 		
@@ -295,8 +294,7 @@ sub do_rwcalls
 		do_iowait($cmdfh, $outfh, '$id8', "ipread", $bufsize);
 		check_buf($cmdfh, $outfh, $bufsize, "ipread");
 
-		# Set up the buffers again since iwritev kindly blew them away
-		# for us...
+
 		$iovcnt++;
 		$iovname = set_iovecs($cmdfh, $outfh, $iovcnt);
 
@@ -319,7 +317,6 @@ sub do_rwcalls
 		$xtvcnt++;
 		$xtvname = set_xtvecs($cmdfh, $outfh, $xtvcnt, 512 * 1024);
 
-		# Have to re-setup the iovecs (again..)
 		$iovcnt++;
 		$iovname = set_iovecs($cmdfh, $outfh, $iovcnt);
 		
@@ -383,6 +380,7 @@ sub process_cmd
   # Open file
   my $cmdstr = '$fd = CALL open '."$file O_RDWR|O_CREAT 0777\n";
   helper::send_cmd($cmdfh, $outfh, "open", $cmdstr);
+	helper::verify_cmd($cmdfh, $outfh, $cmdstr);
 
    
   # Allocate buffer