Author: bernhard
Date: Wed Mar 22 14:25:01 2006
New Revision: 11992
Modified:
trunk/lib/Parrot/Test.pm
trunk/t/native_pbc/integer.t
trunk/t/perl/Parrot_Test.t
trunk/t/pmc/exception.t
trunk/t/pmc/objects.t
trunk/t/pmc/sub.t
Log:
#38472: $test_suite ~~ s:g/ (\b) output_ [ like | isnt | is ] /pasm_/;
Parrot::Test::output_(is|like|isnt) are gone now, use
Parrot::Test::pasm_output_(is|like|isnt) instead.
Modified: trunk/lib/Parrot/Test.pm
==============================================================================
--- trunk/lib/Parrot/Test.pm (original)
+++ trunk/lib/Parrot/Test.pm Wed Mar 22 14:25:01 2006
@@ -207,7 +207,6 @@
@EXPORT = qw( c_output_is c_output_like c_output_isnt
example_output_is example_output_like example_output_like
language_output_is language_output_like language_output_isnt
- output_is output_like output_isnt
pasm_output_is pasm_output_like pasm_output_isnt
pbc_output_is pbc_output_like pbc_output_isnt
past_output_is past_output_like past_output_isnt
@@ -348,9 +347,6 @@
my $parrot = File::Spec->join(File::Spec->curdir(), 'parrot' .
$PConfig{exe});
my %parrot_test_map = (
- output_is => 'is_eq',
- output_isnt => 'isnt_eq',
- output_like => 'like',
pbc_output_is => 'is_eq',
pbc_output_isnt => 'isnt_eq',
pbc_output_like => 'like',
Modified: trunk/t/native_pbc/integer.t
==============================================================================
--- trunk/t/native_pbc/integer.t (original)
+++ trunk/t/native_pbc/integer.t Wed Mar 22 14:25:01 2006
@@ -60,6 +60,6 @@
pbc_output_is(undef, '270544960', "i386 32 bit opcode_t, 32 bit intval");
# Formerly following tests had been set up:
-# output_is(undef, '270544960', "PPC BE 32 bit opcode_t, 32 bit intval");
-# output_is(undef, '270544960', "little-endian 64-bit tru64");
-# output_is(undef, '270544960', "big-endian 64-bit irix");
+# pasm_output_is(undef, '270544960', "PPC BE 32 bit opcode_t, 32 bit intval");
+# pasm_output_is(undef, '270544960', "little-endian 64-bit tru64");
+# pasm_output_is(undef, '270544960', "big-endian 64-bit irix");
Modified: trunk/t/perl/Parrot_Test.t
==============================================================================
--- trunk/t/perl/Parrot_Test.t (original)
+++ trunk/t/perl/Parrot_Test.t Wed Mar 22 14:25:01 2006
@@ -38,7 +38,6 @@
can_ok('Parrot::Test', $_) for qw/
language_output_is language_output_like language_output_isnt
example_output_is
- output_is output_like output_isnt
pasm_output_is pasm_output_like pasm_output_isnt
past_output_is past_output_like past_output_isnt
pir_output_is pir_output_like pir_output_isnt
Modified: trunk/t/pmc/exception.t
==============================================================================
--- trunk/t/pmc/exception.t (original)
+++ trunk/t/pmc/exception.t Wed Mar 22 14:25:01 2006
@@ -76,7 +76,7 @@
just pining
OUTPUT
-output_is(<<'CODE', <<'OUTPUT', "get_results - be sure registers are ok");
+pasm_output_is(<<'CODE', <<'OUTPUT', "get_results - be sure registers are ok");
# see also #38459
print "main\n"
new P0, .Integer
Modified: trunk/t/pmc/objects.t
==============================================================================
--- trunk/t/pmc/objects.t (original)
+++ trunk/t/pmc/objects.t Wed Mar 22 14:25:01 2006
@@ -991,7 +991,7 @@
OUTPUT
# Not sure if this is right or not
-# output_is(<<'CODE', <<'OUTPUT', "typeof classes");
+# pasm_output_is(<<'CODE', <<'OUTPUT', "typeof classes");
# newclass P0, "A"
# newclass P1, "B"
#
Modified: trunk/t/pmc/sub.t
==============================================================================
--- trunk/t/pmc/sub.t (original)
+++ trunk/t/pmc/sub.t Wed Mar 22 14:25:01 2006
@@ -900,7 +900,7 @@
TODO:
{
local $TODO = "output from :postcomp is lost";
- output_is( $code, $output, $descr);
+ pasm_output_is( $code, $output, $descr);
};
} else {
pir_output_is( $code, $output, $descr);
