view release on metacpan or  search on metacpan

t/00_load_script.t  view on Meta::CPAN

6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
open(NULL, ">", File::Spec->devnull);
 
BEGIN { 
        *CORE::GLOBAL::exit = sub { 
                CORE::exit if $_[0] && $_[0] eq 'yes';
                die "exit ok\n";
        };
}
 
eval {
        local @ARGV = ('-v');
        select NULL;
        require 'scripts/lc.pl';
};
 
like($@,qr/\Aexit ok\n/s,'scripts/lc.pl compiled ok');