chiark / gitweb /
Testing: Provide incrementing url
authorIan Jackson <ian.jackson@eu.citrix.com>
Tue, 27 Oct 2015 19:12:14 +0000 (19:12 +0000)
committerIan Jackson <Ian.Jackson@eu.citrix.com>
Tue, 27 Oct 2015 19:12:14 +0000 (19:12 +0000)
Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
tests/cgi

index 21fba25..764480d 100755 (executable)
--- a/tests/cgi
+++ b/tests/cgi
@@ -54,6 +54,10 @@ END
 my $newurl = $authreq->url_with_query_params($authreq->chain_params());
 my $newurl_esc = escapeHTML($newurl);
 
+my $incrurl = $authreq->url_with_query_params
+    ({ counter => [ ($q->param('counter')//0) + 1 ]});
+my $incrurl_esc = escapeHTML($incrurl);
+
 print <<END;
 <h1>info<h1>
 <pre>
@@ -72,7 +76,8 @@ foreach my $l (split /\n/, $txt) {
 
 print <<END;
 </pre>
-<a href="$newurl_esc">$newurl_esc</a>
+self=<a href="$newurl_esc">$newurl_esc</a>
+increment=<a href="$incrurl_esc">$incrurl_esc</a>
 <form method="POST" action="$url">
 $hiddenhtml
 <input type="submit" name="test_cgi_sponges" value="Make sponges">