diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/Spec.hs | 19 | ||||
| -rw-r--r-- | test/test1.f90 | 8 |
2 files changed, 16 insertions, 11 deletions
diff --git a/test/Spec.hs b/test/Spec.hs index 1c9fc48..cd10913 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -1,6 +1,19 @@ -import Lib (someFunc, someFunc2) +import Development.Shake.FilePath ( (</>) ) +import Fpm ( Arguments(..) + , Command(..) + , start + ) +import System.Directory ( withCurrentDirectory ) main :: IO () main = do - someFunc - someFunc2 + testHelloWorld + testHelloComplex + +testHelloWorld :: IO () +testHelloWorld = + withCurrentDirectory "hello_world" $ start $ Arguments Run False + +testHelloComplex :: IO () +testHelloComplex = + withCurrentDirectory "hello_complex" $ start $ Arguments Test False diff --git a/test/test1.f90 b/test/test1.f90 deleted file mode 100644 index f577b58..0000000 --- a/test/test1.f90 +++ /dev/null @@ -1,8 +0,0 @@ -program test1 -implicit none -integer :: i -i = 5+5 -print *, i -print *, "Fortran test code executed" -print *, "TESTS PASSED" -end program |