11 lines
407 B
Factor
11 lines
407 B
Factor
USING: classes.tuple.change-tracking tools.test strings accessors kernel continuations ;
|
|
IN: classes.tuple.change-tracking.tests
|
|
|
|
TUPLE: resource < change-tracking-tuple
|
|
{ pathname string } ;
|
|
|
|
: <resource> ( pathname -- resource ) f swap resource boa ;
|
|
|
|
[ t ] [ "foo" <resource> "bar" >>pathname changed?>> ] unit-test
|
|
[ f ] [ "foo" <resource> [ 123 >>pathname ] [ drop ] recover changed?>> ] unit-test
|