aa_test::parse_install_file (public)
aa_test::parse_install_file -path path -array array
Defined in packages/acs-automated-testing/tcl/aa-test-procs.tcl
Processes the xml report outputted from install.sh for display.
- Switches:
- -path (required)
- -array (required)
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: upvar 1 $array service set tree [xml_parse -persist [template::util::read_file $path]] set root_node [xml_doc_get_first_node $tree] foreach entry { name os dbtype dbversion webserver openacs_cvs_flag adminemail adminpassword install_begin_epoch install_end_epoch install_end_timestamp num_errors install_duration install_duration_pretty script_path description } { set service($entry) "n/a" } set service(path) $path set service(filename) [file tail $path] set service(parse_errors) {} set service(name) [xml_node_get_attribute $root_node "name"] if { $service(name) eq "" } { append service(parse_error) "No service name attribute;" } foreach child [xml_node_get_children $root_node] { set info_type [xml_node_get_attribute $child "type"] if { $info_type eq "" } { append service(parse_error) "No type on info tag;" continue } set info_type [string map {- _} $info_type] set info_value [xml_node_get_content $child] set service($info_type) $info_value } if { [string is integer -strict $service(install_begin_epoch)] && [string is integer -strict $service(install_end_epoch)] } { set service(install_duration) [expr {$service(install_end_epoch) - $service(install_begin_epoch)}] set service(install_duration_pretty) [util::interval_pretty -seconds $service(install_duration)] } # TODO: Not working set service(admin_login_url) [export_vars -base $service(url)register/ { { email $service(adminemail) } { password $service(adminpassword) } }] set service(auto_test_url) "$service(url)test/admin" set service(rebuild_cmd) "sh [file join $service(script_path) recreate.sh]"XQL Not present: Generic, PostgreSQL, Oracle