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

[svn:parrot] r33391 - branches/pdd22io_part2/t/op

From:
allison
Date:
November 30, 2008 17:24
Subject:
[svn:parrot] r33391 - branches/pdd22io_part2/t/op
Message ID:
20081201012452.6AEE8CB9AF@x12.develooper.com
Author: allison
Date: Sun Nov 30 17:24:51 2008
New Revision: 33391

Modified:
   branches/pdd22io_part2/t/op/interp.t

Log:
[pdd22io] Fix up bad test, remove duplicate test.


Modified: branches/pdd22io_part2/t/op/interp.t
==============================================================================
--- branches/pdd22io_part2/t/op/interp.t	(original)
+++ branches/pdd22io_part2/t/op/interp.t	Sun Nov 30 17:24:51 2008
@@ -7,7 +7,7 @@
 use lib qw( . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test tests => 9;
+use Parrot::Test tests => 8;
 
 =head1 NAME
 
@@ -45,14 +45,13 @@
 OUTPUT
 }
 
-pir_output_is( <<'CODE', <<'OUTPUT', 'runinterp - works without printing' );
+pir_output_is( <<'CODE', <<'OUTPUT', 'runinterp - works with printing' );
 .sub 'test' :main
     .local string actual
     .local pmc test_interp
                test_interp = new 'ParrotInterpreter'
     .local pmc stdout
                stdout = getstdout
-    push stdout, 'string'
 
     print "uno\n"
     runinterp test_interp, pasm
@@ -62,7 +61,6 @@
     $S0 = readline stdout
     actual .= $S0
     if $S0 goto get_stdout
-    $S0 = pop stdout
 
     print actual
     goto pasm_end
@@ -77,40 +75,6 @@
 dos
 OUTPUT
 
-pir_output_is(
-    <<'CODE', <<'OUTPUT', 'runinterp - works with printing', todo => 'something funky here' );
-.sub 'test' :main
-    .local string actual
-    .local pmc test_interp
-               test_interp = new 'ParrotInterpreter'
-    .local pmc stdout
-               stdout = getstdout
-    push stdout, 'string'
-
-    print "uno\n"
-    runinterp test_interp, pasm
-    print "dos\n"
-
-  get_stdout:
-    $S0 = readline stdout
-    actual .= $S0
-    if $S0 goto get_stdout
-    $S0 = pop stdout
-
-    print actual
-    goto pasm_end
-
-  pasm:
-    print "y uno es igual a\n"
-    end
-  pasm_end:
-.end
-CODE
-uno
-y uno es igual a
-dos
-OUTPUT
-
 # Need to disable DOD while trace is on, as there's a non-zero chance that a
 # DOD sweep would occur, causing a bonus "DOD" line in the output, which makes
 # the test fail.



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