Index: openacs-4/packages/acs-admin/tcl/test/acs-admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/tcl/test/acs-admin-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/tcl/test/acs-admin-procs.tcl	2 Nov 2003 15:51:33 -0000	1.1
+++ openacs-4/packages/acs-admin/tcl/test/acs-admin-procs.tcl	16 Nov 2003 10:17:35 -0000	1.2
@@ -16,4 +16,21 @@
             set header_result [apm_header]
             aa_true "apm_header returns a non-null string?" [exists_and_not_null header_result]
         }
-}
\ No newline at end of file
+}
+
+aa_register_case apm_higher_version_installed_p {
+    Test apm_higher_version_installed_p proc.
+} {    
+
+    aa_run_with_teardown \
+        -rollback \
+        -test_code {
+
+            set is_lower [apm_higher_version_installed_p acs-admin "1"]
+            aa_equals "is the version of acs-admin higher than 0.1d?" $is_lower -1
+
+            set is_higher [apm_higher_version_installed_p acs-admin "1000"]
+            aa_equals "is the version of acs-admin lower than 1000.1d?" $is_higher 1
+
+        }
+}