core: whoops, all these moves got missed.

[factor.git] / core / memoize / memoize-tests.factor

diff --git a/core/memoize/memoize-tests.factor b/core/memoize/memoize-tests.factor
new file mode 100644 (file)
index 0000000..f67a1fe
--- /dev/null
+++ b/core/memoize/memoize-tests.factor
@@ -0,0 +1,35 @@
+! Copyright (C) 2007, 2009 Slava Pestov, Daniel Ehrenberg.
+! See http://factorcode.org/license.txt for BSD license.
+USING: math kernel memoize tools.test parser generalizations
+prettyprint io.streams.string sequences eval namespaces see ;
+IN: memoize.tests
+
+MEMO: fib ( m -- n )
+    dup 1 <= [ drop 1 ] [ dup 1 - fib swap 2 - fib + ] if ;
+
+MEMO: x ( a b c d e -- f g h i j )
+    [ 1 + ] 4 ndip ;
+
+{ 89 } [ 10 fib ] unit-test
+
+{
+    1 0 0 0 0
+    1 0 0 0 0
+} [
+    0 0 0 0 0 x
+    0 0 0 0 0 x
+] unit-test
+
+MEMO: see-test ( a -- b ) reverse ;
+
+{ "USING: memoize sequences ;\nIN: memoize.tests\nMEMO: see-test ( a -- b ) reverse ;\n" }
+[ [ \ see-test see ] with-string-writer ]
+unit-test
+
+{ } [ "IN: memoize.tests : fib ( -- ) ;" eval( -- ) ] unit-test
+
+{ "IN: memoize.tests\n: fib ( -- ) ;\n" } [ [ \ fib see ] with-string-writer ] unit-test
+
+[ sq ] ( a -- b ) memoize-quot "q" set
+
+{ 9 } [ 3 "q" get call ] unit-test