blob: 2e2d2c5b7f98d48f51e78733e340bfd6a38cbcb2 (
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
|
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestRequest;
plan tests => 1, need_php;
my $expected = <<EXPECT;
User information
----------------
First name: Zeev
Family name: Suraski
Address: Ben Gourion 3, Kiryat Bialik, Israel
Phone: +972-4-8713139
User information
----------------
First name: Andi
Family name: Gutmans
Address: Haifa, Israel
Phone: +972-4-8231621
User information
----------------
First name: Andi
Family name: Gutmans
Address: Haifa, Israel
Phone: +972-4-8231621
User information
----------------
First name: Andi
Family name: Gutmans
Address: New address...
Phone: +972-4-8231621
EXPECT
my $result = GET_BODY "/php/classes.php";
## get rid of whitespace so that does not cause failure in the comparison.
$expected =~ s/\s//g;
$result =~ s/\s//g;
ok $result eq $expected
|
