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