55 lines
1.3 KiB
Perl
55 lines
1.3 KiB
Perl
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");
|
|
}
|