Index: openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.tcl	28 Dec 2004 23:54:00 -0000	1.1.2.2
+++ openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.tcl	29 Dec 2004 02:23:45 -0000	1.1.2.3
@@ -22,6 +22,8 @@
                 # does not work.
                 set old_package_id [ad_conn package_id]
                 ad_conn -set package_id $site_node(package_id)
+                set package_id [ad_conn package_id]
+                set user_id [ad_conn user_id]
 
                 array set default_configs [bug_tracker::get_default_configurations]
                 if { ![info exists default_configs(Bug-Tracker)] } {
@@ -33,6 +35,23 @@
                     bug_tracker::install_parameters_setup -spec $config(parameters)
                     aa_equals "Bug tracker project creation test" [db_string count_projects {}] 1
                 }
+
+                # Create a dummy component
+                db_1row new_component_id {}
+                db_dml new_component {}
+
+                db_1row new_bug_id {}
+                bug_tracker::bug::new \
+                    -bug_id $bug_id \
+                    -package_id $package_id \
+	            -component_id $component_id \
+	            -found_in_version [bug_tracker::conn user_version_id] \
+	            -summary summary \
+	            -description description \
+	            -desc_format text/html \
+                    -keyword_ids {}
+                aa_log_result pass "Successfully created a bug"
+
                 ad_conn -set package_id $old_package_id
             }
         }
Index: openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.xql,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.xql	28 Dec 2004 02:02:57 -0000	1.1.2.1
+++ openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.xql	29 Dec 2004 02:23:45 -0000	1.1.2.2
@@ -8,5 +8,28 @@
     </querytext>
 </fullquery>
 
+<fullquery name="_bug-tracker__project_new.new_component_id">
+    <querytext>
+        select acs_object_id_seq.nextval as component_id
+        from dual
+    </querytext>
+</fullquery>
+
+<fullquery name="_bug-tracker__project_new.new_component">
+    <querytext>
+        insert into bt_components
+        (component_id, project_id, component_name, maintainer)
+        values
+        (:component_id, :package_id, 'Foo', :user_id)
+    </querytext>
+</fullquery>
+
+<fullquery name="_bug-tracker__project_new.new_bug_id">
+    <querytext>
+        select acs_object_id_seq.nextval as bug_id
+        from dual
+    </querytext>
+</fullquery>
+
 </queryset>