add static library test

Author: perazz

ci/run_tests.sh

@@ -326,5 +326,11 @@ pushd shared_app_only
 test $EXIT_CODE -eq 0
 popd
 
+# Static library dependencies
+pushd static_app_only
+"$fpm" test || EXIT_CODE=$?
+test $EXIT_CODE -eq 0
+popd
+
 # Cleanup
 rm -rf ./*/build

example_packages/shared_app_only/fpm.toml

@@ -1,6 +1,7 @@
 # App only, use shared lib from other folder
 name = "shared_app_only"
-library.shared=true
+library.type="shared"
+install.library=true
 [dependencies]
 shared_lib_extra = { path = "../shared_lib_extra" }
 [dev-dependencies]

example_packages/static_app_only/app/main.f90

@@ -0,0 +1,4 @@
+program main
+  use testdrive
+  print *, 'Hello, world!'
+end program main

example_packages/static_app_only/fpm.toml

@@ -0,0 +1,8 @@
+# App only, use shared lib from other folder
+name = "shared_app_only"
+library.type="static"
+install.library=true
+[dependencies]
+shared_lib_extra = { path = "../shared_lib_extra" }
+[dev-dependencies]
+test-drive = { git = "https://github.com/fortran-lang/test-drive", tag="v0.5.0" }

example_packages/static_app_only/test/test.f90

@@ -0,0 +1,50 @@
+module test_shared_lib
+    use testdrive, only : new_unittest, unittest_type, error_type, check
+    use shared_lib, only: test_something
+
+    implicit none
+
+    public :: collect
+
+
+contains
+
+    !> Collect all exported unit tests
+    subroutine collect(testsuite)
+        !> Collection of tests
+        type(unittest_type), allocatable, intent(out) :: testsuite(:)
+
+        testsuite = [ new_unittest("shared_lib", test_shared) ]
+
+    end subroutine collect
+
+    subroutine test_shared(error)
+        type(error_type), allocatable, intent(out) :: error
+        
+        call check(error, test_something(), 123, "Should be test_something==123")
+        
+    end subroutine test_shared 
+
+end module test_shared_lib
+
+program tester
+    use, intrinsic :: iso_fortran_env, only : error_unit
+    use testdrive, only : run_testsuite, new_testsuite, testsuite_type
+    use test_shared_lib, only : collect
+    implicit none
+    integer :: stat
+    type(testsuite_type), allocatable :: testsuite
+    character(len=*), parameter :: fmt = '("#", *(1x, a))'
+
+    stat = 0
+
+    testsuite = new_testsuite("shared_lib", collect)
+
+    write(error_unit, fmt) "Testing:", testsuite%name
+    call run_testsuite(testsuite%collect, error_unit, stat)
+
+    if (stat > 0) then
+        write(error_unit, '(i0, 1x, a)') stat, "test(s) failed!"
+        error stop 
+    end if
+end program tester