add Windows, UNIX command tests

Author: perazz

test/fpm_test/test_backend.f90

@@ -8,6 +8,7 @@ module test_backend
                            add_target, add_dependency
     use fpm_backend, only: sort_target, schedule_targets
     use fpm_strings, only: string_t
+    use fpm_environment, only: OS_LINUX
     use fpm_compile_commands, only: compile_command_t, compile_command_table_t
     implicit none
     private
@@ -433,7 +434,7 @@ subroutine compile_commands_register_from_string(error)
         character(len=*), parameter :: cmd_line = "gfortran -c example.f90 -o example.o"
 
         ! Register a raw command line string
-        call table%register(cmd_line, error)
+        call table%register(cmd_line, OS_LINUX, error)
         if (allocated(error)) return
 
         if (.not.allocated(table%command)) then

test/fpm_test/test_compiler.f90

@@ -4,8 +4,9 @@ module test_compiler
         & check_string
     use fpm_environment, only : OS_WINDOWS, OS_LINUX
     use fpm_compiler   , only : compiler_t, new_compiler, tokenize_flags
-    use fpm_strings    , only : string_t
+    use fpm_strings    , only : string_t, operator(==)
     use fpm_command_line, only: get_fpm_env
+    use fpm_compile_commands, only: compile_command_table_t
     implicit none
     private
 
@@ -21,7 +22,9 @@ subroutine collect_compiler(testsuite)
 
         testsuite = [ &
             & new_unittest("check-fortran-source-runs", test_check_fortran_source_runs), &
-            & new_unittest("tokenize-flags", test_tokenize_flags)]
+            & new_unittest("tokenize-flags", test_tokenize_flags), &
+            & new_unittest("compile-commands-unix", test_register_compile_command_unix), &
+            & new_unittest("compile-commands-windows", test_register_compile_command_windows)]
 
     end subroutine collect_compiler
 
@@ -127,4 +130,68 @@ subroutine test_tokenize_flags(error)
 
     end subroutine test_tokenize_flags
 
+    subroutine test_register_compile_command_unix(error)
+        type(error_t), allocatable, intent(out) :: error
+
+        type(compile_command_table_t) :: table
+        type(string_t), allocatable :: expected(:)
+        integer :: i
+
+        call table%register('gfortran -c -I/usr/include -O2 -Wall main.f90', OS_LINUX, error)
+        if (allocated(error)) return
+
+        if (size(table%command) /= 1) then
+            call test_failed(error, "Expected 1 command registered")
+            return
+        end if
+
+        associate(c => table%command(1))
+            ! Expect these arguments in order
+            expected = [ string_t('gfortran'), string_t('-c'), &
+                         string_t('-I/usr/include'), string_t('-O2'), &
+                         string_t('-Wall'), string_t('main.f90') ]
+
+            if (.not. c%arguments == expected) then
+                do i = 1, size(c%arguments)
+                    print *, "Argument", i, ":", c%arguments(i)%s
+                end do
+                call test_failed(error, "Unix compile command arguments did not match expected tokens")
+                return
+            end if
+        end associate
+    end subroutine test_register_compile_command_unix
+
+    subroutine test_register_compile_command_windows(error)
+        type(error_t), allocatable, intent(out) :: error
+
+        type(compile_command_table_t) :: table
+        type(string_t), allocatable :: expected(:)
+        integer :: i
+
+        call table%register('ifort /c /I"C:\Program Files\Libs" /O2 /W4 main.f90', OS_WINDOWS, error)
+        if (allocated(error)) return
+
+        if (size(table%command) /= 1) then
+            call test_failed(error, "Expected 1 command registered")
+            return
+        end if
+
+        associate(c => table%command(1))
+            ! Expected Windows-style tokens
+            expected = [ string_t('ifort'), string_t('/c'), &
+                         string_t('/IC:\Program Files\Libs'), string_t('/O2'), &
+                         string_t('/W4'), string_t('main.f90') ]
+
+            if (.not. c%arguments == expected) then
+                do i = 1, size(c%arguments)
+                    print *, "Argument", i, ":", c%arguments(i)%s
+                end do
+                call test_failed(error, "Windows compile command arguments did not match expected tokens")
+                return
+            end if
+        end associate
+    end subroutine test_register_compile_command_windows
+
+
+
 end module test_compiler