test(unit): add trivial passing test

Author: Damian Rouson

fpm.toml

@@ -8,7 +8,7 @@ copyright = "2020 Sourcery Institute"
 [dev-dependencies]
 vegetables = {git = "https://gitlab.com/everythingfunctional/vegetables", tag = "v5.1.1"}
 
-#[[test]]
-#name="inputOutput"
-#source-dir="tests/unit/input-output"
-#main="main.f90"
+[[test]]
+name="unit"
+source-dir="tests"
+main="main.f90"

tests/example_test.f90

@@ -0,0 +1,24 @@
+module example_test
+    use Vegetables_m, only: Result_t, TestItem_t, describe, it, succeed
+
+    implicit none
+    private
+
+    public :: test_example
+contains
+    function test_example() result(tests)
+        type(TestItem_t) :: tests
+
+        tests = describe(&
+                "something", &
+                [it( &
+                        "does a thing", &
+                        check_example)])
+    end function
+
+    function check_example() result(result_)
+        type(Result_t) :: result_
+
+        result_ = succeed("For now")
+    end function
+end module

tests/main.f90

@@ -0,0 +1,18 @@
+program main
+    use example_test, only : test_example
+    use Vegetables_m, only: TestItem_t, testThat, runTests
+
+    implicit none
+
+    call run()
+contains
+    subroutine run()
+        type(TestItem_t) :: tests
+        type(TestItem_t) :: individual_tests(1)
+
+        individual_tests(1) = test_example()
+        tests = testThat(individual_tests)
+
+        call runTests(tests)
+    end subroutine run
+end program