added some test data (from mockaroo)

Author: jacobwilliams

files/test.csv

@@ -0,0 +1,20 @@
+id,first_name,age,ok
+1,Julie,80.244,false
+2,Jose,11.569,true
+3,Lois,12.339,true
+4,Walter,63.173,false
+5,Timothy,57.063,true
+6,Barbara,79.705,true
+7,Douglas,19.347,false
+8,Tina,16.909,true
+9,Gregory,67.749,true
+10,Larry,43.705,true
+11,Tina,9.931,true
+12,Kelly,72.657,true
+13,Marilyn,10.901,true
+14,Gregory,9.966,true
+15,Earl,10.875,true
+16,Evelyn,33.268,true
+17,Carol,54.498,false
+18,Alice,2.505,true
+19,Randy,39.775,false

src/tests/csv_test.f90

@@ -24,7 +24,7 @@ program csv_test
     integer,dimension(:),allocatable :: itypes
 
     ! read the file:
-    call f%read('test.csv',header_row=1,status_ok=status_ok)
+    call f%read('../files/test.csv',header_row=1,status_ok=status_ok)
 
     ! print the header and type info:
     call f%get_header(header,status_ok)
@@ -44,21 +44,13 @@ program csv_test
     end do
 
     write(*,*) ''
-    write(*,*) 'get the position vectors:'
+    write(*,*) 'get some vectors:'
 
     write(*,*) ''
-    write(*,*) 'x:'
-    call f%get(2,x,status_ok)
+    write(*,*) 'age:'
+    call f%get(3,x,status_ok)
     write(*,'(F27.16,1x)',advance='NO') x
     write(*,*) ''
-    write(*,*) 'y:'
-    call f%get(3,y,status_ok)
-    write(*,'(F27.16,1x)',advance='NO') y
-    write(*,*) ''
-    write(*,*) 'z:'
-    call f%get(4,z,status_ok)
-    write(*,'(F27.16,1x)',advance='NO') z
-    write(*,*) ''
 
     ! now test creating a CSV:
     call f2%open('test2.csv',n_cols=4,status_ok=status_ok)