Consolidate Unicode surrogate pair tests into existing 'just parses' test block

Co-authored-by: yegor256 <[email protected]>

Author: Copilot

test/ParserSpec.hs

@@ -37,13 +37,6 @@ spec = do
         ("{[[foo ↦ QQ]]}", Just (Program (ExFormation [BiTau (AtLabel "foo") (ExDispatch (ExDispatch ExGlobal (AtLabel "org")) (AtLabel "eolang")), BiVoid AtRho])))
       ]
 
-  describe "parse unicode surrogate pairs" $
-    forM_
-      [ "{⟦ j$org ↦ \"org/eolang/larger/\\uD835\\uDF11\" ⟧}",
-        "Q -> \"\\uD835\\uDF11\""
-      ]
-      (\prog -> it prog (parseProgram prog `shouldSatisfy` isRight))
-
   describe "parse expression" $
     test
       parseExpression
@@ -249,7 +242,9 @@ spec = do
         "⟦x ↦ Φ.org.eolang(z ↦ ξ.f, x ↦ α0, φ ↦ ρ, t ↦ φ, first ↦ ⟦ λ ⤍ Function_name, Δ ⤍ 42- ⟧)⟧",
         "[[x -> 1.00e+3, y -> 2.32e-4]]",
         "[[ x -> \"\\u0001\\u0001\"]]",
-        "[[ x -> \"\\uD835\\uDF11\"]]"
+        "[[ x -> \"\\uD835\\uDF11\"]]",
+        "{⟦ j$org ↦ \"org/eolang/larger/\\uD835\\uDF11\" ⟧}",
+        "Q -> \"\\uD835\\uDF11\""
       ]
       (\expr -> it expr (parseExpression expr `shouldSatisfy` isRight))