Add tests for parse_mode()

Author: certik

src/stdlib_experimental_io.f90

@@ -3,8 +3,13 @@ module stdlib_experimental_io
 use stdlib_experimental_error, only: error_stop
 implicit none
 private
+! Public API
 public :: loadtxt, savetxt, open
 
+! Private API that is exposed so that we can test it in tests
+public :: parse_mode
+
+
 interface loadtxt
     module procedure sloadtxt
     module procedure dloadtxt

src/tests/io/test_open.f90

@@ -1,11 +1,13 @@
 program test_open
-use stdlib_experimental_io, only: open
+use stdlib_experimental_io, only: open, parse_mode
 use stdlib_experimental_error, only: assert
 implicit none
 
 character(:), allocatable :: filename
 integer :: u, a(3)
 
+call test_parse_mode()
+
 ! Text file
 filename = get_outpath() // "/io_open.dat"
 
@@ -73,4 +75,45 @@ function get_outpath() result(outpath)
     endif
     end function get_outpath
 
+    subroutine test_parse_mode()
+    character(3) :: m
+    m = parse_mode("")
+    call assert(m == "r t")
+
+    m = parse_mode("r")
+    call assert(m == "r t")
+    m = parse_mode("w")
+    call assert(m == "w t")
+    m = parse_mode("a")
+    call assert(m == "a t")
+
+    m = parse_mode("rb")
+    call assert(m == "r b")
+    m = parse_mode("wb")
+    call assert(m == "w b")
+    m = parse_mode("ab")
+    call assert(m == "a b")
+
+    m = parse_mode("br")
+    !call assert(m == "r b")
+    m = parse_mode("bw")
+    !call assert(m == "w b")
+    m = parse_mode("ba")
+    !call assert(m == "a b")
+
+    m = parse_mode("r+")
+    call assert(m == "r+t")
+    m = parse_mode("w+")
+    call assert(m == "w+t")
+    m = parse_mode("a+")
+    call assert(m == "a+t")
+
+    m = parse_mode("r+b")
+    call assert(m == "r+b")
+    m = parse_mode("w+b")
+    call assert(m == "w+b")
+    m = parse_mode("a+b")
+    call assert(m == "a+b")
+    end subroutine
+
 end program