Skip to content

Commit 406aae3

Browse files
committed
MakeMaker::Test::Setup::XS more test labels, more strict+warnings
1 parent 806fed2 commit 406aae3

File tree

1 file changed

+7
-7
lines changed
  • t/lib/MakeMaker/Test/Setup

1 file changed

+7
-7
lines changed

t/lib/MakeMaker/Test/Setup/XS.pm

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -53,7 +53,6 @@ is_even(input)
5353
END
5454

5555
my $T_TEST = <<'END';
56-
#!/usr/bin/perl -w
5756
use strict;
5857
use warnings;
5958
use Test::More tests => 3;
@@ -116,7 +115,6 @@ is_odd(input)
116115
END
117116

118117
my $T_OTHER = <<'END';
119-
#!/usr/bin/perl -w
120118
use strict;
121119
use warnings;
122120
use Test::More tests => 3;
@@ -270,7 +268,8 @@ SNIP
270268
}
271269
EOF
272270
't/plus1.t' => <<'END',
273-
#!/usr/bin/perl -w
271+
use strict;
272+
use warnings;
274273
use Test::More tests => 2;
275274
use_ok "XS::Test";
276275
is XS::Test::plus1(3), 4;
@@ -366,7 +365,8 @@ EOF
366365
'lib/XS/plus1.c' => $PLUS1_C,
367366

368367
't/is_odd.t' => <<'END',
369-
#!/usr/bin/perl -w
368+
use strict;
369+
use warnings;
370370
use Test::More tests => 4;
371371
use_ok "XS::Other";
372372
ok is_odd(1);
@@ -439,7 +439,7 @@ sub run_tests {
439439

440440
my @mpl_out = run(qq{$perl Makefile.PL});
441441
SKIP: {
442-
unless (cmp_ok( $?, '==', 0, 'Makefile.PL exited with zero' )) {
442+
unless (cmp_ok( $?, '==', 0, "Makefile.PL exited with zero ($label)" )) {
443443
diag(@mpl_out);
444444
skip 'perl Makefile.PL failed', 2;
445445
}
@@ -457,7 +457,7 @@ sub run_tests {
457457
}
458458
my $make_cmd = make_macro($make, $target, %macros);
459459
my $make_out = run($make_cmd);
460-
unless (is( $?, 0, "$make_cmd exited normally" )) {
460+
unless (is( $?, 0, "$make_cmd exited normally ($label)" )) {
461461
diag $make_out;
462462
skip 'Make failed - skipping test', 1;
463463
}
@@ -478,7 +478,7 @@ sub run_tests {
478478
}
479479
my $test_cmd = make_macro($make, $target, %macros);
480480
my $test_out = run($test_cmd);
481-
is( $?, 0, "$test_cmd exited normally" ) || diag "$make_out\n$test_out";
481+
is( $?, 0, "$test_cmd exited normally ($label)" ) || diag "$make_out\n$test_out";
482482
}
483483

484484
chdir File::Spec->updir or die;

0 commit comments

Comments
 (0)