Blame t/hints_provider_does.t
|
Packit |
6427f8 |
#!/usr/bin/perl -w
|
|
Packit |
6427f8 |
use strict;
|
|
Packit |
6427f8 |
use warnings;
|
|
Packit |
6427f8 |
use autodie;
|
|
Packit |
6427f8 |
|
|
Packit |
6427f8 |
use Test::More 'no_plan';
|
|
Packit |
6427f8 |
|
|
Packit |
6427f8 |
use FindBin qw($Bin);
|
|
Packit |
6427f8 |
use lib "$Bin/lib";
|
|
Packit |
6427f8 |
|
|
Packit |
6427f8 |
use Hints_provider_does qw(always_pass always_fail);
|
|
Packit |
6427f8 |
use autodie qw(always_pass always_fail);
|
|
Packit |
6427f8 |
|
|
Packit |
6427f8 |
eval { my $x = always_pass() };
|
|
Packit |
6427f8 |
is("$@", "", "always_pass in scalar context");
|
|
Packit |
6427f8 |
|
|
Packit |
6427f8 |
eval { my @x = always_pass() };
|
|
Packit |
6427f8 |
is("$@", "", "always_pass in list context");
|
|
Packit |
6427f8 |
|
|
Packit |
6427f8 |
eval { my $x = always_fail() };
|
|
Packit |
6427f8 |
isnt("$@", "", "always_fail in scalar context");
|
|
Packit |
6427f8 |
|
|
Packit |
6427f8 |
eval { my @x = always_fail() };
|
|
Packit |
6427f8 |
isnt("$@", "", "always_fail in list context");
|