From 18c57ef7d28752c58b6e0d93cea900e346f4c0fb Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Tue, 27 Oct 2015 19:12:14 +0000
Subject: [PATCH] Testing: Provide incrementing url

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
---
 tests/cgi | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/tests/cgi b/tests/cgi
index 21fba25..764480d 100755
--- 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">
-- 
2.30.2