add parametric tests - TwoPhaseCommit

Author: Aishwarya Jagarapu

Tutorial/2_TwoPhaseCommit/PTst/TestDriver.p

@@ -99,3 +99,29 @@ machine MultipleClientsWithFailure {
     }
   }
 }
+
+
+/*
+This machine creates the participants, coordinator, Failure injector, and clients based on the params passed
+*/
+
+param pNumClients: int;
+param pNumParticipants: int;
+param pNumTransPerClient: int;
+param pNumFailures: int;
+
+machine TestWithConfig {
+  start state Init {
+    entry {
+      var config: t2PCConfig;
+      config = (
+        numClients = pNumClients,
+        numParticipants = pNumParticipants,
+        numTransPerClient = pNumTransPerClient,
+        failParticipants = pNumFailures
+      );
+      SetUpTwoPhaseCommitSystem(config);
+    }
+  }
+}
+

Tutorial/2_TwoPhaseCommit/PTst/TestScripts.p

@@ -9,4 +9,12 @@ test tcMultipleClientsNoFailure [main = MultipleClientsNoFailure]:
 
 // asserts the liveness monitor along with the default properties
 test tcMultipleClientsWithFailure [main = MultipleClientsWithFailure]:
-  assert Progress in (union TwoPhaseCommit, TwoPCClient, FailureInjector, { MultipleClientsWithFailure });
+  assert Progress in (union TwoPhaseCommit, TwoPCClient, FailureInjector, { MultipleClientsWithFailure });
+
+test param (
+    pNumClients in [2,3],
+    pNumParticipants in [4,6],
+    pNumTransPerClient in [1,2],
+    pNumFailures in [0,1]
+  )  tcParameterizedTwoPhaseCommit [main=TestWithConfig]:
+  assert Progress in (union TwoPhaseCommit, TwoPCClient, FailureInjector, { TestWithConfig });