Index: openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl	20 Mar 2019 14:02:17 -0000	1.1.2.1
+++ openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl	20 Mar 2019 16:39:49 -0000	1.1.2.2
@@ -125,8 +125,138 @@
     }
 }
 
+aa_register_case -cats {api smoke} test_cr_items {
+   Test basic ::xo::db::CrItem ORM features
+} {
+    aa_run_with_teardown -test_code {
+        aa_log "Create object"
+        set orm_object [::xo::db::CrItem new]
+        $orm_object set title "test_title"
+        set object_id [$orm_object save_new]
+        set revision_id [$orm_object set revision_id]
+
+        aa_log "Destroy object"
+        $orm_object destroy
+
+        set orm_exists_p [::xo::db::Class exists_in_db -id $object_id]
+        set db_exists_p [::xo::dc 0or1row lookup_object {
+            select 1 from cr_items where item_id = :object_id
+        }]
+        aa_equals "Object was created" \
+            [string is true -strict $orm_exists_p] [string is true -strict $db_exists_p]
+
+        aa_log "Fetching object from ORM"
+        set orm_object [::xo::db::CrClass get_instance_from_db -item_id $object_id]
+        aa_log "Fetching object from DB"
+        ::xo::dc 1row get_object_from_db {
+            select creation_date,
+                   creation_user,
+                   creation_ip,
+                   package_id,
+                   context_id,
+                   modifying_ip
+            from acs_objects
+            where object_id = :object_id
+        }
+        # In CrItem modification info is in fact creation info of the
+        # live revision (except the modifying ip at creation, which
+        # comes from the item's acs_object)
+        ::xo::dc 1row get_revision_object {
+            select creation_user as modifying_user,
+                   coalesce(creation_ip, :modifying_ip) as modifying_ip,
+                   creation_date as last_modified
+            from acs_objects
+            where object_id = :revision_id
+        }
+        set title [::xo::dc get_value get_title {
+            select title from cr_revisions
+            where revision_id = :revision_id
+        }]
+        foreach att {
+            title
+            creation_date
+            creation_user
+            creation_ip
+            package_id
+            context_id
+            modifying_user
+            modifying_ip
+            last_modified
+        } {
+            aa_equals "Same $att" [set $att] [$orm_object set $att]
+        }
+
+        aa_log "Setting a different title"
+        set old_title [$orm_object set title]
+        $orm_object set title "a different title"
+
+        set old_context_id [$orm_object set context_id]
+        # obtain a random different context_id
+        set new_context_id [::xo::dc get_value get_context_id {
+            select min(object_id) from acs_objects
+            where object_id <> :object_id
+        }]
+        aa_log "Setting a different context_id: $new_context_id"
+        $orm_object set context_id $new_context_id
+
+        aa_log "Saving the object"
+        $orm_object save
+        set revision_id [$orm_object set revision_id]
+
+        aa_log "Fetching object again from DB"
+        ::xo::dc 1row get_object_from_db {
+            select creation_date,
+                   creation_user,
+                   creation_ip,
+                   package_id,
+                   context_id,
+                   modifying_ip
+            from acs_objects
+            where object_id = :object_id
+        }
+        # In CrItem modification info is in fact creation info of the
+        # live revision
+        ::xo::dc 1row get_revision_object {
+            select creation_user as modifying_user,
+                   creation_ip as modifying_ip,
+                   creation_date as last_modified
+            from acs_objects
+            where object_id = :revision_id
+        }
+        set title [::xo::dc get_value get_title {
+            select title from cr_revisions
+            where revision_id = :revision_id
+        }]
+
+        # context_id will not change using the ORM. Not sure what this means, but we expose it
+        aa_equals "context_id did not change" $new_context_id [$orm_object set context_id]
+
+        foreach att {
+            title
+            creation_date
+            creation_user
+            creation_ip
+            package_id
+            modifying_user
+            modifying_ip
+            last_modified
+        } {
+            aa_equals "Same $att after modifying the title" [set $att] [$orm_object set $att]
+        }
+
+        $orm_object delete
+        set orm_exists_p [::xo::db::Class exists_in_db -id $object_id]
+        set db_exists_p [::xo::dc 0or1row lookup_object {
+            select 1 from acs_objects where object_id = :object_id
+        }]
+        aa_equals "Object is not there anymore" \
+            [string is true -strict $orm_exists_p] [string is true -strict $db_exists_p]
+    }
+}
+
+
 # Local variables:
 #    mode: tcl
-#    tcl-indent-level: 2
+#    tcl-indent-level: 4
 #    indent-tabs-mode: nil
 # End: