extra/changer/changer-tests.factor

   1 ! Copyright (C) 2015 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: changer math tools.test ;
   4 IN: changer.tests
   5
   6 TUPLE: changer-tester test-slot ;
   7
   8 {
   9     T{ changer-tester f 1 }
  10 } [ T{ changer-tester f 0 } [ 1 + ] change: test-slot ] unit-test
  11
  12 : change-test-slot ( obj -- obj )
  13     [ 1 + ] change: test-slot ;
  14
  15 {
  16     T{ changer-tester f 1 }
  17 } [ T{ changer-tester f 0 } change-test-slot ] unit-test