news::test::assert_status_pretty (private)

 news::test::assert_status_pretty -publish_date publish_date \
    -archive_date archive_date -status status

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

Switches:

-publish_date

(required)

-archive_date

(required)

-status

(required)

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

Testcases:

No testcase defined.

Source code:

    set pretty_status [news_pretty_status -publish_date $publish_date -archive_date $archive_date -status $status]
    aa_true "publish_date=\"$publish_date\" archive_date=\"$archive_date\" status=\"$status\" pretty_status=\"$pretty_status\""  [expr {$pretty_status ne ""}]

    set db_news_status [news::test::get_news_status  -publish_date $publish_date  -archive_date $archive_date]
    aa_equals "publish_date=\"$publish_date\" archive_date=\"$archive_date\"" $db_news_status $status

XQL Not present:

Generic

PostgreSQL XQL file:

packages/news/tcl/test/news-test-procs-postgresql.xql

Oracle XQL file:

packages/news/tcl/test/news-test-procs-oracle.xql