basis/compiler/tests/redefine25.factor

   1 USING: tools.test compiler.units classes.mixin definitions
   2 kernel kernel.private ;
   3 IN: compiler.tests.redefine25
   4
   5 MIXIN: empty-mixin
   6
   7 : empty-mixin-test-1 ( a -- ? ) empty-mixin? ;
   8
   9 TUPLE: a-superclass ;
  10
  11 : empty-mixin-test-2 ( a -- ? ) { a-superclass } declare empty-mixin? ;
  12
  13 TUPLE: empty-mixin-member < a-superclass ;
  14
  15 [ f ] [ empty-mixin-member new empty-mixin? ] unit-test
  16 [ f ] [ empty-mixin-member new empty-mixin-test-1 ] unit-test
  17 [ f ] [ empty-mixin-member new empty-mixin-test-2 ] unit-test
  18
  19 [ ] [
  20     [
  21         \ empty-mixin-member \ empty-mixin add-mixin-instance
  22     ] with-compilation-unit
  23 ] unit-test
  24
  25 [ t ] [ empty-mixin-member new empty-mixin? ] unit-test
  26 [ t ] [ empty-mixin-member new empty-mixin-test-1 ] unit-test
  27 [ t ] [ empty-mixin-member new empty-mixin-test-2 ] unit-test
  28
  29 [ ] [
  30     [
  31         \ empty-mixin forget
  32         \ empty-mixin-member forget
  33         \ empty-mixin-test-1 forget
  34         \ empty-mixin-test-2 forget
  35     ] with-compilation-unit
  36 ] unit-test