Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-apm-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-apm-procs.tcl	31 Aug 2006 20:08:51 -0000	1.1
@@ -0,0 +1,73 @@
+ad_library {
+    Tcl helper procedures for the acs-automated-testing tests of
+    the acs-tcl package.
+
+    @author Veronica De La Cruz (veronica@viaro.net)
+    @creation-date  11 August 2006
+}
+
+aa_register_case -cats {api smoke} -procs { apm_parameter_register } test_apm_parameter__register {
+    Test the apm_parameter_register procedure
+     
+    @author Veronica De La Cruz (veronica@viaro.net)
+    
+} {
+    aa_run_with_teardown -rollback -test_code {
+
+        set package_list [db_list get_packages "select package_key from apm_package_types"]
+        aa_log "List of packages:\{$package_list\}"
+        set list_index [randomRange [expr [llength $package_list] - 1]]
+        set package_key [lrange $package_list $list_index $list_index]
+      
+	set parameter_name [ad_generate_random_string]
+        set description [ad_generate_random_string]
+        
+
+        set values { {number} {string} }
+        
+        set index [randomRange 1]      
+         
+        
+       # Choose randomly the parameter whether will be string or number.
+       # Also choose randomly its default value.
+        set datatype [lrange $values $index $index] 
+        if { [string equal $datatype "number"]} {
+            set default_value 0
+        } else {
+            set default_value [ad_generate_random_string]
+        }
+       
+       aa_log "Paramater to be added: name : $parameter_name \n descr: $description \n datatype: $datatype \n default_value: $default_value"
+
+       set parameter_id [apm_parameter_register $parameter_name $description $package_key $default_value $datatype]
+
+	aa_true "Parameter register succeeded" [exists_and_not_null parameter_id]        
+     
+    }
+}
+
+aa_register_case -cats {api smoke} -procs {apm_package_instance_new} test_apm_package_instance__new {
+     Test the apm_package_instance_new procedure
+     @author Veronica De La Cruz (veronica@viaro.net)
+     
+} {
+
+    aa_run_with_teardown -rollback -test_code {
+
+        set package_list [db_list get_packages "select package_key from apm_package_types"]
+        aa_log "List of packages:\{$package_list\}"
+        set list_index [randomRange [expr [llength $package_list] - 1]]
+        set package_key [lrange $package_list $list_index $list_index]
+        
+        set instance_name $package_key 
+        append instance_name "-[ad_generate_random_string]"
+        
+        aa_log "Package to be instantiated: $package_key"
+        aa_log "Instance name to be added: $instance_name"
+        set error_ocurred [catch {set package_id [apm_package_instance_new -package_key $package_key -instance_name $instance_name ]} err_men]
+        aa_log "Error Message $error_ocurred: $err_men "
+        aa_true "Setting the new instance succeeded" [exists_and_not_null package_id]
+        
+     
+    }
+}