stas 2003/03/12 19:02:46
Added: t/response/TestModperl perl.pm
Log:
- start a test for perl functions with workarounds in mod_perl
- test crypt
Revision Changes Path
1.1 modperl-2.0/t/response/TestModperl/perl.pm
Index: perl.pm
===================================================================
package TestModperl::perl;
# this test includes tests for buggy Perl functions for which mod_perl
# provides a workaround
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestUtil;
use Apache::Const -compile => 'OK';
sub handler {
my $r = shift;
plan $r, tests => 1;
ok t_cmp("SNXJvM5I.PJrE",
crypt("testing", "SNXJvM5I.PJrE"),
"crypt");
Apache::OK;
}
1;
__END__
