WIP

M tests/ParserTests.hs
haskell-nix · Jul 10, 2021 · fc09dda · fc09dda
1 parent 980d7af
commit fc09dda
Showing 1 changed file with 35 additions and 35 deletions.
diff --git a/tests/ParserTests.hs b/tests/ParserTests.hs
@@ -453,6 +453,41 @@ case_string_antiquote_syntax_mistakes =
     "\"${true\""
 
 
+-- *** Indented string
+
+case_indented_string =
+  checks
+    ( mkIndentedStr 0 "a"
+    , "''a''"
+    )
+    ( mkIndentedStr 2 "foo\nbar"
+    , "''\n  foo\n  bar''"
+    )
+    ( mkIndentedStr 0 ""
+    , "''        ''"
+    )
+    ( mkIndentedStr 0 "''"
+    , "'''''''"
+    )
+    ( Fix $ NStr $ Indented 3
+        [ Antiquoted mkNull
+        , Plain "\na"
+        , Antiquoted mkNull
+        ]
+    , "''   ${null}\n   a${null}''"
+    )
+
+case_indented_string_syntax_mistakes =
+  mistakes
+    "'''''"
+    "''   '"
+
+case_indented_string_escape =
+  checks
+    ( mkIndentedStr 1 "\n \t \\ ${ \\ \\n ' '' "
+    , "'' ''\\n ''\\t ''\\\\ ''${ \\ \\n ' ''' ''"
+    )
+
 -- ** Selection
 
 case_select =
@@ -554,41 +589,6 @@ case_fun_app_syntax_mistakes =
    "f if true then null else null"
 
 
--- *** Indented string
-
-case_indented_string =
-  checks
-    ( mkIndentedStr 0 "a"
-    , "''a''"
-    )
-    ( mkIndentedStr 2 "foo\nbar"
-    , "''\n  foo\n  bar''"
-    )
-    ( mkIndentedStr 0 ""
-    , "''        ''"
-    )
-    ( mkIndentedStr 0 "''"
-    , "'''''''"
-    )
-    ( Fix $ NStr $ Indented 3
-        [ Antiquoted mkNull
-        , Plain "\na"
-        , Antiquoted mkNull
-        ]
-    , "''   ${null}\n   a${null}''"
-    )
-
-case_indented_string_syntax_mistakes =
-  mistakes
-    "'''''"
-    "''   '"
-
-case_indented_string_escape =
-  checks
-    ( mkIndentedStr 1 "\n \t \\ ${ \\ \\n ' '' "
-    , "'' ''\\n ''\\t ''\\\\ ''${ \\ \\n ' ''' ''"
-    )
-
 -- ** Operators
 
 case_operator_fun_app =