Author: jkeenan
Date: Mon Dec 1 17:05:16 2008
New Revision: 33436
Modified:
branches/testparrottest/t/perl/Parrot_Test.t
Log:
Rework some comments; no code changes.
Modified: branches/testparrottest/t/perl/Parrot_Test.t
==============================================================================
--- branches/testparrottest/t/perl/Parrot_Test.t (original)
+++ branches/testparrottest/t/perl/Parrot_Test.t Mon Dec 1 17:05:16 2008
@@ -80,8 +80,6 @@
write_code_to_file
/;
-# RT#46891 test run_command()
-
# per_test
is( Parrot::Test::per_test(), undef, 'per_test() no args' );
is( Parrot::Test::per_test( undef, 0 ), undef, 'per_test() invalid first
arg' );
@@ -135,9 +133,10 @@
test_test($desc);
-# The exact error output for pasm_output_isnt() depends on the version of
Test::Builder.
-# So, in order to avoid version dependent failures, be content with checking
the
-# standard output.
+# The exact error output for pasm_output_isnt() depends on the version of
+# Test::Builder. So, in order to avoid version dependent failures, be content
+# with checking the standard output.
+
$desc = 'pasm_output_isnt: failure';
test_out("not ok 1 - $desc");
test_fail(+10);
@@ -481,6 +480,15 @@
is($exit_message, 0, "Got 0 as exit message");
}
+#$desc = '';
+#pasm_output_is( <<'CODE', <<'OUTPUT', $desc );
+# print "foo\n"
+# end
+#CODE
+#foo
+#OUTPUT
+##test_test($desc);
+
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
