my $fp = App::FatPacker->new;
my $temp_fh = File::Temp->new;
select $temp_fh;
-$fp->script_command_file;
+$fp->script_command_file([qw/--core-only/]);
print "1;\n";
select STDOUT;
close $temp_fh;
# make sure we don't pick up things from our created dir
chdir File::Spec->tmpdir;
+my $guts = do { local (@ARGV,$/) = "$temp_fh"; <> };
+like( $guts, qr/\QBEGIN { use Config\E/, "saw core-only preamble" );
+
# Packed, now try using it:
require $temp_fh;
my @files = sort $INC[0]->files;
- is_deeply( \@files, [ 't/mod/a.pm',
- 't/mod/b.pm',
- 't/mod/c.pm',
- 't/mod/cond.pm',
- ], "\$INC[0]->files returned the files" );
+ is_deeply( \@files, [
+ 't/mod/a.pm',
+ 't/mod/b.pm',
+ 't/mod/c.pm',
+ 't/mod/cond.pm',
+ ], "\$INC[0]->files returned the files" );
}