trackback-procs.tcl

Automated tests.

Location:
packages/trackback/tcl/test/trackback-procs.tcl
Created:
11 November 2003
Author:
Simon Carstensen
CVS Identification:
$Id: trackback-procs.tcl,v 1.4 2018/04/17 14:47:03 hectorr Exp $

Procedures in this file

Detailed information

_trackback__trackback_new (private)

 _trackback__trackback_new

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.
[ hide source ] | [ make this the default ]

Content File Source

ad_library {
    Automated tests.

    @author Simon Carstensen
    @creation-date 11 November 2003
    @cvs-id $Id: trackback-procs.tcl,v 1.4 2018/04/17 14:47:03 hectorr Exp $
}

aa_register_case trackback_new {
    Test the trackback::new proc.
} {

    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
        }
}