projects
/
mafia.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
07cf0f1
)
Use absolute paths in tests
author
Marius Gavrilescu
<marius@ieval.ro>
Sat, 8 Apr 2017 17:17:54 +0000
(20:17 +0300)
committer
Marius Gavrilescu
<marius@ieval.ro>
Sat, 8 Apr 2017 17:17:54 +0000
(20:17 +0300)
t/examples.t
patch
|
blob
|
blame
|
history
diff --git
a/t/examples.t
b/t/examples.t
index 977cd6ef290bf17dc87111e2caac94f330186958..56423e76896351ee1b937a3734f82439682f6bfb 100644
(file)
--- a/
t/examples.t
+++ b/
t/examples.t
@@
-3,6
+3,7
@@
use 5.010001;
use strict;
use warnings;
use strict;
use warnings;
+use File::Spec::Functions qw/rel2abs/;
use IO::Handle;
my @examples;
use IO::Handle;
my @examples;
@@
-16,7
+17,7
@@
for my $example (@examples) {
open STDOUT, '>', \$out;
clean;
open STDOUT, '>', \$out;
clean;
- do $example;
+ do
rel2abs
$example;
$example =~ s/\.pl$//;
my $ok = join '', IO::File->new("$example.out", '<')->getlines;
is $out, $ok, substr $example, length 't/examples/'
$example =~ s/\.pl$//;
my $ok = join '', IO::File->new("$example.out", '<')->getlines;
is $out, $ok, substr $example, length 't/examples/'
This page took
0.010088 seconds
and
4
git commands to generate.