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