Index: openacs-4/packages/acs-tcl/tcl/test/apm-parameter-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/apm-parameter-test-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/test/apm-parameter-test-procs.tcl	17 Aug 2006 08:43:17 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/test/apm-parameter-test-procs.tcl	25 Mar 2010 01:02:16 -0000	1.3
@@ -13,25 +13,19 @@
     set package_key "acs-tcl"
     set default_value "5"
     set datatype "number"
-    aa_log "Registering a parameter"
-    apm_parameter_register -parameter_id $parameter_id $parameter_name $description $package_key $default_value $datatype
+    set scope "instance"
+    aa_log "Registering an instance parameter"
+    apm_parameter_register -parameter_id $parameter_id -scope $scope $parameter_name $description $package_key $default_value $datatype
 
     set package_id [apm_package_id_from_key $package_key]    
-    aa_true "check apm_parameter_register" [string equal [parameter::get -package_id $package_id -parameter $parameter_name] $default_value]
-}
+    aa_true "check apm_parameter_register instance parameter" [string equal [parameter::get -package_id $package_id -parameter $parameter_name] $default_value]
+    aa_log "Unregistering an instance parameter"
+    apm_parameter_unregister $parameter_id
 
-aa_register_case -cats {api smoke} parameter_unregister_test {
-    Test the unregister of a parameter
-} {    
-    set parameter_id [db_nextval "acs_object_id_seq"]
-    set parameter_name [ad_generate_random_string]
-    set description "Description for the new parameter"
-    set package_key "acs-tcl"
-    set default_value "10"
-    set datatype "number"
-    aa_log "Registering a parameter"
-    apm_parameter_register -parameter_id $parameter_id $parameter_name $description $package_key $default_value $datatype
+    set scope "global"
+    aa_log "Registering a global parameter"
+    apm_parameter_register -parameter_id $parameter_id -scope $scope $parameter_name $description $package_key $default_value $datatype
+    aa_true "check apm_parameter_register global parameter" [string equal [parameter::get_global_value -package_key $package_key -parameter $parameter_name] $default_value]
+    aa_log "Unregistering an global parameter"
     apm_parameter_unregister $parameter_id
-    set package_id [apm_package_id_from_key $package_key]    
-    aa_true "check apm_parameter_unregister" [string equal [parameter::get -package_id $package_id -parameter $parameter_name] ""]
 }