libsysio-commit

[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

[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-serv30958

Modified Files:
      Tag: strided-io
	test_rw.pl 
Log Message:
Removed useless comments


Index: test_rw.pl
===================================================================
RCS file: /cvsroot/libsysio/libsysio/tests/Attic/test_rw.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_rw.pl	2 Feb 2004 17:41:28 -0000	1.1.2.3
+++ test_rw.pl	2 Feb 2004 17:42:30 -0000	1.1.2.4
@@ -191,9 +191,7 @@ sub do_rwcalls
 		verify_result($cmdfh, $outfh, "ipwrite", $IOID_FAIL, "==");
 		do_iowait($cmdfh, $outfh, '$id3', "ipwrite", $bufsize);
 
-		# Set up the buffers again 
 		$iovcnt++;
-		#$iovname = set_iovecs($cmdfh, $outfh, $iovcnt);
 
 		# pwritev using 8 8K buffers at offset 384
 		$offset = 384 * 1024;
@@ -212,9 +210,7 @@ sub do_rwcalls
 		my $xtvcnt = 0;
 		my $xtvname = set_xtvecs($cmdfh, $outfh, $xtvcnt, 512 * 1024);
 
-		# Have to re-setup the iovecs
 		$iovcnt++;
-		#$iovname = set_iovecs($cmdfh, $outfh, $iovcnt);
 		
 		# Call writex using 8 8k buffers at offset 512
 		$cmdstr = 'CALL writex $fd $'."$iovname $NUMVECS ".'$'."$xtvname 2\n";
@@ -227,9 +223,7 @@ sub do_rwcalls
 		$xtvcnt++;
 		$xtvname = set_xtvecs($cmdfh, $outfh, $xtvcnt, 576 * 1024);
 
-		# And we also need to set up the iovs again
 		$iovcnt++;
-		#$iovname = set_iovecs($cmdfh, $outfh, $iovcnt);
 
 		$cmdstr = '$id5 = CALL iwritex $fd $'."$iovname $NUMVECS ".'$'."$xtvname 2\n";
 		helper::send_cmd($cmdfh, $outfh, "iwritex", $cmdstr);
@@ -262,9 +256,7 @@ sub do_rwcalls
 		do_iowait($cmdfh, $outfh, '$id6', "iread", $bufsize);
 		check_buf($cmdfh, $outfh, $bufsize, "iread");
 
-		# Set up the iovecs
 		$iovcnt++;
-		#$iovname = set_iovecs($cmdfh, $outfh, $iovcnt);
 		
 		# readv 64K bytes using 8 iovecs at pos 128K
 		$cmdstr = 'CALL readv $fd $'."$iovname $NUMVECS\n";
@@ -296,7 +288,6 @@ sub do_rwcalls
 
 
 		$iovcnt++;
-		#$iovname = set_iovecs($cmdfh, $outfh, $iovcnt);
 
 		# preadv using 8 8K buffers at offset 384
 		$offset = 384 * 1024;
@@ -318,7 +309,6 @@ sub do_rwcalls
 		$xtvname = set_xtvecs($cmdfh, $outfh, $xtvcnt, 512 * 1024);
 
 		$iovcnt++;
-		#$iovname = set_iovecs($cmdfh, $outfh, $iovcnt);
 		
 		# Call readx using 8 8k buffers at offset 512
 		$cmdstr = 'CALL readx $fd $'."$iovname $NUMVECS ".'$'."$xtvname 2\n";
@@ -332,9 +322,7 @@ sub do_rwcalls
 		$xtvcnt++;
 		$xtvname = set_xtvecs($cmdfh, $outfh, $xtvcnt, 576 * 1024);
 
-		# And we also need to set up the iovs again
 		$iovcnt++;
-		#$iovname = set_iovecs($cmdfh, $outfh, $iovcnt);
 
 		$cmdstr = '$id10 = CALL ireadx $fd $'."$iovname $NUMVECS ".'$'."$xtvname 2\n";
 		helper::send_cmd($cmdfh, $outfh, "ireadx", $cmdstr);