aa_test::write_test_file (private)

 aa_test::write_test_file

Defined in packages/acs-automated-testing/tcl/aa-test-procs.tcl

Writes an XML file with statistics for the most recent test results on the server.

Author:
Peter Marklund

Partial Call Graph (max 5 caller/called nodes):
%3 aa_runseries aa_runseries (private) aa_test::write_test_file aa_test::write_test_file aa_runseries->aa_test::write_test_file aa_test::get_test_doc aa_test::get_test_doc (private) aa_test::write_test_file->aa_test::get_test_doc aa_test::xml_report_dir aa_test::xml_report_dir (public) aa_test::write_test_file->aa_test::xml_report_dir template::util::write_file template::util::write_file (public) aa_test::write_test_file->template::util::write_file util::which util::which (public) aa_test::write_test_file->util::which

Testcases:
No testcase defined.
Source code:
    set xml_doc ""

    set report_dir [aa_test::xml_report_dir]
    if { [file isdirectory $report_dir] } {

        set hostname [exec [::util::which hostname]]
        set server [ns_info server]
        set file_path "$report_dir/${hostname}-${server}-testreport.xml"

        set xml_doc [get_test_doc]

        if { [catch {template::util::write_file $file_path $xml_doc} errmsg] } {
            ns_log Error "Failed to write xml test report to path $file_path - $errmsg"
        }
    }

    return $xml_doc
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: