basis/hints/hints-tests.factor

   1 USING: math hashtables accessors kernel words hints
   2 compiler.tree.debugger tools.test ;
   3 IN: hints.tests
   4
   5 ! Regression
   6 GENERIC: blahblah ( a b c -- )
   7
   8 M: hashtable blahblah 2nip [ 1 + ] change-count drop ;
   9
  10 HINTS: M\ hashtable blahblah { object fixnum object } { object word object } ;
  11
  12 { t } [ M\ hashtable blahblah { count>> count<< } inlined? ] unit-test