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 -r1.9.2.1 --- openacs-4/packages/acs-content-repository/tcl/test/content-revision-test-procs.tcl 15 Aug 2018 16:24:28 -0000 1.9 +++ openacs-4/packages/acs-content-repository/tcl/test/content-revision-test-procs.tcl 10 Jul 2019 18:06:58 -0000 1.9.2.1 @@ -18,6 +18,7 @@ content::item::get_content content::item::new content::revision::new + content::revision::get_title cr_write_content } \ content_revision { @@ -52,10 +53,11 @@ # create a revision set revision_id [db_nextval "acs_object_id_seq"] + set title "Test Title" set returned_revision_id [content::revision::new \ -revision_id $revision_id \ -item_id $first_item_id \ - -title "Test Title" \ + -title $title \ -description "Test Description" \ -content "Test Content"] aa_true "Basic Revision created revision_id $revision_id returned_revision_id $returned_revision_id " \ @@ -64,11 +66,16 @@ content::item::get_content -revision_id $returned_revision_id -array revision_content set revision_content(content) [cr_write_content -revision_id $returned_revision_id -string] aa_true "Revision contains correct content" { - $revision_content(title) eq "Test Title" + $revision_content(title) eq $title && $revision_content(content) eq "Test Content" && $revision_id == $revision_content(revision_id) } + aa_equals "Title of the revision should be $title" \ + "$title" \ + [content::revision::get_title \ + -revision_id $returned_revision_id] + content::item::delete -item_id $first_item_id content::folder::unregister_content_type \