blob: e53519f45d21ac5892ce51069415b7a626b5fa70 (
plain)
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
49
50
51
52
53
54
55
|
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestUtil;
use Apache::TestRequest;
my $result = GET_BODY "/php/strings3.php";
my @res = split /\n/, $result;
my $count = @res;
plan tests => $count + 1, need_php;
my $expected = <<EXPECT;
printf test 1:simple string
printf test 2:42
printf test 3:3.333333
printf test 4:3.3333333333
printf test 5:2.50
printf test 6:2.50000000
printf test 7:0000002.50
printf test 8:< foo>
printf test 9:<bar >
printf test 10: 123456789012345
printf test 10:<h�yesterettsjustitiarius>
printf test 11: 123456789012345678901234567890
printf test 11:< h�yesterettsjustitiarius>
printf test 12:-12.34
printf test 13: -12
printf test 14:@
printf test 15:10101010
printf test 16:aa
printf test 17:AA
printf test 18: 10101010
printf test 19: aa
printf test 20: AA
printf test 21:0000000010101010
printf test 22:00000000000000aa
printf test 23:00000000000000AA
printf test 24:abcde
printf test 25:gazonk
printf test 26:2 1
printf test 27:3 1 2
printf test 28:02 1
printf test 29:2 1
EXPECT
my @exp = split /\n/, $expected;
my $count2 = @exp;
ok $count eq $count2;
foreach (my $i = 0 ; $i < $count ; $i++) {
ok t_cmp("[".$res[$i]."]", "[".$exp[$i]."]", "test $i");
}
|
