debian/perl-framework/Apache-Test/t/response/TestMore/testmorepm.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

package TestMore::testmorepm;

use strict;
use warnings FATAL => qw(all);

use Test::More;
use Apache::Test qw(-withtestmore);

sub handler {

  plan shift, tests => 2;

  is (1, 1, 'called Test::More::is()');

  like ('wow', qr/wow/, 'called Test::More::like()');

  0;

}

1;