develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34610 - branches/pdd22io_part3/t/pmc

From:
allison
Date:
December 29, 2008 19:49
Subject:
[svn:parrot] r34610 - branches/pdd22io_part3/t/pmc
Message ID:
20081230034921.2A663CB9FA@x12.develooper.com
Author: allison
Date: Mon Dec 29 19:49:20 2008
New Revision: 34610

Modified:
   branches/pdd22io_part3/t/pmc/filehandle.t

Log:
[pdd22io] Caught an untested failure case in FileHandle's tests when porting to
StringHandle, succeded when no lines were read.


Modified: branches/pdd22io_part3/t/pmc/filehandle.t
==============================================================================
--- branches/pdd22io_part3/t/pmc/filehandle.t	(original)
+++ branches/pdd22io_part3/t/pmc/filehandle.t	Mon Dec 29 19:49:20 2008
@@ -281,6 +281,9 @@
 #      goto read_loop
 
   end_read_loop:
+    if counter > 1 goto read_something
+      print "not "
+  read_something:
     say 'ok 1 - read 10,000 lines'
     filehandle.'close'()
 .end



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About