core/classes/classes-tests.factor

   1 USING: alien arrays definitions generic assocs hashtables io
   2 kernel math namespaces parser prettyprint sequences strings
   3 tools.test vectors words quotations classes
   4 classes.private classes.union classes.mixin classes.predicate
   5 classes.algebra vectors definitions source-files
   6 compiler.units kernel.private sorting vocabs ;
   7 IN: classes.tests
   8
   9 [ t ] [ 3 object instance? ] unit-test
  10 [ t ] [ 3 fixnum instance? ] unit-test
  11 [ f ] [ 3 float instance? ] unit-test
  12 [ t ] [ 3 number instance? ] unit-test
  13 [ f ] [ 3 null instance? ] unit-test
  14 [ t ] [ "hi" \ hi-tag instance? ] unit-test
  15
  16 ! Regression
  17 GENERIC: method-forget-test ( obj -- obj )
  18 TUPLE: method-forget-class ;
  19 M: method-forget-class method-forget-test ;
  20
  21 [ f ] [ \ method-forget-test "methods" word-prop assoc-empty? ] unit-test
  22 [ ] [ [ \ method-forget-class forget ] with-compilation-unit ] unit-test
  23 [ t ] [ \ method-forget-test "methods" word-prop assoc-empty? ] unit-test
  24
  25 [ t ] [
  26     all-words [ class? ] filter
  27     implementors-map get keys
  28     [ natural-sort ] bi@ =
  29 ] unit-test