view release on metacpan or  search on metacpan

t/share.t  view on Meta::CPAN

#!/usr/local/bin/perl

use Apache::ASP::CGI;
#use lib qw(. ..);
#use ASP;

&Apache::ASP::CGI::do_self(
#	Debug => -1
			   NoState => 1,
);

__END__

<% 
$t->eok($Apache::ASP::ShareDir, '$ShareDir variable not defined');

$t->eok($Server->MapInclude('Share::CORE/MailErrors.inc'), 
	"MapInclude() for Share::CORE/MailErrors.inc should succeed");
$t->eok(! $Server->MapInclude('CORE/MailErrors.inc'), 
	"MapInclude() for CORE/MailErrors.inc should not succeed without Share:: prefix");
$t->eok(! $Server->MapInclude('Share::CORE/NEVER EXIST'), 
	"MapInclude() for Share::CORE/NEVER EXIST should fail");
%>