basis/qualified/qualified-tests.factor

   1 USING: tools.test qualified eval accessors parser ;
   2 IN: qualified.tests.foo
   3 : x 1 ;
   4 : y 5 ;
   5 IN: qualified.tests.bar
   6 : x 2 ;
   7 : y 4 ;
   8 IN: qualified.tests.baz
   9 : x 3 ;
  10
  11 QUALIFIED: qualified.tests.foo
  12 QUALIFIED: qualified.tests.bar
  13 [ 1 2 3 ] [ qualified.tests.foo:x qualified.tests.bar:x x ] unit-test
  14
  15 QUALIFIED-WITH: qualified.tests.bar p
  16 [ 2 ] [ p:x ] unit-test
  17
  18 RENAME: x qualified.tests.baz => y
  19 [ 3 ] [ y ] unit-test
  20
  21 FROM: qualified.tests.baz => x ;
  22 [ 3 ] [ x ] unit-test
  23 [ 3 ] [ y ] unit-test
  24
  25 EXCLUDE: qualified.tests.bar => x ;
  26 [ 3 ] [ x ] unit-test
  27 [ 4 ] [ y ] unit-test
  28
  29 [ "USE: qualified IN: qualified.tests FROM: qualified.tests => doesnotexist ;" eval ]
  30 [ error>> no-word-error? ] must-fail-with
  31
  32 [ "USE: qualified IN: qualified.tests RENAME: doesnotexist qualified.tests => blah" eval ]
  33 [ error>> no-word-error? ] must-fail-with