diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-07 15:01:31 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-07 15:01:31 +0000 |
commit | c9cf025fadfe043f0f2f679e10d1207d8a158bb6 (patch) | |
tree | 3a94effe0bdc0a6814d8134f4ed840d7cc6b6f19 /debian/perl-framework/t/php/var3.t | |
parent | Adding upstream version 2.4.57. (diff) | |
download | apache2-debian/2.4.57-2.tar.xz apache2-debian/2.4.57-2.zip |
Adding debian version 2.4.57-2.debian/2.4.57-2
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'debian/perl-framework/t/php/var3.t')
-rw-r--r-- | debian/perl-framework/t/php/var3.t | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/debian/perl-framework/t/php/var3.t b/debian/perl-framework/t/php/var3.t new file mode 100644 index 0000000..efa19fe --- /dev/null +++ b/debian/perl-framework/t/php/var3.t @@ -0,0 +1,35 @@ +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 2, need_php; + +## var3.php source: +## <?php echo "$v1 $v2 $v3"?> +## +## result should be variables v1, v2 and v3. + +my $page = '/php/var3.php'; +my $v1 = "blah1+blah2+FOO"; +my $v2 = "this+is+v2"; +my $v3 = "DOOM-GL00m"; +my $data = "v1=$v1\&v2=$v2\&v3=$v3"; +my $expected = "$v1 $v2 $v3"; +$expected =~ s/\+/ /g; + +## POST +my $return = POST_BODY $page, content => $data; +ok t_cmp($return, + $expected, + "POST request for $page, content=\"$data\"" + ); + +## GET +$return = GET_BODY "$page?$data"; +ok t_cmp($return, + $expected, + "GET request for $page?$data" + ); |