test_open: addition of a test for stream files

src/tests/io/Makefile.manual

@@ -5,16 +5,19 @@ OBJS = ../../stdlib_experimental_error.o \
 .PHONY: all clean
 .SUFFIXES: .f90 .o
 
-all: test_loadtxt test_savetxt
+all: test_loadtxt test_savetxt test_open
 
 test_loadtxt: test_loadtxt.f90 $(OBJS)
 	$(FC) $(FCFLAGS) $(CPPFLAGS) $< -o $@ $(OBJS)
 
 test_savetxt: test_savetxt.f90 $(OBJS)
 	$(FC) $(FCFLAGS) $(CPPFLAGS) $< -o $@ $(OBJS)
 
+test_open: test_open.f90 $(OBJS)
+	$(FC) $(FCFLAGS) $(CPPFLAGS) $< -o $@ $(OBJS)
+
 %.o: %.mod
 
 clean:
-	$(RM) test_loadtxt test_savetxt
+	$(RM) test_loadtxt test_savetxt test_open
 	$(RM) *.o *.mod

src/tests/io/test_open.f90

@@ -6,6 +6,7 @@ program test_open
 character(:), allocatable :: filename
 integer :: u, a(3)
 
+! Text file
 filename = get_outpath() // "/io_open.dat"
 
 ! Test mode "w"
@@ -31,6 +32,32 @@ program test_open
 close(u)
 
 
+
+! Stream file
+filename = get_outpath() // "/io_open.stream"
+
+! Test mode "w"
+u = open(filename, "wb")
+write(u) 1, 2, 3
+close(u)
+
+! Test mode "r"
+u = open(filename, "rb")
+read(u) a
+call assert(all(a == [1, 2, 3]))
+close(u)
+
+! Test mode "a"
+u = open(filename, "ab")
+write(u) 4, 5, 6
+close(u)
+u = open(filename, "rb")
+read(u) a
+call assert(all(a == [1, 2, 3]))
+read(u) a
+call assert(all(a == [4, 5, 6]))
+close(u)
+
 contains
 
     function get_outpath() result(outpath)