You are viewing a plain text version of this content. The canonical link for it is here.

Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2003/03/13 04:02:46 UTC

cvs commit: modperl-2.0/t/response/TestModperl perl.pm

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__