tests: don't desugar dispatch for existing tests

Author: d-xo

test/Cases.hs

@@ -56,6 +56,15 @@ spec =
  where
   specFolder = "./test/examples/spec"
 
+dispatches :: TestTree
+dispatches =
+  testGroup
+    "Files for dispatch cases"
+    [ runDispatchTest "basic.solc"
+    ]
+ where
+  runDispatchTest file = runTestForFileWith (emptyOption mempty) file "./test/examples/dispatch"
+
 imports :: TestTree
 imports =
   testGroup
@@ -175,7 +184,6 @@ cases =
     , runTestExpectingFailure "pragma_merge_fail_coverage.solc" caseFolder
     , runTestForFile "single-lambda.solc" caseFolder
     , runTestForFile "match-yul.solc" caseFolder
-    , runTestForFile "dispatch.solc" stdFolder
     ]
  where
   caseFolder = "./test/examples/cases"
@@ -186,7 +194,9 @@ type FileName = String
 type BaseFolder = String
 
 runTestForFile :: FileName -> BaseFolder -> TestTree
-runTestForFile file folder = runTestForFileWith (emptyOption mempty) file folder
+runTestForFile file folder = runTestForFileWith option file folder
+  where
+    option = stdOpt { optNoGenDispatch = True }
 
 runTestForFileWith :: Option -> FileName -> BaseFolder -> TestTree
 runTestForFileWith opts file folder =
@@ -198,8 +208,9 @@ runTestForFileWith opts file folder =
       Right _ -> return ()
 
 runTestExpectingFailure :: FileName -> BaseFolder -> TestTree
-runTestExpectingFailure file folder
-  = runTestExpectingFailureWith (emptyOption mempty) file folder
+runTestExpectingFailure file folder = runTestExpectingFailureWith option file folder
+  where
+    option = stdOpt { optNoGenDispatch = True }
 
 runTestExpectingFailureWith :: Option -> FileName -> BaseFolder -> TestTree
 runTestExpectingFailureWith opts file folder =

test/Main.hs

@@ -15,5 +15,6 @@ tests
                , spec
                , std
                , imports
+               , dispatches
 --             , reduceTests
                ]