Commits

Anonymous committed 7202ba6

Enhaned the t/*.t files.

  • Participants
  • Parent commits 7d428ef

Comments (0)

Files changed (6)

     {
         'Module::Build' => 0.36,
     },
+    build_requires =>
+    {
+        'Test::More' => 0,
+        'strict' => 0,
+        'warnings' => 0,
+    },
     meta_merge =>
     {
         resources =>
+    - Convert the t/*.t files to use $^X, -Mblib, Test::More::is() and
+    "use warnings;" instead of "-w".
+
 0.1.6    Sun Oct  8 19:44:25 IST 2006
     - converted the build system to Build.PL with a traditional Makefile.PL.
     - added a BSD license meta-data.
 ---
 abstract: 'Apply traces to individual lines.'
 author: []
+build_requires:
+  Test::More: 0
+  strict: 0
+  warnings: 0
 configure_requires:
   Module::Build: 0.36
 generated_by: 'Module::Build version 0.3617'
     file: lib/Devel/LineTrace.pm
     version: v0.1.7
 resources:
-  license: http://www.opensource.org/licenses/mit-license.php
+  license: http://opensource.org/licenses/mit-license.php
   repository: http://svn.berlios.de/svnroot/repos/web-cpan/Devel-LineTrace/
 version: v0.1.7

module/t/00onetrace.t

-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use Test::More tests => 1;
 
 $ENV{'PERL5DB_LT'} = "t/input/onetrace.txt";
 
-my $output = `perl -d:LineTrace t/scripts/script1.pl`;
+my $output = `$^X -Mblib -d:LineTrace t/scripts/script1.pl`;
 
-ok($output eq "\$i=5\n");
+# TEST
+is ($output, "\$i=5\n", 'One trace');
 
 =head1 COPYRIGHT & LICENSE
 

module/t/01twotraces.t

-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use Test::More tests => 1;
 
 $ENV{'PERL5DB_LT'} = "t/input/twotraces.txt";
 
-my $output = `perl -d:LineTrace t/scripts/script1.pl`;
+my $output = `$^X -Mblib -d:LineTrace t/scripts/script1.pl`;
 
-ok($output eq "\$i=5\n\$j=150\n");
+# TEST
+is ($output, "\$i=5\n\$j=150\n", 'Two traces');
 
 =head1 COPYRIGHT & LICENSE
 

module/t/02cancelled.t

-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
 use Test::More tests => 1;
 
 $ENV{'PERL5DB_LT'} = "t/input/cancelled_trace.txt";
 
-my $output = `perl -d:LineTrace t/scripts/script1.pl`;
+my $output = `$^X -Mblib -d:LineTrace t/scripts/script1.pl`;
 
-ok($output eq "\$i=5\n\$j=150\n");
+# TEST
+is ($output, "\$i=5\n\$j=150\n", 'Cancelled',);
 
 =head1 COPYRIGHT & LICENSE