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

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

From:
allison
Date:
December 29, 2008 22:15
Subject:
[svn:parrot] r34616 - branches/pdd22io_part3/t/pmc
Message ID:
20081230061501.7286DCB9FA@x12.develooper.com
Author: allison
Date: Mon Dec 29 22:15:00 2008
New Revision: 34616

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

Log:
[pdd22io] Modify 'readall' tests to read from the same StringHandle they printed to.


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 22:15:00 2008
@@ -487,8 +487,8 @@
     pio.'open'("temp_file", "w")
     pio.'print'(\$S0)
     pio.'close'()
-    pio2 = new 'StringHandle'
-    \$S1 = pio2.'readall'('temp_file')
+    pio.'open'("temp_file")
+    \$S1 = pio.'readall'('temp_file')
     if \$S0 == \$S1 goto ok
     print "not "
 ok:
@@ -511,9 +511,8 @@
     pio.'print'(\$S0)
     pio.'close'()
 
-    pio2 = new 'StringHandle'
-    pio2.'open'("temp_file", "r")
-    \$S1 = pio2.'readall'()
+    pio.'open'("temp_file", "r")
+    \$S1 = pio.'readall'()
     if \$S0 == \$S1 goto ok
     print "not "
 ok:



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