locals.types: stub unit tests

2015-06-09 10:03:20 +02:00 · 2015-06-09 10:03:20 +02:00 · 8ef135bc2f
parent 48138d548a
commit 8ef135bc2f
1 changed files with 11 additions and 0 deletions
--- a/basis/locals/types/types-tests.factor
+++ b/basis/locals/types/types-tests.factor
@ -0,0 +1,11 @@
+USING: accessors compiler.units kernel locals.types tools.test words ;
+IN: locals.types.test
+
+{ t } [
+    [ "hello" <local> ] with-compilation-unit "local?" word-prop
+] unit-test
+
+{ t "hello!" } [
+    [ "hello" <local-reader> <local-writer> ] with-compilation-unit
+    [ "local-writer?" word-prop ] [ name>> ] bi
+] unit-test