diff --git a/server/tests-dc-api/Command.hs b/server/tests-dc-api/Command.hs
index f8cf1b077e0..5e9462ee8aa 100644
--- a/server/tests-dc-api/Command.hs
+++ b/server/tests-dc-api/Command.hs
@@ -36,7 +36,8 @@ data TestOptions = TestOptions
     _toAgentCapabilities :: AgentCapabilities,
     _toParallelDegree :: Maybe Int,
     _toMatch :: Maybe String,
-    _toSkip :: Maybe String
+    _toSkip :: Maybe String,
+    _toDryRun :: Bool
   }
 
 data AgentCapabilities
@@ -135,6 +136,10 @@ testOptionsParser =
               <> help "Skip tests that match given PATTERN"
           )
       )
+    <*> switch
+      ( long "dry-run"
+          <> help "Skip execution of test bodies"
+      )
 
 testCommandParser :: Parser Command
 testCommandParser = Test <$> testOptionsParser
diff --git a/server/tests-dc-api/Main.hs b/server/tests-dc-api/Main.hs
index c125edc8bac..bfeef927562 100644
--- a/server/tests-dc-api/Main.hs
+++ b/server/tests-dc-api/Main.hs
@@ -69,5 +69,6 @@ applyTestConfig config TestOptions {..} =
   config
     { configConcurrentJobs = _toParallelDegree,
       configFilterPredicate = filterPredicate <$> _toMatch,
-      configSkipPredicate = filterPredicate <$> _toSkip
+      configSkipPredicate = filterPredicate <$> _toSkip,
+      configDryRun = _toDryRun
     }