core, basis, extra: Remove DOS line endings from files.

[factor.git] / basis / cache / cache-tests.factor

diff --git a/basis/cache/cache-tests.factor b/basis/cache/cache-tests.factor
index ea1c22b2cf23bd03308fd683d8ff044c7cf1cf25..241d1f5377b625c05501d1bb55b2f3fb1d0d5b8f 100755 (executable)
--- a/basis/cache/cache-tests.factor
+++ b/basis/cache/cache-tests.factor
@@ -1,50 +1,50 @@
-USING: cache tools.test accessors destructors kernel assocs\r
-namespaces ;\r
-IN: cache.tests\r
-\r
-TUPLE: mock-disposable < disposable n ;\r
-\r
-: <mock-disposable> ( n -- mock-disposable )\r
-    mock-disposable new-disposable swap >>n ;\r
-\r
-M: mock-disposable dispose* drop ;\r
-\r
-[ ] [ <cache-assoc> "cache" set ] unit-test\r
-\r
-[ 0 ] [ "cache" get assoc-size ] unit-test\r
-\r
-[ ] [ "cache" get 2 >>max-age drop ] unit-test\r
-\r
-[ ] [ 1 <mock-disposable> dup "a" set 2 "cache" get set-at ] unit-test\r
-\r
-[ 1 ] [ "cache" get assoc-size ] unit-test\r
-\r
-[ ] [ "cache" get purge-cache ] unit-test\r
-\r
-[ ] [ 2 <mock-disposable> 3 "cache" get set-at ] unit-test\r
-\r
-[ 2 ] [ "cache" get assoc-size ] unit-test\r
-\r
-[ ] [ "cache" get purge-cache ] unit-test\r
-\r
-[ 1 ] [ "cache" get assoc-size ] unit-test\r
-\r
-[ ] [ 3 <mock-disposable> dup "b" set 4 "cache" get set-at ] unit-test\r
-\r
-[ 2 ] [ "cache" get assoc-size ] unit-test\r
-\r
-[ ] [ "cache" get purge-cache ] unit-test\r
-\r
-[ 1 ] [ "cache" get assoc-size ] unit-test\r
-\r
-[ f ] [ 2 "cache" get key? ] unit-test\r
-\r
-[ 3 ] [ 4 "cache" get at n>> ] unit-test\r
-\r
-[ t ] [ "a" get disposed>> ] unit-test\r
-\r
-[ f ] [ "b" get disposed>> ] unit-test\r
-\r
-[ ] [ "cache" get clear-assoc ] unit-test\r
-\r
-[ t ] [ "b" get disposed>> ] unit-test\r
+USING: cache tools.test accessors destructors kernel assocs
+namespaces ;
+IN: cache.tests
+
+TUPLE: mock-disposable < disposable n ;
+
+: <mock-disposable> ( n -- mock-disposable )
+    mock-disposable new-disposable swap >>n ;
+
+M: mock-disposable dispose* drop ;
+
+[ ] [ <cache-assoc> "cache" set ] unit-test
+
+[ 0 ] [ "cache" get assoc-size ] unit-test
+
+[ ] [ "cache" get 2 >>max-age drop ] unit-test
+
+[ ] [ 1 <mock-disposable> dup "a" set 2 "cache" get set-at ] unit-test
+
+[ 1 ] [ "cache" get assoc-size ] unit-test
+
+[ ] [ "cache" get purge-cache ] unit-test
+
+[ ] [ 2 <mock-disposable> 3 "cache" get set-at ] unit-test
+
+[ 2 ] [ "cache" get assoc-size ] unit-test
+
+[ ] [ "cache" get purge-cache ] unit-test
+
+[ 1 ] [ "cache" get assoc-size ] unit-test
+
+[ ] [ 3 <mock-disposable> dup "b" set 4 "cache" get set-at ] unit-test
+
+[ 2 ] [ "cache" get assoc-size ] unit-test
+
+[ ] [ "cache" get purge-cache ] unit-test
+
+[ 1 ] [ "cache" get assoc-size ] unit-test
+
+[ f ] [ 2 "cache" get key? ] unit-test
+
+[ 3 ] [ 4 "cache" get at n>> ] unit-test
+
+[ t ] [ "a" get disposed>> ] unit-test
+
+[ f ] [ "b" get disposed>> ] unit-test
+
+[ ] [ "cache" get clear-assoc ] unit-test
+
+[ t ] [ "b" get disposed>> ] unit-test