1 files changed, 36 insertions, 0 deletions
diff --git a/debian/perl-framework/t/php/var1.t b/debian/perl-framework/t/php/var1.t
new file mode 100644
index 0000000..22a9f3d
--- /dev/null
+++ b/debian/perl-framework/t/php/var1.t
@@ -0,0 +1,36 @@
+use strict;
+use warnings FATAL => 'all';
+
+use Apache::Test;
+use Apache::TestRequest;
+use Apache::TestUtil;
+
+plan tests => 2, need_php;
+
+## var1.php source:
+## <?php echo $variable?>
+##
+## result should be variable echoed back.
+
+my $page = '/php/var1.php';
+my $data = "blah1+blah2+FOO";
+#my @data = (variable => $data);
+my $expected = $data;
+$expected =~ s/\+/ /g;
+
+## POST
+#my $return = POST_BODY $page, \@data;
+#print STDERR "\n\n$return\n\n";
+#ok $return eq $expected;
+my $return = POST_BODY $page, content => "variable=$data";
+ok t_cmp($return,
+         $expected,
+         "POST request for $page, content=\"variable=$data\""
+        );
+
+## GET
+$return = GET_BODY "$page?variable=$data";
+ok t_cmp($return,
+         $expected,
+         "GET request for $page?variable=$data"
+        );