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

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

From:
allison
Date:
December 29, 2008 22:57
Subject:
[svn:parrot] r34619 - branches/pdd22io_part3/t/pmc
Message ID:
20081230065700.DE3C0CB9FA@x12.develooper.com
Author: allison
Date: Mon Dec 29 22:57:00 2008
New Revision: 34619

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

Log:
[pdd22io] Add tests for 'read', 'print', and 'close' opcodes on StringHandle.


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:57:00 2008
@@ -7,9 +7,7 @@
 use lib qw( . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test tests => 17;
-use Parrot::Test::Util 'create_tempfile';
-use Parrot::Test::Util 'create_tempfile';
+use Parrot::Test tests => 18;
 
 =head1 NAME
 
@@ -135,6 +133,34 @@
 ok 2 - $S0 = $P1.read($I2) # again on same stream
 OUT
 
+pir_output_is(
+    <<'CODE', <<'OUT', 'read opcode' );
+.sub 'test' :main
+    $P0 = new 'StringHandle'
+    $P0.'open'('README', 'w')
+
+    print $P0, "This is Parrot, version"
+    close $P0
+
+    $P0.'open'('README')
+
+    $S0 = read $P0, 14 # bytes
+    if $S0 == 'This is Parrot' goto ok_1
+    print 'not '
+  ok_1:
+    say 'ok 1 - $S0 = read $P1, $I2'
+
+    $S0 = read $P0, 9  # bytes
+    if $S0 == ', version' goto ok_2
+    print 'not '
+  ok_2:
+    say 'ok 2 - $S0 = read $P1, $I2 # again on same stream'
+.end
+CODE
+ok 1 - $S0 = read $P1, $I2
+ok 2 - $S0 = read $P1, $I2 # again on same stream
+OUT
+
 # L<PDD22/I\/O PMC API/=item print>
 pir_output_is( <<"CODE", <<'OUT', 'print - synchronous' );
 .sub 'test' :main



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