Merge pull request #644 from sm-shaw/643

Add check to vurun for pre-existing threads
TPC-Council · Nov 28, 2023 · d662d78 · d662d78
2 parents 1cd2412 + b3c274d
commit d662d78
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/generic/gencli.tcl b/src/generic/gencli.tcl
@@ -1271,6 +1271,11 @@ proc deleteschema {} {
 }
 
 proc vurun {} {
+global threadscreated
+if { ![ info exists threadscreated ] && [expr [ llength [ threadnames_without_tcthread ] ] - 1 ] > 0} {
+        putscli "Error: Cannot call vurun with Virtual Users already active"
+	return
+	}
     global _ED opmode jobid
 
     set jobid [guid]