develooper Front page | perl.perl5.porters | Postings from September 2012

[perl #114176] TODO task, refactor t/porting/checkcase.t to use test.pl instead of making TAP by hand

From:
James E Keenan via RT
Date:
September 5, 2012 18:55
Subject:
[perl #114176] TODO task, refactor t/porting/checkcase.t to use test.pl instead of making TAP by hand
Message ID:
rt-3.6.HEAD-11172-1346896552-319.114176-15-0@perl.org
On Tue Jul 17 22:23:12 2012, colink@perldreamer.com wrote:
> This transaction appears to have no content


This appears to have been applied to blead on the same day it was proposed:

#####
$ git show f986e774e7a2624029d321014c665b9491e32dcf
commit f986e774e7a2624029d321014c665b9491e32dcf
Author: Colin Kuskie <colink@perldreamer.com>
Date:   Tue Jul 17 22:21:21 2012 -0700

    Refactor t/porting/checkcase.t to use test.pl instead of making TAP
by hand.

diff --git a/t/porting/checkcase.t b/t/porting/checkcase.t
index 49f59e8..3c05e22 100644
--- a/t/porting/checkcase.t
+++ b/t/porting/checkcase.t
@@ -3,6 +3,7 @@
Author: Colin Kuskie <colink@perldreamer.com>
Date:   Tue Jul 17 22:21:21 2012 -0700

    Refactor t/porting/checkcase.t to use test.pl instead of making TAP
by hand.

diff --git a/t/porting/checkcase.t b/t/porting/checkcase.t
index 49f59e8..3c05e22 100644
--- a/t/porting/checkcase.t
+++ b/t/porting/checkcase.t
@@ -3,6 +3,7 @@
 
 BEGIN {
     @INC = '..' if -f '../TestInit.pm';
+    require './test.pl';
 }
 use TestInit qw(T); # T is chdir to the top level
 
@@ -36,12 +37,8 @@ find({no_chdir => 1, wanted => sub {
         }}, '.');
 
 foreach (sort values %files) {
-    if (@$_ > 1) {
-               print "not ok ".++$test_count. " - ". join(", ", @$_), "\n";
#####

Resolving.  Thank you very much.
Jim Keenan


---
via perlbug:  queue: perl5 status: new
https://rt.perl.org:443/rt3/Ticket/Display.html?id=114176



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