_trackback__trackback_new (private)

 _trackback__trackback_new

Defined in packages/trackback/tcl/test/trackback-procs.tcl

Partial Call Graph (max 5 caller/called nodes):
%3 aa_equals aa_equals (public) aa_log aa_log (public) aa_log_result aa_log_result (public) aa_run_with_teardown aa_run_with_teardown (public) ad_conn ad_conn (public) _trackback__trackback_new _trackback__trackback_new _trackback__trackback_new->aa_equals _trackback__trackback_new->aa_log _trackback__trackback_new->aa_log_result _trackback__trackback_new->aa_run_with_teardown _trackback__trackback_new->ad_conn

Testcases:
No testcase defined.
Source code:
        
        set _aa_export {}
        set body_count 1
        foreach testcase_body {{

    aa_run_with_teardown  -rollback  -test_code {

            set tb_url "http://foobar.com"
            set object_id [ad_conn path_info]
            set comment_id [db_nextval acs_object_id_seq]

            # Add trackback
            trackback::new  -tb_url $tb_url  -blog_name "Foo"  -object_id $object_id  -comment_id $comment_id  -user_id [ad_conn user_id]  -creation_ip [ad_conn peeraddr]  -content "Foo"  -comment_mime_type "text/plain"  -is_live f  -title "Foo"  -context_id $object_id

            set success_p [db_string success_p {
                select 1 from trackback_pings where tb_url = :tb_url
            } -default "0"]

            aa_equals "trackback was added successfully" $success_p 1
        }
}} {
          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" "trackback_new (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo"
          }
          incr body_count
        }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: