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

[svn:parrot] r33436 - branches/testparrottest/t/perl

From:
jkeenan
Date:
December 1, 2008 17:05
Subject:
[svn:parrot] r33436 - branches/testparrottest/t/perl
Message ID:
20081202010517.4101DCB9AF@x12.develooper.com
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



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