basis/compiler/tests/pic-problem-1.factor

   1 IN: compiler.tests.pic-problem-1
   2 USING: kernel sequences prettyprint memory tools.test ;
   3
   4 TUPLE: x ;
   5
   6 M: x length drop 0 ;
   7
   8 INSTANCE: x sequence
   9
  10 << gc >>
  11
  12 CONSTANT: blah T{ x }
  13
  14 [ T{ x } ] [ blah ] unit-test