diff --git a/tests/NoInconsistentAliases/Visitor.elm b/tests/NoInconsistentAliases/Visitor.elm
index bd94f5fa..a02c58bb 100644
--- a/tests/NoInconsistentAliases/Visitor.elm
+++ b/tests/NoInconsistentAliases/Visitor.elm
@@ -83,9 +83,11 @@ rememberBadAlias { lookupAlias, canMissAliases } (Node moduleNameRange moduleNam
 
 moduleCallVisitor : Node ( ModuleName, String ) -> Context.Module -> ( List (Error {}), Context.Module )
 moduleCallVisitor node context =
-    case Node.value node of
-        ( moduleName, function ) ->
-            ( [], Context.addModuleCall moduleName function (Node.range node) context )
+    let
+        ( moduleName, function ) =
+            Node.value node
+    in
+    ( [], Context.addModuleCall moduleName function (Node.range node) context )
 
 
 finalEvaluation : Options.AliasLookup -> Context.Module -> List (Error {})
diff --git a/tests/NoModuleOnExposedNames.elm b/tests/NoModuleOnExposedNames.elm
index 0f657a3f..ba13ace7 100644
--- a/tests/NoModuleOnExposedNames.elm
+++ b/tests/NoModuleOnExposedNames.elm
@@ -124,28 +124,32 @@ rememberExposedNames { moduleName, moduleAlias, exposingList } context =
 
 valueVisitor : Node ( ModuleName, String ) -> Context.Module -> ( List (Error {}), Context.Module )
 valueVisitor node context =
-    case Node.value node of
-        ( moduleName, name ) ->
-            if Context.isFunctionExposed context moduleName name then
-                ( [ moduleOnExposedValueError name (Node.range node) ]
-                , context
-                )
+    let
+        ( moduleName, name ) =
+            Node.value node
+    in
+    if Context.isFunctionExposed context moduleName name then
+        ( [ moduleOnExposedValueError name (Node.range node) ]
+        , context
+        )
 
-            else
-                ( [], context )
+    else
+        ( [], context )
 
 
 typeVisitor : Node ( ModuleName, String ) -> Context.Module -> ( List (Error {}), Context.Module )
 typeVisitor node context =
-    case Node.value node of
-        ( moduleName, name ) ->
-            if Context.isTypeExposed context moduleName name then
-                ( [ moduleOnExposedTypeError name (Node.range node) ]
-                , context
-                )
+    let
+        ( moduleName, name ) =
+            Node.value node
+    in
+    if Context.isTypeExposed context moduleName name then
+        ( [ moduleOnExposedTypeError name (Node.range node) ]
+        , context
+        )
 
-            else
-                ( [], context )
+    else
+        ( [], context )
 
 
 moduleOnExposedValueError : String -> Range -> Error {}