Commit | Line | Data |
9b657a62 |
1 | #!/usr/bin/perl -w |
2 | use strict; |
3 | use warnings; |
4 | use autodie; |
5 | |
6 | use Test::More 'no_plan'; |
7 | |
8 | use FindBin qw($Bin); |
9 | use lib "$Bin/lib"; |
10 | |
11 | use Hints_provider_isa qw(always_pass always_fail); |
12 | use autodie qw(always_pass always_fail); |
13 | |
14 | eval { my $x = always_pass() }; |
15 | is("$@", "", "always_pass in scalar context"); |
16 | |
17 | eval { my @x = always_pass() }; |
18 | is("$@", "", "always_pass in list context"); |
19 | |
20 | eval { my $x = always_fail() }; |
21 | isnt("$@", "", "always_fail in scalar context"); |
22 | |
23 | eval { my @x = always_fail() }; |
24 | isnt("$@", "", "always_fail in list context"); |