Index: openacs-4/packages/acs-content-repository/tcl/test/acs-content-repository-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/test/acs-content-repository-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-content-repository/tcl/test/acs-content-repository-procs.tcl	2 Nov 2003 15:54:36 -0000	1.1
@@ -0,0 +1,42 @@
+ad_library {
+    Automated tests.
+
+    @author Joel Aufrecht
+    @creation-date 2 Nov 2003
+    @cvs-id $Id: acs-content-repository-procs.tcl,v 1.1 2003/11/02 15:54:36 joela Exp $
+}
+
+aa_register_case acs_content_repository_trivial_smoke_test {
+    Minimal smoke test.
+} {    
+
+    aa_run_with_teardown \
+        -rollback \
+        -test_code {
+            # initialize random values
+            set name [ad_generate_random_string]
+            set name_2 [ad_generate_random_string]
+
+            # there is no function in the api to directly retrieve a key
+            # so instead we have to create a child of another and then
+            # retrieve the parent's child
+
+            set new_keyword_id [cr::keyword::new -heading $name]
+            aa_true "created a new cr_keyword" [exists_and_not_null new_keyword_id]
+            set new_keyword_id_2 [cr::keyword::new -heading $name_2 -parent_id $new_keyword_id]
+            aa_true "created a child cr_keyword" [exists_and_not_null new_keyword_id_2]
+
+            set children [cr::keyword::get_children -parent_id $new_keyword_id ]
+            aa_true "child is returned" [string match "*$new_keyword_id_2*" $children]
+
+            set delete_result [cr::keyword::delete -keyword_id $new_keyword_id_2]
+
+            set children_after_delete [cr::keyword::get_children -parent_id $new_keyword_id ]
+            aa_true "child is not returned after deletion" ![string match "*$new_keyword_id_2*" $children_after_delete]
+
+            # teardown doesn't seem to eliminate this:
+            set delete_result [cr::keyword::delete -keyword_id $new_keyword_id]
+
+            # would test that delete works but there's no relevant function in the API 
+        }
+}
\ No newline at end of file