basis/qualified/qualified-tests.factor

   1 USING: tools.test qualified ;
   2 IN: foo
   3 : x 1 ;
   4 IN: bar
   5 : x 2 ;
   6 IN: baz
   7 : x 3 ;
   8
   9 QUALIFIED: foo
  10 QUALIFIED: bar
  11 [ 1 2 3 ] [ foo:x bar:x x ] unit-test
  12
  13 QUALIFIED-WITH: bar p
  14 [ 2 ] [ p:x ] unit-test
  15
  16 RENAME: x baz => y
  17 [ 3 ] [ y ] unit-test
  18
  19 FROM: baz => x ;
  20 [ 3 ] [ x ] unit-test
  21
  22 EXCLUDE: bar => x ;
  23 [ 3 ] [ x ] unit-test
  24