init-file-resource.tcl

Re-source a test init file with test case definitions to avoid server restart.

Location:

/packages/acs-automated-testing/www/admin/init-file-resource.tcl

Author:

Peter Marklund

CVS ID:

$Id: init-file-resource.tcl,v 1.3 2018/01/19 21:23:51 gustafn Exp $

Related Files

• packages/acs-automated-testing/www/admin/init-file-resource.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
  Re-source a test init file with test case definitions to
  avoid server restart.

  @author Peter Marklund

  @cvs-id $Id: init-file-resource.tcl,v 1.3 2018/01/19 21:23:51 gustafn Exp $
} {
    absolute_file_path
    return_url:localurl
}

ns_log Notice "Sourcing test definition file $absolute_file_path"
apm_source $absolute_file_path

ad_returnredirect $return_url
ad_script_abort

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: