Index: openacs-4/packages/logger/tcl/test/logger-test-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/tcl/test/logger-test-init.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/logger/tcl/test/logger-test-init.tcl	5 Apr 2003 13:11:09 -0000	1.2
+++ openacs-4/packages/logger/tcl/test/logger-test-init.tcl	6 Apr 2003 09:27:14 -0000	1.3
@@ -41,6 +41,12 @@
         set projection_start_time "2003-04-10"
         set projection_end_time "2003-04-20"
         set projection_value "10"
+        array set hour_measurement_1 {
+            value 11
+            time_stamp "2003-04-15"
+            description "I worked on the time logger"
+        }
+        
 
         # Create a package
         set package_id [apm_package_instance_new -instance_name $package_name \
@@ -116,8 +122,16 @@
                                                                       $projection_value
 
         # Create mesurements
+        set hour_measurement_1_id [logger::measurement::new -project_id $project_id \
+                                                            -variable_id $hours_var_id \
+                                                            -value $hour_measurement_1(value) \
+                                                            -time_stamp $hour_measurement_1(time_stamp) \
+                                                            -description $hour_measurement_1(description)]
 
         # Check that measurements are retrievable
+        logger::measurement::get -measurement_id $hour_measurement_1_id -array hour_measurement_1_retr
+        aa_equals "Value of measurements is retrievable" $hour_measurement_1_retr(value) \
+                                                         $hour_measurement_1(value)
 
     }  -teardown_code { 
         #####