add test

Author: wassup05

test/system/test_filesystem.f90

@@ -1,7 +1,7 @@
 module test_filesystem
     use testdrive, only : new_unittest, unittest_type, error_type, check, skip_test
     use stdlib_system, only: is_directory, delete_file, FS_ERROR, FS_ERROR_CODE, &
-        make_directory, remove_directory
+        make_directory, remove_directory, make_directory_all, is_windows
     use stdlib_error, only: state_type, STDLIB_FS_ERROR
 
     implicit none
@@ -22,6 +22,7 @@ subroutine collect_suite(testsuite)
             new_unittest("fs_delete_file_being_dir", test_delete_directory), &            
             new_unittest("fs_make_dir", test_make_directory), &            
             new_unittest("fs_make_dir_existing_dir", test_make_directory_existing), &            
+            new_unittest("fs_make_dir_all", test_make_directory_all), &            
             new_unittest("fs_remove_dir", test_remove_directory), &            
             new_unittest("fs_remove_dir_non_existent", test_remove_directory_nonexistent) &            
         ]
@@ -175,39 +176,39 @@ end subroutine test_delete_directory
     subroutine test_make_directory(error)
         type(error_type), allocatable, intent(out) :: error
         type(state_type) :: err
-        character(len=256) :: filename
+        character(len=256) :: dir_name
         integer :: ios,iocmd
         character(len=512) :: msg
 
-        filename = "test_directory"
+        dir_name = "test_directory"
 
-        call make_directory(filename, err=err)
+        call make_directory(dir_name, err=err)
         call check(error, err%ok(), 'Could not make directory: '//err%print())
         if (allocated(error)) return
 
         ! Clean up: remove the empty directory
-        call execute_command_line('rmdir ' // filename, exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
+        call execute_command_line('rmdir ' // dir_name, exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
         call check(error, ios==0 .and. iocmd==0, 'Cannot cleanup make_directory test: '//trim(msg))
     end subroutine test_make_directory
 
     subroutine test_make_directory_existing(error)
         type(error_type), allocatable, intent(out) :: error
         type(state_type) :: err
-        character(len=256) :: filename
+        character(len=256) :: dir_name
         integer :: ios,iocmd
         character(len=512) :: msg
 
-        filename = "test_directory"
+        dir_name = "test_directory"
 
-        call execute_command_line('mkdir ' // filename, exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
+        call execute_command_line('mkdir ' // dir_name, exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
         call check(error, ios==0 .and. iocmd==0, 'Cannot init make_directory_existing test: '//trim(msg))
         if (allocated(error)) return
 
-        call make_directory(filename, err=err)
+        call make_directory(dir_name, err=err)
         call check(error, err%error(), 'Made an already existing directory somehow')
 
         ! Clean up: remove the empty directory
-        call execute_command_line('rmdir ' // filename, exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
+        call execute_command_line('rmdir ' // dir_name, exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
 
         if (allocated(error)) then
             ! if previous error is allocated as well
@@ -218,25 +219,48 @@ subroutine test_make_directory_existing(error)
         call check(error, ios==0 .and. iocmd==0, 'Cannot cleanup make_directory test: '//trim(msg))
     end subroutine test_make_directory_existing
 
+    subroutine test_make_directory_all(error)
+        type(error_type), allocatable, intent(out) :: error
+        type(state_type) :: err
+        character(len=256) :: dir_name
+        integer :: ios,iocmd
+        character(len=512) :: msg
+
+        dir_name = "d1/d2/d3/d4/"
+
+        call make_directory_all(dir_name, err=err)
+        call check(error, err%ok(), 'Could not make all directories: '//err%print())
+        if (allocated(error)) return
+
+        ! Clean up: remove the empty directory
+        if (is_windows()) then
+            call execute_command_line('rmdir /s /q ' // dir_name, exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
+        else
+            call execute_command_line('rm -rf ' // dir_name, exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
+        end if
+
+        call check(error, ios==0 .and. iocmd==0, 'Cannot cleanup make_directory_all test: '//trim(msg))
+    end subroutine test_make_directory_all
+
     subroutine test_remove_directory(error)
         type(error_type), allocatable, intent(out) :: error
         type(state_type) :: err
-        character(len=256) :: filename
+        character(len=256) :: dir_name
         integer :: ios,iocmd
         character(len=512) :: msg
 
-        filename = "test_directory"
+        dir_name = "test_directory"
 
-        call execute_command_line('mkdir ' // filename, exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
+        call execute_command_line('mkdir ' // dir_name, exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
         call check(error, ios==0 .and. iocmd==0, 'Cannot init remove_directory test: '//trim(msg))
         if (allocated(error)) return
 
-        call remove_directory(filename, err)
+        call remove_directory(dir_name, err)
         call check(error, err%ok(), 'Could not remove directory: '//err%print())
 
         if (allocated(error)) then 
             ! Clean up: remove the empty directory
-            call execute_command_line('rmdir ' // filename, exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
+            call execute_command_line('rmdir ' // dir_name, exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
             call check(error, ios==0 .and. iocmd==0, error%message // ' and cannot cleanup make_directory test: '//trim(msg))
         end if
     end subroutine test_remove_directory