_bug-tracker__project_new (private)

 _bug-tracker__project_new

Defined in packages/bug-tracker/tcl/test/bug-tracker-procs.tcl

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

        
        set _aa_export {}
        set body_count 1
        foreach testcase_body {{    

    aa_run_with_teardown  -rollback  -test_code {
            set bt_package_id [lindex [apm_package_ids_from_key -package_key bug-tracker -mounted] 0]
            if { $bt_package_id eq "" } {
                aa_error "Can't find bug-tracker instance."
            } else {

                # Don't believe the bug-tracker Tcl API that misleads you into
                # thinking that you can explicitly pass package_id as a parameter to
                # various procs.  The vile bug_tracker::conn proc guarantees this
                # does not work.
                set old_package_id [ad_conn package_id]
                ad_conn -set package_id $bt_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)"] } {
                    aa_error "Can't find default bug-tracker configuration"                    
                } else {
                    array set config "$default_configs(Bug Tracker)"
                    bug_tracker::delete_all_project_keywords 
                    bug_tracker::install_keywords_setup -spec $config(categories)
                    bug_tracker::install_parameters_setup -spec $config(parameters)
                    aa_equals "Bug tracker project creation test" [db_string count_projects {}] 1
                }

                # Create a dummy component
                bug_tracker::components_flush
                set component_id [db_nextval acs_object_id_seq]
                db_dml new_component {}

                set bug_id [db_nextval acs_object_id_seq]
                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
            }
        }
}} {
          aa_log "Running testcase body $body_count"
          set ::__aa_test_indent [info level]
          set catch_val [catch $testcase_body msg]
          if {$catch_val != 0 && $catch_val != 2} {
              aa_log_result "fail" "project_new (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo"
          }
          incr body_count
        }

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

<fullquery name="_bug-tracker__project_new.count_projects">
    <querytext>
        select count(*)
        from bt_projects
    </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>

packages/bug-tracker/tcl/test/bug-tracker-procs.xql