2009-08-01 02:25:13 -04:00
|
|
|
USING: classes.tuple.change-tracking tools.test strings accessors kernel continuations ;
|
2009-07-31 22:48:17 -04:00
|
|
|
IN: classes.tuple.change-tracking.tests
|
|
|
|
|
|
|
|
|
|
TUPLE: resource < change-tracking-tuple
|
|
|
|
|
{ pathname string } ;
|
|
|
|
|
|
|
|
|
|
: <resource> ( pathname -- resource ) f swap resource boa ;
|
|
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ t } [ "foo" <resource> "bar" >>pathname changed?>> ] unit-test
|
|
|
|
|
{ f } [ "foo" <resource> [ 123 >>pathname ] [ drop ] recover changed?>> ] unit-test
|
