_rss-support__rss__gen_report (private)

 _rss-support__rss__gen_report

Defined in packages/rss-support/tcl/test/rss-generation-service-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 impl_id [rss::test::require_impl_id]

            set summary_context_id [db_string any_object_without_subscription {
                select max(object_id) from acs_objects o
                where not exists (select 1 from rss_gen_subscrs
                                  where summary_context_id = o.object_id)
            }]

            set impl_owner_name rss-support
            set impl_name test_rss

            set subscription_id [rss_support::add_subscription  -summary_context_id $summary_context_id  -impl_name $impl_name  -owner $impl_owner_name]

            aa_true "rss_support::subscription_exists tells that a subscription exists"  [rss_support::subscription_exists  -summary_context_id $summary_context_id  -impl_name $impl_name]

            aa_equals "API retrieves the subscription"  [rss_support::get_subscr_id  -summary_context_id $summary_context_id  -impl_name $impl_name  -owner $impl_owner_name]  $subscription_id

            set report_file [rss_gen_report_file  -summary_context_id $summary_context_id  -impl_name $impl_name]

            aa_log "Deleting '$report_file'"
            file delete -- $report_file
            aa_false "File '$report_file' does not exist" [file exists $report_file]

            aa_log "Generating the report"
            rss_gen_report $subscription_id

            aa_true "File '$report_file' was created as expected" [file exists $report_file]

            set rfd [open $report_file r]
            set xml [read $rfd]
            close $rfd

            aa_false "File '$report_file' contains valid XML" [catch {
                dom parse $xml doc
            }]

            rss_support::del_subscription  -summary_context_id $summary_context_id  -impl_name $impl_name  -owner $impl_owner_name

            aa_false "Subscription was deleted" [db_0or1row check {
                select 1 from rss_gen_subscrs
                where subscr_id = :subscription_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" "rss__gen_report (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo"
          }
          incr body_count
        }

XQL Not present:

Generic, PostgreSQL, Oracle