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

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

From:
allison
Date:
December 29, 2008 21:46
Subject:
[svn:parrot] r34615 - branches/pdd22io_part3/t/pmc
Message ID:
20081230054643.CE677CB9FA@x12.develooper.com
Author: allison
Date: Mon Dec 29 21:46:43 2008
New Revision: 34615

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

Log:
[pdd22io] Fix UTF-8 test to use the same StringHandle object it wrote 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 21:46:43 2008
@@ -430,31 +430,28 @@
     \$P0.'print'(\$S0)
     \$P0.'close'()
 
-    \$P1 = new 'StringHandle'
-    \$P1.'encoding'('utf8')
+    \$P0.'open'('temp_file')
 
-    \$P1.'open'('temp_file')
-
-    \$S1 = \$P1.'readline'()
+    \$S1 = \$P0.'readline'()
     if \$S1 == "1234567890\\n" goto ok_1
 print \$S1
     print 'not '
   ok_1:
-    say 'ok 1 - \$S1 = \$P1.readline() # read with utf8 encoding on'
+    say 'ok 1 - \$S1 = \$P0.readline() # read with utf8 encoding on'
 
-    \$S2 = \$P1.'readline'()
+    \$S2 = \$P0.'readline'()
     if \$S2 == \$S0 goto ok_2
 print \$S2
     print 'not '
   ok_2:
-    say 'ok 2 - \$S2 = \$P1.readline() # read iso-8859-1 string'
+    say 'ok 2 - \$S2 = \$P0.readline() # read iso-8859-1 string'
 
-    \$P1.'close'()
+    \$P0.'close'()
 
 .end
 CODE
-ok 1 - $S1 = $P1.readline() # read with utf8 encoding on
-ok 2 - $S2 = $P1.readline() # read iso-8859-1 string
+ok 1 - $S1 = $P0.readline() # read with utf8 encoding on
+ok 2 - $S2 = $P0.readline() # read iso-8859-1 string
 OUT
 
 



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