-USING: accessors alien.syntax continuations debugger kernel\r
-namespaces tools.test ;\r
-IN: debugger.tests\r
-\r
-[ ] [ [ drop ] [ error. ] recover ] unit-test\r
-\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
-\r
-[ "foo" { 1 2 3 "foo" } ] [\r
- [ 1 2 3 "foo" throw ] [ ] recover error-continuation get data>>\r
-] unit-test\r
+USING: accessors alien.syntax continuations debugger kernel
+namespaces tools.test ;
+IN: debugger.tests
+
+[ ] [ [ drop ] [ error. ] recover ] unit-test
+
+[ f ] [ { } vm-error? ] unit-test
+[ f ] [ { "A" "B" } vm-error? ] unit-test
+
+[ ] [
+T{ test-failure
+ { error
+ {
+ "kernel-error"
+ 10
+ {
+ B{
+ 88 73 110 112 117 116 69 110 97 98 108 101 0
+ }
+ B{
+ 88 73 110 112 117 116 69 110 97 98 108 101
+ 64 56 0
+ }
+ B{
+ 95 88 73 110 112 117 116 69 110 97 98 108
+ 101 64 56 0
+ }
+ B{
+ 64 88 73 110 112 117 116 69 110 97 98 108
+ 101 64 56 0
+ }
+ }
+ DLL" xinput1_3.dll"
+ }
+ }
+ { asset { "Unit Test" [ ] [ dup ] } }
+ { file "resource:basis/game/input/input-tests.factor" }
+ { line# 6 }
+ { continuation f }
+} error.
+] unit-test
+
+[ "foo" { 1 2 3 "foo" } ] [
+ [ 1 2 3 "foo" throw ] [ ] recover error-continuation get data>>
+] unit-test