hello world test

Author: perazz

src/fpm_command_line.f90

@@ -52,7 +52,8 @@ module fpm_command_line
           fpm_update_settings, &
           fpm_clean_settings, &
           fpm_publish_settings, &
-          get_command_line_settings
+          get_command_line_settings, &
+          get_fpm_env
 
 type, abstract :: fpm_cmd_settings
     character(len=:), allocatable :: working_dir

test/fpm_test/main.f90

@@ -24,8 +24,7 @@ program fpm_testing
     stat = 0
 
     suite = [ &
-        & new_testsuite("fpm_toml", collect_toml), &
-        & new_testsuite("fpm_compiler", collect_compiler), &
+        & new_testsuite("fpm_toml", collect_toml), &        
         & new_testsuite("fpm_manifest", collect_manifest), &
         & new_testsuite("fpm_filesystem", collect_filesystem), &
         & new_testsuite("fpm_source_parsing", collect_source_parsing), &
@@ -35,7 +34,8 @@ program fpm_testing
         & new_testsuite("fpm_installer", collect_installer), &
         & new_testsuite("fpm_versioning", collect_versioning), &
         & new_testsuite("fpm_settings", collect_settings), &
-        & new_testsuite("fpm_os", collect_os) &
+        & new_testsuite("fpm_os", collect_os), &
+        & new_testsuite("fpm_compiler", collect_compiler) &
         & ]
 
     call get_argument(1, suite_name)

test/fpm_test/test_compiler.f90

@@ -3,7 +3,8 @@ module test_compiler
     use testsuite, only : new_unittest, unittest_t, error_t, test_failed, &
         & check_string
     use fpm_environment, only : OS_WINDOWS, OS_LINUX
-    use fpm_compiler   , only : compiler_t
+    use fpm_compiler   , only : compiler_t, new_compiler
+    use fpm_command_line, only: get_fpm_env
     implicit none
     private
 
@@ -25,7 +26,29 @@ end subroutine collect_compiler
     subroutine test_check_fortran_source_runs(error)
         !> Error handling
         type(error_t), allocatable, intent(out) :: error
-
+        
+        character(:), allocatable :: fc,cc,cxx
+        
+        
+        type(compiler_t) :: compiler
+
+        !> Get default compiler
+        fc  = get_fpm_env("FC", default="gfortran")
+        cc  = get_fpm_env("CC", default=" ")
+        cxx = get_fpm_env("CXX", default=" ")
+        
+        call new_compiler(compiler, fc, cc, cxx, echo=.false., verbose=.false.)
+
+        if (compiler%is_unknown()) then
+            call test_failed(error, "Cannot initialize Fortran compiler")
+            return
+        end if
+        
+        !> Test fortran-source runs
+        if (.not.compiler%check_fortran_source_runs("print *, 'Hello world!'; end")) then 
+            call test_failed(error, "Cannot run Fortran hello world")
+            return
+        end if        
 
     end subroutine test_check_fortran_source_runs