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

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

From:
allison
Date:
December 29, 2008 19:36
Subject:
[svn:parrot] r34608 - branches/pdd22io_part3/t/pmc
Message ID:
20081230033648.9D0F9CB9FA@x12.develooper.com
Author: allison
Date: Mon Dec 29 19:36:47 2008
New Revision: 34608

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

Log:
[pdd22io] Write to and read from the same StringHandle in test.


Modified: branches/pdd22io_part3/t/pmc/stringhandle.t
==============================================================================
--- branches/pdd22io_part3/t/pmc/stringhandle.t	(original)
+++ branches/pdd22io_part3/t/pmc/stringhandle.t	Mon Dec 29 19:36:47 2008
@@ -194,28 +194,27 @@
     \$P0.'print'("foobarbaz\\n42")
     \$P0.'close'()
 
-    \$P1 = new 'StringHandle'
-    \$P1.'open'('temp_file')
+    \$P0.'open'('temp_file')
 
-    \$S0 = \$P1.'readline'()
+    \$S0 = \$P0.'readline'()
     \$S0 = chomp( \$S0 )
     if \$S0 == 'foobarbaz' goto ok_1
     print 'not '
   ok_1:
-    say 'ok 1 - \$S0 = \$P1.readline()'
+    say 'ok 1 - \$S0 = \$P0.readline()'
 
-    \$S0 = \$P1.'readline'()
+    \$S0 = \$P0.'readline'()
     \$S0 = chomp( \$S0 )
     if \$S0 == '42' goto ok_2
     print 'not '
   ok_2:
-    say 'ok 2 - \$S0 = \$P1.readline() # again on same stream'
+    say 'ok 2 - \$S0 = \$P0.readline() # again on same stream'
 
-    \$P1.'close'()
+    \$P0.'close'()
 .end
 CODE
-ok 1 - $S0 = $P1.readline()
-ok 2 - $S0 = $P1.readline() # again on same stream
+ok 1 - $S0 = $P0.readline()
+ok 2 - $S0 = $P0.readline() # again on same stream
 OUT
 
 my $LINES;



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