core/source-files/errors/errors-tests.factor

   1 USING: assocs compiler.errors compiler.units definitions
   2 namespaces tools.test words ;
   3
   4 DEFER: forget-test
   5
   6 { } [ [ \ forget-test [ 1 ] ( -- ) define-declared ] with-compilation-unit ] unit-test
   7 { t } [ \ forget-test compiler-errors get key? ] unit-test
   8 { } [ [ \ forget-test forget ] with-compilation-unit ] unit-test
   9 { f } [ \ forget-test compiler-errors get key? ] unit-test