locals.types: stub unit tests

diff --git a/basis/locals/types/types-tests.factor b/basis/locals/types/types-tests.factor
new file mode 100644 (file)
index 0000000..91db776
--- /dev/null
+++ 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