Index: openacs-4/packages/acs-automated-testing/www/admin/clear.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/clear.tcl,v
diff -u -N -r1.2 -r1.2.26.1
--- openacs-4/packages/acs-automated-testing/www/admin/clear.tcl	10 Sep 2002 22:22:04 -0000	1.2
+++ openacs-4/packages/acs-automated-testing/www/admin/clear.tcl	5 Aug 2014 12:40:51 -0000	1.2.26.1
@@ -4,8 +4,8 @@
   {package_key ""}
   {category:aa_test_category ""}
   {view_by:aa_test_view_by "package"}
-  {testcase_id:nohtml ""}
-  {quiet "0"}
+  {testcase_id:naturalnum ""}
+  {quiet:boolean "0"}
 } -properties {
 }
 
Index: openacs-4/packages/acs-automated-testing/www/admin/component.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/component.tcl,v
diff -u -N -r1.3 -r1.3.22.1
--- openacs-4/packages/acs-automated-testing/www/admin/component.tcl	10 Sep 2003 08:54:31 -0000	1.3
+++ openacs-4/packages/acs-automated-testing/www/admin/component.tcl	5 Aug 2014 12:40:51 -0000	1.3.22.1
@@ -1,7 +1,7 @@
 ad_page_contract {
   @cvs-id $Id$
 } {
-  component_id:nohtml
+  component_id:naturalnum,nonull
   package_key:nohtml
 } -properties {
   title:onevalue
@@ -18,9 +18,9 @@
 foreach component [nsv_get aa_test components] {
   if {$component_id == [lindex $component 0] &&
       $package_key == [lindex $component 1]} {
-    set component_desc     [lindex $component 2]
-    set component_file     [lindex $component 3]
-    set component_body    [lindex $component 4]
+    set component_desc [lindex $component 2]
+    set component_file [lindex $component 3]
+    set component_body [lindex $component 4]
   }
 }
 
Index: openacs-4/packages/acs-automated-testing/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/index.tcl,v
diff -u -N -r1.8 -r1.8.10.1
--- openacs-4/packages/acs-automated-testing/www/admin/index.tcl	29 Aug 2007 14:32:38 -0000	1.8
+++ openacs-4/packages/acs-automated-testing/www/admin/index.tcl	5 Aug 2014 12:40:51 -0000	1.8.10.1
@@ -1,13 +1,13 @@
 ad_page_contract {
     @cvs-id $Id$
 } {
-    {quiet 0}
+    {quiet:boolean 0}
     {by_package_key ""}
     {by_category:aa_test_category ""}
     {view_by:aa_test_view_by "package"}
-    {stress 0}
-    {security_risk 0}
-    {populator 0}
+    {stress:boolean 0}
+    {security_risk:boolean 0}
+    {populator:boolean 0}
 } -properties {
     context_bar:onevalue
     title:onevalue
@@ -36,8 +36,7 @@
     set testcase_desc [lindex $testcase 1]
     set package_key   [lindex $testcase 3]
     set categories    [lindex $testcase 4]
-    set results("$testcase_id,$package_key") \
-        [list $testcase_desc $package_key $categories]
+    set results("$testcase_id,$package_key") [list $testcase_desc $package_key $categories]
     set packages($package_key) [list 0 0 0]
 }
 
Index: openacs-4/packages/acs-automated-testing/www/admin/rerun.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/rerun.tcl,v
diff -u -N -r1.4 -r1.4.10.1
--- openacs-4/packages/acs-automated-testing/www/admin/rerun.tcl	10 Jan 2007 21:22:02 -0000	1.4
+++ openacs-4/packages/acs-automated-testing/www/admin/rerun.tcl	5 Aug 2014 12:40:51 -0000	1.4.10.1
@@ -4,10 +4,10 @@
     {package_key ""}
     {category:aa_test_category ""}
     {view_by:aa_test_view_by "package"}
-    {testcase_id:nohtml ""}
-    {quiet "0"}
-    {stress "0"}
-    {security_risk "0"}
+    {testcase_id:naturalnum ""}
+    {quiet:boolean "0"}
+    {stress:boolean "0"}
+    {security_risk:boolean "0"}
 } -properties {
 }
 
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 -N -r1.9 -r1.9.10.1
--- openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl	30 Nov 2007 18:16:42 -0000	1.9
+++ openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl	5 Aug 2014 12:40:51 -0000	1.9.10.1
@@ -1,10 +1,10 @@
 ad_page_contract {
     @cvs-id $Id$
 } {
-    testcase_id:nohtml
+    testcase_id:naturalnum,nonull
     package_key:nohtml
-    {showsource 0}
-    {quiet 1}
+    {showsource:boolean 0}
+    {quiet:boolean 1}
 } -properties {
     title:onevalue
     context_bar:onevalue