Index: openacs-4/packages/acs-content-repository/tcl/test/content-search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/test/content-search-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-content-repository/tcl/test/content-search-procs.tcl	6 Sep 2006 14:18:42 -0000	1.1
@@ -0,0 +1,156 @@
+ad_library {
+    Tests for search queue triggers
+}
+
+namespace eval cr_item_search:: {}
+
+ad_proc -private cr_item_search::assert_not_in_queue {
+    -revision_id
+    -events
+} {
+    We use this test many times.
+    Check if revision_id is in the search observer queue
+} {
+    aa_false "Revision ${revision_id} is not queued for search events $events" \
+	[expr [db_string check_queue \
+		   "select count(*) from search_observer_queue 
+                            where object_id=:revision_id
+                            and event in
+                            ([template::util::tcl_to_sql_list $events])"\
+		   -default 0]]
+}
+
+ad_proc -private cr_item_search::assert_in_queue {
+    -revision_id
+    -events
+} {
+    We use this test many times.
+    Check if revision_id is in the search observer queue
+    
+    @param events List of events to check for (INSERT,UPDATE,DELETE)
+} {
+    aa_true "Revision ${revision_id} is queued for search events $events" \
+	[expr [db_string check_queue \
+		   "select count(*) from search_observer_queue 
+                            where object_id=:revision_id
+                            and event in 
+                            ([template::util::tcl_to_sql_list $events])"\
+		   -default 0]]
+}
+
+ad_proc -private cr_item_search::remove_from_queue {
+    -revision_id
+} {
+    Remove all entries from queue
+} {
+    db_dml remove "delete from search_observer_queue
+                   where object_id=:revision_id"
+}
+
+ad_proc -private cr_item_search::test_setup {
+} {
+    setup test environment for search trigger tests
+} {
+    set folder_name [ns_mktemp cr_item_search_XXXXXX]
+    set folder_id [content::folder::new -name $folder_name]
+    content::folder::register_content_type -folder_id $folder_id -content_type content_revision -include_subtypes t
+    return $folder_id
+}
+
+aa_register_case -cats db cr_item_serch_insert_trigger {
+    Test search insert trigger
+} {
+    aa_run_with_teardown \
+	-rollback \
+	-test_code \
+	{
+	    set folder_id [cr_item_search::test_setup]
+
+	}
+}
+
+aa_register_case -cats db cr_item_search_update_trigger {
+    Test search update trigger
+} {
+    aa_run_with_teardown \
+	-rollback \
+	-test_code \
+	{
+	    set folder_id [cr_item_search::test_setup]
+	    set item_name [ns_mktemp cr_itemXXXXXX]
+
+	    # test new item, not live
+	    set item_id [content::item::new \
+			     -name $item_name \
+			     -title $item_name \
+			     -parent_id $folder_id \
+			     -is_live f]
+	    # make sure the item exists first
+	    aa_true "Item exists" [expr {[content::item::get_id \
+					      -item_path $item_name \
+					      -root_folder_id $folder_id] \
+					     ne ""}]
+	    aa_true "Item is NOT live" [expr {[content::item::get_live_revision \
+						   -item_id $item_id] eq ""}]
+	    aa_true "But a revision exists" \
+		[expr \
+		     {[set latest_revision \
+			   [content::item::get_latest_revision \
+				-item_id $item_id]] ne ""}]
+	    aa_false "Item is NOT queued for search indexing" \
+		[expr [db_string check_queue \
+			   "select 1 from search_observer_queue 
+                            where object_id=:latest_revision"\
+			  -default 0]]
+	    aa_log "Update Item, still no live revision"
+	    content::item::update \
+		-item_id $item_id \
+		-attributes [list [list name $item_name]]
+	    cr_item_search::assert_not_in_queue \
+		-revision_id $latest_revision \
+		-events [list INSERT UPDATE]
+	    aa_log "Set live revision no publish date"
+	    content::item::set_live_revision \
+		-revision_id $latest_revision
+	    cr_item_search::assert_in_queue \
+		-revision_id $latest_revision \
+		-events [list INSERT UPDATE]
+	    content::item::unset_live_revision -item_id $item_id
+	    cr_item_search::assert_in_queue \
+		-revision_id $latest_revision \
+		-events [list DELETE]
+	    cr_item_search::remove_from_queue \
+		-revision_id $latest_revision
+
+	    db_dml set_publish_date \
+		"update cr_revisions set publish_date=current_timestamp + '1 day' :: interval where revision_id=:latest_revision"
+	    aa_log "Publish Date in future, live revision not set"
+	    cr_item_search::assert_not_in_queue \
+		-revision_id $latest_revision \
+		-events [list INSERT UPDATE]
+	    # NOTE set live revision without pl/sql proc which also set
+	    # publish date to right now! It should be impossible to have
+	    # a live revision with publish date in the future
+	    # but the point here is to never search an unpublished item
+	    db_dml set_live_revision \
+		"update cr_items set live_revision=latest_revision
+                 where item_id=:item_id"
+	    aa_log "Publish date in future, live revision set"
+	    cr_item_search::assert_not_in_queue \
+		-revision_id $latest_revision \
+		-events [list INSERT UPDATE]
+	    
+	}
+}
+
+aa_register_case -cats db cr_item_search_delete_trigger {
+    Test search delete trigger
+} {
+    aa_run_with_teardown \
+	-rollback \
+	-test_code \
+	{
+	    set folder_id [cr_item_search::test_setup]
+
+	}
+}
\ No newline at end of file