Disable pprint during test

lives-group · Apr 22, 2024 · b8d3a98 · b8d3a98
1 parent 604b5db
commit b8d3a98
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/test/solver-test.rkt b/test/solver-test.rkt
@@ -43,9 +43,7 @@
 
 (define-property reject-ill-typed ([peg  (gen:ill-peg 3 3 3)])
     (let ([p (translate peg) ])
-        (pprint-peg p)
         (not (satisfied? (solve-ctx (peg->constraints p))))
-        (displayln "\n------------------xxx-----------")
     )
   )
 
@@ -119,4 +117,4 @@
          (GAlt (GSeq (GAlt (GLit 0) (GEps)) (GLit 1))
                (GNot (GLit 1)) )
          (list))
-)
+)