basis/compiler/tree/propagation/copy/copy-tests.factor

   1 USING: compiler.tree.propagation.copy tools.test namespaces kernel
   2 assocs ;
   3 IN: compiler.tree.propagation.copy.tests
   4
   5 H{ } clone copies set
   6
   7 [ ] [ 0 introduce-value ] unit-test
   8 [ ] [ 1 introduce-value ] unit-test
   9 [ ] [ 1 2 is-copy-of ] unit-test
  10 [ ] [ 2 3 is-copy-of ] unit-test
  11 [ ] [ 2 4 is-copy-of ] unit-test
  12 [ ] [ 4 5 is-copy-of ] unit-test
  13 [ ] [ 0 6 is-copy-of ] unit-test
  14
  15 [ 0 ] [ 0 resolve-copy ] unit-test
  16 [ 1 ] [ 5 resolve-copy ] unit-test
  17
  18 ! Make sure that we did path compression
  19 [ 1 ] [ 5 copies get at ] unit-test
  20
  21 [ 1 ] [ 1 resolve-copy ] unit-test
  22 [ 1 ] [ 2 resolve-copy ] unit-test
  23 [ 1 ] [ 3 resolve-copy ] unit-test
  24 [ 1 ] [ 4 resolve-copy ] unit-test
  25 [ 0 ] [ 6 resolve-copy ] unit-test