core/locals/types/types-tests.factor

   1 USING: accessors compiler.units kernel locals.types tools.test words ;
   2 IN: locals.types.tests
   3
   4 { t } [
   5     [ "hello" <local> ] with-compilation-unit "local?" word-prop
   6 ] unit-test
   7
   8 { t "hello!" } [
   9     [ "hello" <local-reader> <local-writer> ] with-compilation-unit
  10     [ "local-writer?" word-prop ] [ name>> ] bi
  11 ] unit-test