From a26f6f6087bfedb0f32c9905a99f068b85dc5a8c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Markus=20M=C3=A4kel=C3=A4?= <markus.makela@mariadb.com>
Date: Tue, 19 Sep 2017 10:11:42 +0300
Subject: [PATCH] Make run_session_hang.sh shorter

The test was unnecessarily long.
---
 maxscale-system-test/session_hang/simpletest.pl | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/maxscale-system-test/session_hang/simpletest.pl b/maxscale-system-test/session_hang/simpletest.pl
index 2d43da40f..ad04796c5 100644
--- a/maxscale-system-test/session_hang/simpletest.pl
+++ b/maxscale-system-test/session_hang/simpletest.pl
@@ -15,13 +15,9 @@ my $sth = $dbh->prepare("SELECT id, \@\@server_id from test.t1 where id=(?)");
 
 $sth->bind_param(1, "%");  # placeholders are numbered from 1
 
-for (my $i=0; $i<100000; $i++) {
-    if ($i % 5000 == 0) {
-        print "$i\n";
-    }
+for (my $i=0; $i<1000; $i++) {
     if (defined($sth)) {
         $sth->execute($i) or warn "Did not execute successfully: ".$dbh->errstr;
-        #DBI::dump_results($sth);
     }
 }