1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
package TestModperl::print;
use strict;
use warnings FATAL => 'all';
use Apache2::RequestIO ();
use Apache::Test;
use Apache2::Const -compile => 'OK';
sub handler {
my $r = shift;
plan $r, tests => 6;
binmode STDOUT; #Apache2::RequestRec::BINMODE (noop)
ok 1;
ok 2;
{
# print should return true on success, even
# if it sends no data.
my $rc = print '';
ok ($rc);
ok ($rc == 0); # 0E0 is still numerically 0
}
{
my $rc = print "# 11 bytes\n"; # don't forget the newline
ok ($rc == 11);
}
printf "ok %d\n", 6;
Apache2::Const::OK;
}
END {
my $package = __PACKAGE__;
warn "END in $package, pid=$$\n";
}
1;
|
