extra/classes/tuple/change-tracking/change-tracking-tests.factor

   1 USING: classes.tuple.change-tracking tools.test strings accessors kernel continuations ;
   2 IN: classes.tuple.change-tracking.tests
   3
   4 TUPLE: resource < change-tracking-tuple
   5     { pathname string } ;
   6
   7 : <resource> ( pathname -- resource ) f swap resource boa ;
   8
   9 { t } [ "foo" <resource> "bar" >>pathname changed?>> ] unit-test
  10 { f } [ "foo" <resource> [ 123 >>pathname ] [ drop ] recover changed?>> ] unit-test