view release on metacpan or  search on metacpan

t/04lib.t  view on Meta::CPAN

use Test::More;

use IO::File;
use CGI qw(-no_debug);
use File::Spec;

use strict;

my @filenames;
my @filehandles;

push @filenames, File::Spec->catfile(qw(t lib lib-good.pl));
push @filenames, File::Spec->catfile(qw(t lib lib-bad.pl));
push @filenames, File::Spec->catfile(qw(t lib lib-no-good.pl));

t/04lib.t  view on Meta::CPAN

print $fh <<EOF;
use Acme::No;
use CGI $bad_test;
1;
EOF

$fh = $filehandles[2];
print $fh <<EOF;
use Acme::No;
no CGI $good_no_test;
use CGI $good_test qw(-no_debug);
my \$q = CGI->new or die;
die unless UNIVERSAL::isa(\$q, 'CGI');
1;
EOF

$fh = $filehandles[3];
print $fh <<EOF;
use Acme::No;
no CGI $bad_no_test;
1;