11 lines
368 B
Factor
11 lines
368 B
Factor
|
USING: classes.tuple.change-tracking tools.test ;
|
||
|
|
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
|