]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/debugger/debugger-tests.factor
core, basis, extra: Remove DOS line endings from files.
[factor.git] / basis / debugger / debugger-tests.factor
index 2858fb43d1f0bbbc9194a3d9457b20f91570e55a..5f96ae9b433d3e9570edb037912893a388640729 100644 (file)
@@ -1,45 +1,45 @@
-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