1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
use Test2::V0 -no_srand => 1;
use Shell::Guess;
use Shell::Config::Generate;
is eval { Shell::Config::Generate->new->shebang('/bin/foo')->generate(Shell::Guess->bourne_shell) }, "#!/bin/foo\n", "shebang = #!/bin/foo";
diag $@ if $@;
is eval { Shell::Config::Generate->new->shebang('/bin/foo')->generate(Shell::Guess->cmd_shell) }, '', "shebang = ''";
diag $@ if $@;
is eval { Shell::Config::Generate->new->shebang->generate(Shell::Guess->bourne_shell) }, "#!/bin/sh\n", "shebang = #!/bin/sh";
diag $@ if $@;
is eval { Shell::Config::Generate->new->shebang->generate(Shell::Guess->c_shell) }, "#!/bin/csh\n", "shebang = #!/bin/csh";
diag $@ if $@;
done_testing;
|
