Deprecate shellwords.pl with a warning

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

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

use constant NO_SUCH_FILE => 'this_file_had_so_better_not_be_here';

use Test::More tests => 19;

{

    use autodie qw(open);

    eval { open(my $fh, '<', NO_SUCH_FILE); };
    like($@,qr{Can't open},"autodie qw(open) in lexical scope");

    no autodie qw(open);

    eval { open(my $fh, '<', NO_SUCH_FILE); };
    is($@,"","no autodie qw(open) in lexical scope");

    use autodie qw(open);
    eval { open(my $fh, '<', NO_SUCH_FILE); };
    like($@,qr{Can't open},"autodie qw(open) in lexical scope 2");

    no autodie; # Should turn off all autodying subs
    eval { open(my $fh, '<', NO_SUCH_FILE); };
    is($@,"","no autodie in lexical scope 2");

    # Turn our pragma on one last time, so we can verify that
    # falling out of this block reverts it back to previous
    # behaviour.
    use autodie qw(open);
    eval { open(my $fh, '<', NO_SUCH_FILE); };
    like($@,qr{Can't open},"autodie qw(open) in lexical scope 3");

}

eval { open(my $fh, '<', NO_SUCH_FILE); };
is($@,"","autodie open outside of lexical scope");

eval {
    use autodie;	# Should turn on everything
    open(my $fh, '<', NO_SUCH_FILE);
};

like($@, qr{Can't open}, "vanilla use autodie turns on everything.");

eval { open(my $fh, '<', NO_SUCH_FILE); };
is($@,"","vanilla autodie cleans up");

{
    use autodie qw(:io);

    eval { open(my $fh, '<', NO_SUCH_FILE); };
    like($@,qr{Can't open},"autodie q(:io) makes autodying open");

    no autodie qw(:io);

    eval { open(my $fh, '<', NO_SUCH_FILE); };
    is($@,"", "no autodie qw(:io) disabled autodying open");
}

{
    package Testing_autodie;

    use Test::More;

    use constant NO_SUCH_FILE => ::NO_SUCH_FILE();

    use Fatal qw(open);

    eval { open(my $fh, '<', NO_SUCH_FILE); };

    like($@, qr{Can't open}, "Package fatal working");
    is(ref $@,"","Old Fatal throws strings");

    {
        use autodie qw(open);

        ok(1,"use autodie allowed with Fatal");

        eval { open(my $fh, '<', NO_SUCH_FILE); };
        like($@, qr{Can't open}, "autodie and Fatal works");
        isa_ok($@, "autodie::exception"); # autodie throws real exceptions

    }

    eval { open(my $fh, '<', NO_SUCH_FILE); };

    like($@, qr{Can't open}, "Package fatal working after autodie");
    is(ref $@,"","Old Fatal throws strings after autodie");

    eval " no autodie qw(open); ";

    ok($@,"no autodie on Fataled sub an error.");

    eval "
        no autodie qw(close);
        use Fatal 'close';
    ";

    like($@, qr{not allowed}, "Using fatal after autodie is an error.");
}