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