← Back to branch summary

~ubuntu-branches/ubuntu/edgy/libapache2-mod-perl2/edgy

« back to all changes in this revision

Viewing changes to t/response/TestAPR/base64.pm

  • Committer: Bazaar Package Importer
  • Author(s): Andres Salomon
  • Date: 2005-08-12 01:40:38 UTC
  • mfrom: (1.1.2 upstream) (2.1.1 sarge)
  • Revision ID: james.westby@ubuntu.com-20050812014038-gjigefs55pqx4qc8
Tags: 2.0.1-3
Grr.  Really include perl.conf file; it got lost due to diff not
wanting to add an empty file.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/response/TestAPR/base64.pm
4
4
use warnings FATAL => 'all';
5
5
 
6
6
use Apache::Test;
7
 
 
8
 
use APR::Base64 ();
9
 
 
10
 
use Apache::Const -compile => 'OK';
 
7
use Apache2::Const -compile => 'OK';
 
8
 
 
9
use TestAPRlib::base64;
11
10
 
12
11
sub handler {
13
12
    my $r = shift;
14
13
 
15
 
    plan $r, tests => 2;
16
 
 
17
 
    my $encoded = APR::Base64::encode("$r");
18
 
 
19
 
    ok $encoded;
20
 
 
21
 
    my $decoded = APR::Base64::decode($encoded);
22
 
 
23
 
    ok $decoded eq "$r";
24
 
 
25
 
    Apache::OK;
 
14
    my $num_of_tests = TestAPRlib::base64::num_of_tests();
 
15
    plan $r, tests => $num_of_tests;
 
16
 
 
17
    TestAPRlib::base64::test();
 
18
 
 
19
    Apache2::Const::OK;
26
20
}
27
21
 
28
22
1;