projects
/
mafia.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Reduce Perl dependency to 5.10.1
[mafia.git]
/
t
/
examples.t
diff --git
a/t/examples.t
b/t/examples.t
index 63efb10f15f68bacb391a183ffc11f0b1b1e0c69..977cd6ef290bf17dc87111e2caac94f330186958 100644
(file)
--- a/
t/examples.t
+++ b/
t/examples.t
@@
-1,13
+1,14
@@
#!/usr/bin/perl
#!/usr/bin/perl
-use 5.014000;
+use 5.010001;
+use strict;
use warnings;
use IO::Handle;
use warnings;
use IO::Handle;
-use Mafia;
my @examples;
my @examples;
-BEGIN { @examples = map { s/\.pl//r } glob 't/examples/*.pl' };
-use Test::More tests => scalar @examples;
+BEGIN { @examples = glob 't/examples/*.pl' };
+use Test::More tests => 1 + @examples;
+BEGIN { use_ok('Mafia') }
for my $example (@examples) {
my $out;
for my $example (@examples) {
my $out;
@@
-15,7
+16,8
@@
for my $example (@examples) {
open STDOUT, '>', \$out;
clean;
open STDOUT, '>', \$out;
clean;
+ do $example;
+ $example =~ s/\.pl$//;
my $ok = join '', IO::File->new("$example.out", '<')->getlines;
my $ok = join '', IO::File->new("$example.out", '<')->getlines;
- do "$example.pl";
is $out, $ok, substr $example, length 't/examples/'
}
is $out, $ok, substr $example, length 't/examples/'
}
This page took
0.010088 seconds
and
4
git commands to generate.