debugger: Support for assert-string

2017-09-16 16:50:17 -05:00 · 2017-09-16 16:50:17 -05:00 · aeebe0bbbe
parent 6939b2ca5f
commit aeebe0bbbe
1 changed files with 6 additions and 0 deletions
--- a/basis/debugger/debugger.factor
+++ b/basis/debugger/debugger.factor
@ -256,6 +256,12 @@ M: assert-sequence error.
        [ "=== Got:" print got>> stack. ] bi
    ] tabular-output ;

+M: assert-string error.
+    standard-table-style [
+        [ "=== Expected:" print expected>> . ]
+        [ "=== Got:" print got>> . ] bi
+    ] tabular-output ;
+
 M: immutable summary drop "Sequence is immutable" ;

 M: redefine-error error.