Add expected output test for test 12

Author: zbeekman

files/expected-outputs/test12.json

@@ -0,0 +1,91 @@
+{
+  "array data": {
+    "shape": [
+      5,
+      3,
+      4
+    ],
+    "total size": 60,
+    "description": "Vector data",
+    "data": [
+      1.0,
+      2.0,
+      3.0,
+      4.0,
+      5.0,
+      6.0,
+      7.0,
+      8.0,
+      9.0,
+      10.0,
+      11.0,
+      12.0,
+      13.0,
+      14.0,
+      15.0,
+      16.0,
+      17.0,
+      18.0,
+      19.0,
+      20.0,
+      21.0,
+      22.0,
+      23.0,
+      24.0,
+      25.0,
+      26.0,
+      27.0,
+      28.0,
+      29.0,
+      30.0,
+      31.0,
+      32.0,
+      33.0,
+      34.0,
+      35.0,
+      36.0,
+      37.0,
+      38.0,
+      39.0,
+      40.0,
+      41.0,
+      42.0,
+      43.0,
+      44.0,
+      45.0,
+      46.0,
+      47.0,
+      48.0,
+      49.0,
+      50.0,
+      51.0,
+      52.0,
+      53.0,
+      54.0,
+      55.0,
+      56.0,
+      57.0,
+      58.0,
+      59.0,
+      60.0
+    ]
+  },
+  "SOS": [
+    true,
+    true,
+    true,
+    false,
+    false,
+    false,
+    true,
+    true,
+    true
+  ],
+  "vector string": [
+    "only one value"
+  ],
+  "page": [
+    "The quick brown fox",
+    "jumps over the lazy dog."
+  ]
+}

src/tests/jf_test_12.f90

@@ -5,8 +5,8 @@ module jf_test_12_mod
 
     implicit none
 
-    character(len=*),parameter :: dir = '../files/outputs/' !! Path to write JSON file to
-    character(len=*),parameter :: file = 'array.json'       !! Filename to write
+    character(len=*),parameter :: dir = '../files/' !! Path to write JSON file to
+    character(len=*),parameter :: file = 'test12.json'       !! Filename to write
     real(wp), parameter        :: TOL = 100*epsilon(1.0_wp) !! Tolerance for real comparisons
 
 contains
@@ -26,7 +26,7 @@ subroutine test_12(error_cnt)
     real(wp), allocatable :: fetched_array(:)
     character(kind=CK,len=:), allocatable :: description
     integer :: i,j,k                               !! loop indices
-    integer :: array_length
+    integer :: array_length, lun
     logical :: existed
     logical, allocatable :: SOS(:)
 
@@ -156,6 +156,11 @@ subroutine test_12(error_cnt)
     call my_file%get(tmp_json_ptr)
     call check_errors(associated(tmp_json_ptr,root))
 
+    open(file=dir//file,newunit=lun,form='formatted',action='write')
+    call my_file%print_file(lun)
+    call check_errors()
+    close(lun)
+
     contains
       subroutine check_errors(assertion)
         logical, optional, intent(in) :: assertion