Add unit test for feature discovered by erg

2008-05-01 21:49:23 -05:00 · 2008-05-01 21:49:23 -05:00 · 1f32ecbe98
parent df9277c4ca
commit 1f32ecbe98
1 changed files with 3 additions and 0 deletions
--- a/core/parser/parser-tests.factor
+++ b/core/parser/parser-tests.factor
@ -432,3 +432,6 @@ must-fail-with
 ] must-fail

 [ ": foo ;" eval ] [ error>> no-current-vocab? ] must-fail-with
+
+[ 92 ] [ "CHAR: \\" eval ] unit-test
+[ 92 ] [ "CHAR: \\\\" eval ] unit-test