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

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