Index: openacs-4/packages/acs-content-repository/tcl/test/content-revision-test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/test/content-revision-test-procs.tcl,v diff -u -r1.9.2.1 -r1.9.2.2 --- openacs-4/packages/acs-content-repository/tcl/test/content-revision-test-procs.tcl 10 Jul 2019 18:06:58 -0000 1.9.2.1 +++ openacs-4/packages/acs-content-repository/tcl/test/content-revision-test-procs.tcl 6 Mar 2021 17:09:32 -0000 1.9.2.2 @@ -19,6 +19,7 @@ content::item::new content::revision::new content::revision::get_title + content::revision::item_id cr_write_content } \ content_revision { @@ -71,6 +72,10 @@ && $revision_id == $revision_content(revision_id) } + aa_equals "content_revision is consistent" \ + [content::revision::item_id -revision_id $revision_id] \ + $first_item_id + aa_equals "Title of the revision should be $title" \ "$title" \ [content::revision::get_title \