Mercurial > pub > Impl

changeset 86:52eeec77504b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
TAP fixes
author wizard
date Mon, 19 Apr 2010 02:38:18 +0400
parents 190c794a41ae
children 6d3bca490556
files Lib/IMPL/Test/TAPListener.pm _test/temp.pl
diffstat 2 files changed, 2 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/Lib/IMPL/Test/TAPListener.pm	Fri Apr 16 16:33:11 2010 +0400
+++ b/Lib/IMPL/Test/TAPListener.pm	Mon Apr 19 02:38:18 2010 +0400
@@ -58,7 +58,7 @@
             $result->State == IMPL::Test::Result::SUCCESS ?
             "ok $n " . join("\n# ", split(/\n/, $result->Name) )
                 :
-            "not ok $n " . (eval { $result->Exception->isa('IMPL::Test::SkipException') } ? '#SKIP: ' : '') . join("\n# ", split(/\n/, $result->Name.": ".$result->Exception || '') )
+           (eval { $result->Exception->isa('IMPL::Test::SkipException') } ? "ok $n #SKIP: " : "not ok $n ") . join("\n# ", split(/\n/, $result->Name.": ".$result->Exception || '') )
         ),"\n";
         
 }
--- a/_test/temp.pl	Fri Apr 16 16:33:11 2010 +0400
+++ b/_test/temp.pl	Mon Apr 19 02:38:18 2010 +0400
@@ -1,7 +1,3 @@
 #!/usr/bin/perl
 
-my @data = (1,2,3);
-
-$data[4] = 4;
-
-print @data;
\ No newline at end of file
+warn join "\n", keys %{__PACKAGE__.'::'};
\ No newline at end of file