Commit | Line | Data |
---|---|---|
9b657a62 PF |
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_easy_does_it 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"); |