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.10 -r1.1.2.11
--- openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl	23 Apr 2019 17:00:38 -0000	1.1.2.10
+++ openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl	24 Apr 2019 12:33:57 -0000	1.1.2.11
@@ -8,6 +8,17 @@
 } {
     aa_run_with_teardown -test_code {
 
+        aa_section "Quick trivial CRUD of an object"
+        aa_log "Create object"
+        set orm_object [::xo::db::Object new]
+        aa_log "Save new"
+        set object_id [$orm_object save_new]
+        aa_log "Fetch"
+        set orm_object [::xo::db::Class get_instance_from_db -id $object_id]
+        aa_log "Save"
+        $orm_object save
+        aa_log "Delete"
+        $orm_object delete
 
         aa_section "Object creation"
         aa_log "Create object"
@@ -130,6 +141,18 @@
 } {
     aa_run_with_teardown -test_code {
 
+        aa_section "Quick trivial CRUD of an object"
+        aa_log "Create object"
+        set orm_object [::xo::db::CrItem new]
+        aa_log "Save new"
+        set object_id [$orm_object save_new]
+        aa_log "Fetch"
+        set orm_object [::xo::db::CrClass get_instance_from_db -item_id $object_id]
+        aa_log "Save"
+        $orm_object save
+        aa_log "Delete"
+        $orm_object delete
+
         aa_section "Object creation"
         aa_log "Create object"
         set orm_object [::xo::db::CrItem new]