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

[svn:parrot] r32583 - branches/pdd22io/t/pmc

From:
allison
Date:
November 12, 2008 18:28
Subject:
[svn:parrot] r32583 - branches/pdd22io/t/pmc
Message ID:
20081113022839.3253CCB9AF@x12.develooper.com
Author: allison
Date: Wed Nov 12 18:28:38 2008
New Revision: 32583

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

Log:
[pdd22io] Update test description and expected output.


Modified: branches/pdd22io/t/pmc/filehandle.t
==============================================================================
--- branches/pdd22io/t/pmc/filehandle.t	(original)
+++ branches/pdd22io/t/pmc/filehandle.t	Wed Nov 12 18:28:38 2008
@@ -178,7 +178,7 @@
     if $S0 == "123" goto ok_5
     print 'not '
   ok_5:
-    say 'ok 5 - read string back from file'
+    say 'ok 5 - read integer back from file'
 
     $S0 = $P1.read(16) # bytes
     if $S0 == "456.789squawk\n42" goto ok_6
@@ -195,7 +195,8 @@
 ok 2 - $P0.print($N1)
 ok 3 - $P0.print($S1)
 ok 4 - $P0.print($P1)
-ok 5 - read string back from file
+ok 5 - read integer back from file
+ok 6 - read string back from file
 OUT
 
 # L<PDD22/I\/O PMC API/=item print.*=item readline>



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