Commits

Anonymous committed 62aab36

Changed the output to have spaces surrounding the dots leader (" ..... ").

Comments (0)

Files changed (4)

modules/Test-Run/Changes

     * Added has_IntOrUnknown in lib/Test/Run/Obj/IntOrUnknown/Moose.pm
     to abstract it.
-    * Added more test coverage:
-        - t/unit-format-self.t
+    * Added more test coverage.
+    * Changed the output to be more Test-Harness-3.x-like with spaces
+    surrounding the "...." leader (after the filename and before the OK).
 
 0.0120    Thu Aug  6 14:21:56 IDT 2009
     * Removed some trailing characters after the "=cut" of several

modules/Test-Run/lib/Test/Run/Output.pm

 
     chomp($te);
 
-    $te =~ s{\.\w+$}{.};
+    $te =~ s{\.\w+$}{};
 
     if ($^O eq "VMS")
     {
     my ($self, $args) = @_;
 
     my $te = $self->_mk_leader__calc_te($args->{te});
-    return ("$te" . '.' x ($args->{width} - length($te)));
+    return ("$te" . ' ' . ('.' x ($args->{width} - length($te) - 2 )) . ' ');
 }
 
 sub _mk_leader__calc_ml

modules/Test-Run/t/output.t

     
     # TEST
     $got->field_like("stdout", 
-        qr{t/sample-tests/skip\.+ok\n {8}1/5 skipped: rain delay\n},
+        qr{t/sample-tests/skip \.+ ok\n {8}1/5 skipped: rain delay\n},
         "skip - Matching the skipped line."
     );
 }
     
     # TEST
     $got->field_like("stdout",
-        qr{t/sample-tests/todo\.+ok\n {8}1/5 unexpectedly succeeded\n},
+        qr{t/sample-tests/todo \.+ ok\n {8}1/5 unexpectedly succeeded\n},
         "Todo only - Matching the bonus line."
     );
 
     
     # TEST
     $got->field_like("stdout", 
-        qr{t/sample-tests/skip_and_todo\.+ok\n {8}1/6 skipped: rain delay, 1/6 unexpectedly succeeded\n},
+        qr{t/sample-tests/skip_and_todo \.+ ok\n {8}1/6 skipped: rain delay, 1/6 unexpectedly succeeded\n},
         "skip_and_todo - Matching the bonus+skip line."
     );
 
     # TEST
     $got->field_like(
         "stdout",
-        qr{t/sample-tests/skipall\.+skipped\n {8}all skipped: rope\n},
+        qr{t/sample-tests/skipall \.+ skipped\n {8}all skipped: rope\n},
         "skipall - Matching the all skipped with the reason."
         );
     # TEST
     
     # TEST
     $got->field_like("stdout",
-        qr{t/sample-tests/simple_fail\.+FAILED tests 2, 5\n\tFailed 2/5 tests, 60.00% okay},
+        qr{t/sample-tests/simple_fail \.+ FAILED tests 2, 5\n\tFailed 2/5 tests, 60.00% okay},
         "simple_fail - Matching the FAILED test report"
         );
     # TEST

modules/Test-Run/t/test-failure-report.t

     );
 
     my $right_text = <<"EOF";
-t/sample-tests/simple_fail...FAILED tests 2, 5
+t/sample-tests/simple_fail . FAILED tests 2, 5
 	Failed 2/5 tests, 60.00% okay
 Failed Test                Stat Wstat Total Fail  Failed  List of Failed
 -------------------------------------------------------------------------------
     );
 
     my $right_text = <<"EOF";
-t/sample-tests/simple_fail...FAILED tests 2, 5
+t/sample-tests/simple_fail . FAILED tests 2, 5
 	Failed 2/5 tests, 60.00% okay
 Failed Test                Stat Wstat Total Fail  Failed  List of Failed
 ---------------------------------------------------------------------------------------------------
     );
 
     my $right_text = <<"EOF";
-t/sample-tests/test_more_fail....dubious
+t/sample-tests/test_more_fail .. dubious
 	Test returned status 1 (wstat 256, 0x100)
 DIED. FAILED test 1
 	Failed 1/1 tests, 0.00% okay