Skip to content

Commit 0e81c24

Browse files
author
Chris White
committed
Fix tests to run on cperl
See perl11/cperl#364 - `plan` requires an express `scalar` argument or scalar variable on cperl.
1 parent 5d953ef commit 0e81c24

File tree

5 files changed

+5
-6
lines changed

5 files changed

+5
-6
lines changed

t/02-basic.t

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,6 @@
33
use rlib 'lib';
44
use PerlPPTest;
55

6-
use IPC::Run3;
76
(my $whereami = __FILE__) =~ s/02-basic\.t$//;
87
#diag join(' ', 'File is', __FILE__, 'whereami', $whereami);
98

@@ -39,7 +38,7 @@ my @testcases=(
3938

4039
); #@testcases
4140

42-
plan tests => count_tests(\@testcases, 1, 2);
41+
plan tests => scalar count_tests(\@testcases, 1, 2);
4342

4443
for my $lrTest (@testcases) {
4544
my ($testin, $refout, $referr) = @$lrTest;

t/02-readme.t

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -88,7 +88,7 @@ RESULT
8888
[ '<?= "!" . "?>foo<?= 42 ?><?" . "bar" ?>', '!foo42bar' ],
8989
); #@testcases
9090

91-
plan tests => count_tests(\@testcases, 1, 2);
91+
plan tests => scalar count_tests(\@testcases, 1, 2);
9292

9393
for my $lrTest (@testcases) {
9494
my ($testin, $refout, $referr) = @$lrTest;

t/03-cmdline.t

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -101,7 +101,7 @@ $testcases->load('-v','',qr/\bversion\b/)->
101101

102102
; #$testcases
103103

104-
plan tests => count_tests($testcases->arr, 3, 4);
104+
plan tests => scalar count_tests($testcases->arr, 3, 4);
105105

106106
for my $lrTest (@{$testcases->arr}) {
107107
my ($where, $opts, $testin, $out_re, $err_re) = @$lrTest;

t/04-include.t

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -29,7 +29,7 @@ my @testcases=(
2929
"a\nb\nc\n"],
3030
); #@testcases
3131

32-
plan tests => count_tests(\@testcases, 2, 3);
32+
plan tests => scalar count_tests(\@testcases, 2, 3);
3333

3434
for my $lrTest (@testcases) {
3535
my ($lineno, $testin, $refout, $referr) = @$lrTest;

t/06-macro.t

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -22,7 +22,7 @@ my @testcases=(
2222

2323
); #@testcases
2424

25-
plan tests => count_tests(\@testcases, 2, 3);
25+
plan tests => scalar count_tests(\@testcases, 2, 3);
2626

2727
for my $lrTest (@testcases) {
2828
my ($opts, $testin, $out_re, $err_re) = @$lrTest;

0 commit comments

Comments
 (0)