Author: allison
Date: Thu Jun 14 14:14:41 2007
New Revision: 19008
Modified:
trunk/t/pdd15oo/parrotobject.t
trunk/t/pdd15oo/sub.t
Log:
Porting over test changes for PDD 15 test fork.
Modified: trunk/t/pdd15oo/parrotobject.t
==============================================================================
--- trunk/t/pdd15oo/parrotobject.t (original)
+++ trunk/t/pdd15oo/parrotobject.t Thu Jun 14 14:14:41 2007
@@ -23,7 +23,7 @@
=cut
-pir_output_like( <<'CODE', <<'OUT', 'new' );
+pir_error_output_like( <<'CODE', <<'OUT', 'new' );
.sub 'test' :main
new P0, .ParrotObject
print "ok 1\n"
@@ -77,7 +77,7 @@
# '
-pir_output_like( <<'CODE', <<'OUT', ':vtable with bad name' );
+pir_error_output_like( <<'CODE', <<'OUT', ':vtable with bad name' );
.namespace [ "Test" ]
.sub monkey :method :vtable("not_in_the_vtable")
@@ -234,7 +234,7 @@
3
OUT
-pir_output_like( <<'CODE', <<'OUT', 'RT#41732' );
+pir_error_output_like( <<'CODE', <<'OUT', 'RT#41732' );
.namespace ['Foo']
.sub invoke :vtable
Modified: trunk/t/pdd15oo/sub.t
==============================================================================
--- trunk/t/pdd15oo/sub.t (original)
+++ trunk/t/pdd15oo/sub.t Thu Jun 14 14:14:41 2007
@@ -662,7 +662,7 @@
second
OUTPUT
-pir_output_like( <<'CODE', <<'OUTPUT', "implicit :main with wrong # args." );
+pir_error_output_like( <<'CODE', <<'OUTPUT', "implicit :main with wrong #
args." );
.sub a
.param int op1
.param int op2
@@ -671,7 +671,7 @@
/argument count mismatch in main \(more than 1 param\)/
OUTPUT
-pir_output_like( <<'CODE', <<'OUTPUT', "explicit :main with wrong # args." );
+pir_error_output_like( <<'CODE', <<'OUTPUT', "explicit :main with wrong #
args." );
.sub a :main
.param int op1
.param int op2
@@ -1301,7 +1301,7 @@
"VAR1" => PMC 'PGE::Match' => "aabbb" @ 3
OUTPUT
-pir_output_like( <<'CODE', qr/Null PMC access in invoke()/, 'invoking null
pmc' );
+pir_error_output_like( <<'CODE', qr/Null PMC access in invoke()/, 'invoking
null pmc' );
.sub main :main
null $P0
$P0()
