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