debugger: Add a unit test for #1098.

diff --git a/basis/debugger/debugger-tests.factor b/basis/debugger/debugger-tests.factor
index 6800c83a9ca4a0df0cfa87f6c3e351fcc46083f4..12b1f8d4769c4eef6449a38c6b97ce189b5951a7 100644 (file)
--- a/basis/debugger/debugger-tests.factor
+++ b/basis/debugger/debugger-tests.factor
@@ -5,3 +5,36 @@ IN: debugger.tests
 \r
 [ f ] [ { } vm-error? ] unit-test\r
 [ f ] [ { "A" "B" } vm-error? ] unit-test\r
+\r
+[ ] [\r
+T{ test-failure\r
+    { error\r
+        {\r
+            "kernel-error"\r
+            10\r
+            {\r
+                B{\r
+                    88 73 110 112 117 116 69 110 97 98 108 101 0\r
+                }\r
+                B{\r
+                    88 73 110 112 117 116 69 110 97 98 108 101\r
+                    64 56 0\r
+                }\r
+                B{\r
+                    95 88 73 110 112 117 116 69 110 97 98 108\r
+                    101 64 56 0\r
+                }\r
+                B{\r
+                    64 88 73 110 112 117 116 69 110 97 98 108\r
+                    101 64 56 0\r
+                }\r
+            }\r
+            DLL" xinput1_3.dll"\r
+        }\r
+    }\r
+    { asset { "Unit Test" [ ] [ dup ] } }\r
+    { file "resource:basis/game/input/input-tests.factor" }\r
+    { line# 6 }\r
+    { continuation f }\r
+} error.\r
+] unit-test\r