From f33bb50d3e15035aee97ef2a9c032f511aab447f Mon Sep 17 00:00:00 2001
From: Brad Richardson <brichardson@structint.com>
Date: Sat, 30 May 2020 17:13:09 -0700
Subject: Move example packages into test folder

---
 test/example_packages/hello_complex/.gitignore     |  1 +
 .../hello_complex/apps/say_goodbye/say_goodbye.f90 |  7 +++++++
 .../hello_complex/apps/say_hello/say_hello.f90     |  7 +++++++
 test/example_packages/hello_complex/fpm.toml       | 24 ++++++++++++++++++++++
 .../hello_complex/source/farewell_m.f90            | 13 ++++++++++++
 .../hello_complex/source/greet_m.f90               | 13 ++++++++++++
 .../hello_complex/tests/farewell/farewell_test.f90 | 18 ++++++++++++++++
 .../hello_complex/tests/greet/greet_test.f90       | 18 ++++++++++++++++
 8 files changed, 101 insertions(+)
 create mode 100644 test/example_packages/hello_complex/.gitignore
 create mode 100644 test/example_packages/hello_complex/apps/say_goodbye/say_goodbye.f90
 create mode 100644 test/example_packages/hello_complex/apps/say_hello/say_hello.f90
 create mode 100644 test/example_packages/hello_complex/fpm.toml
 create mode 100644 test/example_packages/hello_complex/source/farewell_m.f90
 create mode 100644 test/example_packages/hello_complex/source/greet_m.f90
 create mode 100644 test/example_packages/hello_complex/tests/farewell/farewell_test.f90
 create mode 100644 test/example_packages/hello_complex/tests/greet/greet_test.f90

(limited to 'test/example_packages/hello_complex')

diff --git a/test/example_packages/hello_complex/.gitignore b/test/example_packages/hello_complex/.gitignore
new file mode 100644
index 0000000..a007fea
--- /dev/null
+++ b/test/example_packages/hello_complex/.gitignore
@@ -0,0 +1 @@
+build/*
diff --git a/test/example_packages/hello_complex/apps/say_goodbye/say_goodbye.f90 b/test/example_packages/hello_complex/apps/say_goodbye/say_goodbye.f90
new file mode 100644
index 0000000..6966e79
--- /dev/null
+++ b/test/example_packages/hello_complex/apps/say_goodbye/say_goodbye.f90
@@ -0,0 +1,7 @@
+program say_goodbye
+    use farewell_m, only: make_farewell
+
+    implicit none
+
+    print *, make_farewell("World")
+end program say_goodbye
diff --git a/test/example_packages/hello_complex/apps/say_hello/say_hello.f90 b/test/example_packages/hello_complex/apps/say_hello/say_hello.f90
new file mode 100644
index 0000000..cc648f2
--- /dev/null
+++ b/test/example_packages/hello_complex/apps/say_hello/say_hello.f90
@@ -0,0 +1,7 @@
+program say_hello
+    use greet_m, only: make_greeting
+
+    implicit none
+
+    print *, make_greeting("World")
+end program say_hello
diff --git a/test/example_packages/hello_complex/fpm.toml b/test/example_packages/hello_complex/fpm.toml
new file mode 100644
index 0000000..d185745
--- /dev/null
+++ b/test/example_packages/hello_complex/fpm.toml
@@ -0,0 +1,24 @@
+name = "hello_complex"
+
+[library]
+source-dir="source"
+
+[[executable]]
+name="say_hello"
+source-dir="apps/say_hello"
+main="say_hello.f90"
+
+[[executable]]
+name="say_goodbye"
+source-dir="apps/say_goodbye"
+main="say_goodbye.f90"
+
+[[test]]
+name="greet_test"
+source-dir="tests/greet"
+main="greet_test.f90"
+
+[[test]]
+name="farewell_test"
+source-dir="tests/farewell"
+main="farewell_test.f90"
diff --git a/test/example_packages/hello_complex/source/farewell_m.f90 b/test/example_packages/hello_complex/source/farewell_m.f90
new file mode 100644
index 0000000..9fc75b9
--- /dev/null
+++ b/test/example_packages/hello_complex/source/farewell_m.f90
@@ -0,0 +1,13 @@
+module farewell_m
+    implicit none
+    private
+
+    public :: make_farewell
+contains
+    function make_farewell(name) result(greeting)
+        character(len=*), intent(in) :: name
+        character(len=:), allocatable :: greeting
+
+        greeting = "Goodbye, " // name // "!"
+    end function make_farewell
+end module farewell_m
diff --git a/test/example_packages/hello_complex/source/greet_m.f90 b/test/example_packages/hello_complex/source/greet_m.f90
new file mode 100644
index 0000000..2372f9a
--- /dev/null
+++ b/test/example_packages/hello_complex/source/greet_m.f90
@@ -0,0 +1,13 @@
+module greet_m
+    implicit none
+    private
+
+    public :: make_greeting
+contains
+    function make_greeting(name) result(greeting)
+        character(len=*), intent(in) :: name
+        character(len=:), allocatable :: greeting
+
+        greeting = "Hello, " // name // "!"
+    end function make_greeting
+end module greet_m
diff --git a/test/example_packages/hello_complex/tests/farewell/farewell_test.f90 b/test/example_packages/hello_complex/tests/farewell/farewell_test.f90
new file mode 100644
index 0000000..0f21b18
--- /dev/null
+++ b/test/example_packages/hello_complex/tests/farewell/farewell_test.f90
@@ -0,0 +1,18 @@
+program farewell_test
+    use farewell_m, only: make_farewell
+    use iso_fortran_env, only: error_unit, output_unit
+
+    implicit none
+
+    character(len=:), allocatable :: farewell
+
+    allocate(character(len=0) :: farewell)
+    farewell = make_farewell("World")
+
+    if (farewell == "Goodbye, World!") then
+        write(output_unit, *) "Passed"
+    else
+        write(error_unit, *) "Failed"
+        call exit(1)
+    end if
+end program farewell_test
diff --git a/test/example_packages/hello_complex/tests/greet/greet_test.f90 b/test/example_packages/hello_complex/tests/greet/greet_test.f90
new file mode 100644
index 0000000..41fa508
--- /dev/null
+++ b/test/example_packages/hello_complex/tests/greet/greet_test.f90
@@ -0,0 +1,18 @@
+program greet_test
+    use greet_m, only: make_greeting
+    use iso_fortran_env, only: error_unit, output_unit
+
+    implicit none
+
+    character(len=:), allocatable :: greeting
+
+    allocate(character(len=0) :: greeting)
+    greeting = make_greeting("World")
+
+    if (greeting == "Hello, World!") then
+        write(output_unit, *) "Passed"
+    else
+        write(error_unit, *) "Failed"
+        call exit(1)
+    end if
+end program greet_test
-- 
cgit v1.2.3