Merge pull request #71 from zbeekman/check-readme-programs-issue-67

Test stand alone programs in the README.md

Author: jacobwilliams

.travis.yml

@@ -9,6 +9,7 @@ cache: apt
 env:
   global:
     - DEPENDS="gfortran-4.9 binutils"
+    - CHECK_README_PROGS="yes"
   matrix:
       # CMake build with unit tests, no documentation
       # Allow to fail for now until tests are fixed
@@ -34,6 +35,7 @@ env:
       FoBiS="no"
 
 before_install:
+  - if [[ $CHECK_README_PROGS == [yY]* ]]; then wget http://people.sc.fsu.edu/~jburkardt/f_src/f90split/f90split.f90; fi
   - if [[ $DOCS == [yY]* ]]; then export DEPENDS="$DEPENDS exuberant-ctags"; fi
   - sudo apt-add-repository -y ppa:ubuntu-toolchain-r/test
   - if [[ $SPECIFIC_DEPENDS == *cmake* ]]; then sudo apt-add-repository -y ppa:kalakris/cmake; fi
@@ -46,6 +48,7 @@ install:
   - sudo ln -fs /usr/bin/gfortran-4.9 /usr/bin/gfortran && gfortran --version
   - if [[ $FoBiS == [yY]* ]]; then sudo -H pip install FoBiS.py==1.5.5 && FoBiS.py --version; fi
   - if [[ $DOCS == [yY]* ]]; then sudo dpkg -i robodoc_4.99.41-1_amd64.deb && robodoc --version; fi
+  - if [[ $CHECK_README_PROGS == [yY]* ]]; then gfortran -o f90split f90split.f90 && ./f90split README.md && shopt -s extglob && for f in !(README|CONTRIBUTING).md; do mv $f src/tests/jf_test_${f%.md}.f90; done; rm f90split.f90 f90split; fi
 
 script:
   - echo $BUILD_SCRIPT

README.md

@@ -94,7 +94,7 @@ for more examples. The source files may be found in `src/tests/`.
         call json_initialize()
 
         ! read the file
-        call json%load_file(filename = 'test1.json')
+        call json%load_file(filename = '../files/test1.json')
 
         ! print the file to the console
         call json%print_file()
@@ -107,6 +107,7 @@ for more examples. The source files may be found in `src/tests/`.
 
         ! clean up
         call json%destroy()
+	if (json_failed()) stop 1
 
     end program example1
 ```
@@ -182,6 +183,7 @@ of `json_value` pointers.  For more examples see unit tests 2,4 and 7 in `src/te
 
         !cleanup:
         call json_destroy(p)
+	if (json_failed()) stop 1
 
     end program example2
 ```

src/json_module.f90

@@ -154,7 +154,7 @@ module json_module
     integer(IK),parameter :: rp_addl_safety = 1
     integer(IK),parameter :: real_precision = rp_safety_factor*precision(1.0_RK) + rp_addl_safety
     ! Get the number of possible digits in the exponent when using decimal number system
-    integer(IK),parameter :: real_exponent_digits = ceiling( log10( &
+    integer(IK),parameter :: real_exponent_digits = floor( 1 + log10( &
                                   real(max(maxexponent(1.0_RK),abs(minexponent(1.0_RK))),kind=RK) &
                                   ) )
     ! 4*precision to prevent rounding errors