1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
use strict;
use warnings;
use Test::More tests => 15;
use Shell::Guess;
my $shell = eval { Shell::Guess->power_shell };
diag $@ if $@;
isa_ok $shell, 'Shell::Guess';
is eval { $shell->is_cmd }, 0, "cmd = 0";
diag $@ if $@;
is eval { $shell->is_command }, 0, "command = 0";
diag $@ if $@;
is eval { $shell->is_dcl }, 0, "dcl = 0";
diag $@ if $@;
is eval { $shell->is_bash }, 0, "bash = 0";
diag $@ if $@;
is eval { $shell->is_fish }, 0, "fish = 0";
diag $@ if $@;
is eval { $shell->is_korn }, 0, "korn = 0";
diag $@ if $@;
is eval { $shell->is_c }, 0, "c = 0";
diag $@ if $@;
is eval { $shell->is_win32 }, 1, "win32 = 1";
diag $@ if $@;
is eval { $shell->is_unix }, 0, "unix = 0";
diag $@ if $@;
is eval { $shell->is_vms }, 0, "vms = 0";
diag $@ if $@;
is eval { $shell->is_bourne }, 0, "bourne = 0";
diag $@ if $@;
is eval { $shell->is_tc }, 0, "tc = 0";
diag $@ if $@;
is eval { $shell->is_power }, 1, "power = 1";
diag $@ if $@;
is eval { $shell->is_z }, 0, "z = 0";
diag $@ if $@;
|
