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