Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	11 Feb 2003 11:05:04 -0000	1.3
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	2 Apr 2003 16:06:44 -0000	1.4
@@ -80,7 +80,7 @@
 } {
   Registers a initialisation class to be used by one or more testcases.  An
   initialisation class can be assigned to a testcase via the
-  aa_register_testcase API.<p>
+  aa_register_case proc.<p>
   <p>
   An initialisation constructor is called <strong>once</strong> before
   running a set of testcases, and the descructor called <strong>once</strong>
Index: openacs-4/packages/acs-automated-testing/www/admin/init-file-resource.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/init-file-resource.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-automated-testing/www/admin/init-file-resource.tcl	2 Apr 2003 16:07:04 -0000	1.1
@@ -0,0 +1,16 @@
+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.1 2003/04/02 16:07:04 peterm Exp $
+} {
+    absolute_file_path
+    return_url
+}
+
+ns_log Notice "Sourcing test definition file $absolute_file_path"
+apm_source $absolute_file_path
+
+ad_returnredirect $return_url
Index: openacs-4/packages/acs-automated-testing/www/admin/testcase.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/testcase.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-automated-testing/www/admin/testcase.adp	10 Feb 2003 14:29:31 -0000	1.4
+++ openacs-4/packages/acs-automated-testing/www/admin/testcase.adp	2 Apr 2003 16:07:04 -0000	1.5
@@ -41,6 +41,7 @@
 
   <ul>
     <li> <a href="rerun?testcase_id=@testcase_id@&package_key=@package_key@&quiet=@quiet@">Rerun</a> this test case </li>
+    <li> <a href="@resource_file_url@">Re-source test definition file</a> </li>
   </ul>
 
 <b>Results</b>
Index: openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl	10 Sep 2002 22:22:05 -0000	1.2
+++ openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl	2 Apr 2003 16:07:04 -0000	1.3
@@ -76,4 +76,7 @@
   }
 }
 
+set return_url "[ad_conn url]?[ad_conn query]"
+set resource_file_url "init-file-resource?[export_vars -url {return_url {absolute_file_path $testcase_file}}]"
+
 ad_return_template