Testing: Provide incrementing url

[cgi-auth-flexible.git] / tests / cgi

diff --git a/tests/cgi b/tests/cgi
index 21fba258eb6360d776268a734d0d380816352d46..764480d3fcecaf90485f06eefc30d49902941bef 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">