Changeset 84 for trunk/test/src/RpLibraryF_test.f

Timestamp:

Oct 5, 2005, 1:21:24 PM (19 years ago)

Author:

dkearney

Message:

1. added "install" target to make file for copying files over to /opt/rappture
2. added targets for python to build and install the units module
3. added fortran stub functions for library and units.

RpLibraryF_test.f compiles, just with warnings, because i'm still working on it.

File:

• trunk/test/src/RpLibraryF_test.f (modified) (2 diffs)

trunk/test/src/RpLibraryF_test.f

@@ -41 +41 @@
       END SUBROUTINE  test_get_str
 
+      SUBROUTINE  test_get_dbl(lib,path)
+        integer lib
+        double precision rslt, rp_lib_get_double
+        character*100 path, retText
+
+        print *,"TESTING GET: path = ",path
+
+        rslt = rp_lib_get_double(lib, path)
+
+        print *,"rslt = ",rslt
+      END SUBROUTINE  test_get_dbl
+
       program rplib_f_tests
         IMPLICIT NONE
@@ -65 +77 @@
         !print *,"strVal = ",strVal
 
-        ! TESTING GET
+        ! TESTING GET STRING
         path = "input.number(min).current"
         call test_get_str(driver, path)
+
+        ! TESTING GET DOUBLE
+        path = "input.number(min).current"
+        call test_get_dbl(driver, path)