fortun.f90

!------------------------------------------------------------------------
!
!> Main program fortun.
!
!> fortun looks for files starting with 'test_' and compiles them if 
!> needed, then it runs the test written in these files
!
!------------------------------------------------------------------------

program fortun

  use fortun_input, only : check_arguments, get_cwd
  use fortun_generate, only : generate

  implicit none 

  character(len=1024) :: cwd  !< current working directory
  character(len=1024) :: test_cmd !< command to run the tests

  !-- process input: command line arguments, etc
  if (.not.check_arguments()) then   ! todo: display help/usage 
     print *, "pb arguments"
     stop
  end if
  
  !-- generation of test executable
  call get_cwd(cwd)
  call generate(trim(cwd), trim(cwd))
  
  !-- run all tests
  test_cmd = "./fortun_test"    !< only for linux now, should provide a better way
  call system(trim(test_cmd))   


  !-- display results

end program fortun