Commit | Line | Data |
56a51caa |
1 | #!perl |
2 | use strict; |
3 | use warnings FATAL => 'all'; |
4 | use Test::More tests => 3; |
5 | use File::Temp qw/tempdir/; |
6 | use File::Spec; |
7 | |
8 | BEGIN { use_ok "App::FatPacker", "" } |
9 | |
10 | chdir 't/line'; |
11 | |
12 | my $fp = App::FatPacker->new; |
13 | my $temp_fh = File::Temp->new; |
14 | select $temp_fh; |
15 | $fp->script_command_file([ 'line-test.pl' ]); |
16 | select STDOUT; |
17 | close $temp_fh; |
18 | |
19 | # make sure we don't pick up things from our created dir |
20 | chdir File::Spec->tmpdir; |
21 | |
22 | # Packed, now try using it. This should run the tests inside t/line/a.pm |
23 | do $temp_fh; |