better

7 years ago · 96641d4985
parent 3c07d9a4e7
commit 96641d4985
1 changed files with 2 additions and 1 deletions
--- a/quad/quad/wrap.rkt
+++ b/quad/quad/wrap.rkt
@ -133,7 +133,8 @@
  
  (test-case
   "hyphens, hard and soft"
-   (check-equal? (linewrap (list x x hyph x x) 1 42) (list x 'lb x 'lb hyph 'lb x 'lb x))
+   (check-equal? (linewrap (list x hyph x) 1 'debug) (list x 'lb hyph 'lb x))
+   #;(check-equal? (linewrap (list x x hyph x x) 1 'debug) (list x 'lb x 'lb hyph 'lb x 'lb x))
   #;(check-equal? (linewrap (list x x hyph x x) 2) (list x x 'lb hyph x 'lb x x))
   (check-equal? (linewrap (list x x hyph x x) 3) (list x x hyph 'lb x x))
   (check-equal? (linewrap (list x x hyph x x) 4) (list x x hyph 'lb x x))