Add examples to ctest

Author: sethrj

example/CMakeLists.txt

@@ -17,6 +17,11 @@ swig_fortran_add_example(sort
 swig_fortran_add_example(vecstr
   flc_string flc_vector)
 
+add_test(
+  NAME examples
+  COMMAND "${CMAKE_CURRENT_SOURCE_DIR}/run-examples.sh"
+  WORKING_DIRECTORY "${CMAKE_CURRENT_BINARY_DIR}")
+
 ##---------------------------------------------------------------------------##
 ## end of common/CMakeLists.txt
 ##---------------------------------------------------------------------------##

example/run-examples.sh

@@ -0,0 +1,43 @@
+#!/bin/sh
+
+FAIL=0
+
+function overall_result()
+{
+  exit ${FAIL}
+}
+trap overall_result EXIT
+
+function run_test()
+{
+  local TESTNAME=$1
+  local EXE=./${TESTNAME}.exe
+  local OUT=${TESTNAME}.out
+  printf "Run %s..." ${TESTNAME}
+  ${EXE} > ${OUT} 2>&1
+  if [ $? -eq 0 ]; then
+    echo "success!"
+  else
+    echo "FAILURE!"
+    FAIL=1
+    while read line
+    do
+      echo "${TESTNAME}: ${line}"
+    done < ${OUT}
+  fi
+}
+
+run_test sort << EOF
+nope
+three
+10000000000000000
+20 ha ha
+20
+EOF
+
+run_test vecstr << EOF
+This is the first string
+a second string
+and the third
+EOF
+

example/sort.f90

@@ -55,8 +55,8 @@ function read_positive_int(desc) result(result_int)
     read(STDIN, "(a)", iostat=io_ierr) readstr
     if (io_ierr == IOSTAT_END) then
       ! Error condition: ctrl-D during input
-      write(STDOUT, *) "End of line"
-      stop 0
+      write(STDOUT, *) "User terminated"
+      stop 1
     endif
 
     result_int = stoi(readstr)
@@ -73,14 +73,14 @@ function read_positive_int(desc) result(result_int)
 
     if (ierr == SWIG_OVERFLOWERROR) then
       ! Error condition: integer doesn't fit in native integer
-      write(0,*) "Your integer is too darn big!"
+      write(STDOUT,*) "Your integer is too darn big!"
     else if (ierr == SWIG_VALUEERROR) then
       ! Error condition: not an integer at all
-      write(0,*) "That text you entered? It wasn't an integer."
+      write(STDOUT,*) "That text you entered? It wasn't an integer."
     else
-      write(0,*) "Unknown error", ierr
+      write(STDOUT,*) "Unknown error", ierr
     end if
-    write(0,*) "(Detailed error message: ", get_serr(), ")"
+    write(STDOUT,*) "(Detailed error message: ", get_serr(), ")"
 
     ! Clear error flag so the next call to stoi succeeds
     ierr = 0