test(command_line): check present arg, missing val

Author: rouson

example/check-command-line-argument.f90

@@ -0,0 +1,22 @@
+program check_command_line_argument
+  !! This program serves the dual purposes of 
+  !! 1. Showing how to use the command_line_t derived type to check whether a
+  !!    command-line argument is present and
+  !! 2. Supporting the test suite verification of this same behavior.
+  !!
+  !! Running this program as follows with the command
+  !!
+  !! fpm run --example check-command-line-argument -- --some-argument 
+  !!
+  !! should result in normal termination.
+  use assert_m, only : assert
+  use sourcery_m, only : command_line_t
+  implicit none
+
+  type(command_line_t) command_line
+  logical argument_passed
+
+  argument_passed = command_line%argument_present(["--some-argument"])
+
+  call assert(argument_passed, "check_command_line_argument: argument present")
+end program

example/handle-missing-flag.f90

@@ -1,5 +1,9 @@
 program handle_missing_flag
-  !! Verify that a missing command-line flag value returns a zero-length string.
+  !! This program serves the dual purposes of
+  !!
+  !! 1. Showing an example of a command-line with an expected flag missing an
+  !! 2. Supporting the test suite check that the returned value has zero length.
+  !!
   !! Running this program as follows with the command
   !!
   !! fpm run --example handle-missing-flag -- --empty-flag

test/command_line_test.F90

@@ -29,16 +29,19 @@ function results() result(test_results)
 #ifndef __GFORTRAN__
     test_descriptions = [ & 
       test_description_t(string_t("returning the value passed after a command-line flag"), check_flag_value), &
-      test_description_t(string_t("returning an empty string when a flag value is missing"), handle_missing_flag_value) &
+      test_description_t(string_t("returning an empty string when a flag value is missing"), handle_missing_flag_value), &
+      test_description_t(string_t("detecting a present command-line argument"), check_command_line_argument) &
     ]   
 #else
     ! Work around missing Fortran 2008 feature: associating a procedure actual argument with a procedure pointer dummy argument:
-    procedure(test_function_i), pointer :: check_flag_ptr, handle_missing_value_ptr 
+    procedure(test_function_i), pointer :: check_flag_ptr, handle_missing_value_ptr, check_command_ptr
     check_flag_ptr => check_flag_value 
     handle_missing_value_ptr => handle_missing_flag_value
+    check_command_ptr => check_command_line_argument
     test_descriptions = [ & 
       test_description_t(string_t("returning the value passed after a command-line flag"), check_flag_ptr), &
-      test_description_t(string_t("returning an empty string when a flag value is missing"), handle_missing_value_ptr) &
+      test_description_t(string_t("returning an empty string when a flag value is missing"), handle_missing_value_ptr), &
+      test_description_t(string_t("detecting a present command-line argument"), check_command_ptr) &
     ]   
 #endif
     test_descriptions = pack(test_descriptions, &
@@ -71,4 +74,16 @@ function handle_missing_flag_value() result(test_passes)
     test_passes = exit_status == 0 
   end function
 
+  function check_command_line_argument() result(test_passes)
+    logical test_passes
+    integer exit_status, command_status
+    character(len=132) command_message
+
+    call execute_command_line( &
+      command = "fpm run --example check-command-line-argument -- --some-argument", &
+      wait = .true., exitstat = exit_status, cmdstat = command_status, cmdmsg = command_message &
+    )
+    test_passes = exit_status == 0
+  end function
+
 end module command_line_test_m