[p5sagit/p5-mst-13.2.git] / lib / autodie / t / hints_provider_easy_does_it.t

#!/usr/bin/perl -w
use strict;
use warnings;
use autodie;

use Test::More 'no_plan';

use FindBin qw($Bin);
use lib "$Bin/lib";

use Hints_provider_easy_does_it qw(always_pass always_fail);
use autodie qw(always_pass always_fail);

eval { my $x = always_pass() };
is("$@", "", "always_pass in scalar context");

eval { my @x = always_pass() };
is("$@", "", "always_pass in list context");

eval { my $x = always_fail() };
isnt("$@", "", "always_fail in scalar context");

eval { my @x = always_fail() };
isnt("$@", "", "always_fail in list context");
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_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");