File tree Expand file tree Collapse file tree 2 files changed +5
-5
lines changed Expand file tree Collapse file tree 2 files changed +5
-5
lines changed Original file line number Diff line number Diff line change @@ -712,7 +712,7 @@ test_unparse =
712
712
[ testCase " unparse using 8-bit encoding" $ do
713
713
let input = asInternal " \x00 " :: TermLike RewritingVariableName
714
714
actual = (show . unparse) input
715
- expect = " /* T Fn D Sfa Cl */ \\ dv{Bytes{}}(\"\\ x00\" )"
715
+ expect = " \\ dv{Bytes{}}(\"\\ x00\" )"
716
716
assertEqual " " expect actual
717
717
]
718
718
Original file line number Diff line number Diff line change @@ -406,15 +406,15 @@ test_unification =
406
406
(UnificationTerm a)
407
407
(UnificationTerm dv2)
408
408
" Cannot handle Constructor and DomainValue:\n \
409
- \/* T Fn D Sfa Cl */ a{}()\n \
410
- \/* T Fn D Sfa Cl */ \\ dv{testSort{}}(/* T Fn D Sfa Cl */ \" dv2\" )\n "
409
+ \a{}()\n \
410
+ \\\ dv{testSort{}}(\" dv2\" )\n "
411
411
, andSimplifyException
412
412
" Unmatching domain value + constructor constant"
413
413
(UnificationTerm dv1)
414
414
(UnificationTerm a)
415
415
" Cannot handle DomainValue and Constructor:\n \
416
- \/* T Fn D Sfa Cl */ \\ dv{testSort{}}(/* T Fn D Sfa Cl */ \" dv1\" )\n \
417
- \/* T Fn D Sfa Cl */ a{}()\n "
416
+ \\\ dv{testSort{}}(\" dv1\" )\n \
417
+ \a{}()\n "
418
418
, testCase " Unmatching domain value + nonconstructor constant" $
419
419
andSimplify
420
420
(UnificationTerm dv1)
You can’t perform that action at this time.
0 commit comments