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