Add rm_dir and test it

Author: minhqdao

src/stdlib_io_filesystem.F90

@@ -6,7 +6,7 @@ module stdlib_io_filesystem
     implicit none
     private
 
-    public :: temp_dir, is_windows, exists, list_dir, run
+    public :: temp_dir, is_windows, exists, list_dir, rm_dir, run
 
     character(*), parameter :: temp_dir = 'temp'
     character(*), parameter :: listed_contents = temp_dir//'/listed_contents.txt'
@@ -100,6 +100,20 @@ subroutine list_dir(dir, files, iostat, iomsg)
         close(unit, status="delete")
     end
 
+    !> Version: experimental
+    !>
+    !> Remove a directory and its contents.
+    !> [Specification](../page/specs/stdlib_io.html#rm_dir)
+    subroutine rm_dir(dir)
+        character(len=*), intent(in) :: dir
+
+        if (is_windows()) then
+            call run('rmdir /s/q '//dir)
+        else
+            call run('rm -rf '//dir)
+        end if
+    end
+
     !> Version: experimental
     !>
     !> Run a command in the shell.

test/io/test_filesystem.f90

@@ -27,7 +27,9 @@ subroutine collect_filesystem(testsuite)
             new_unittest("fs_list_dir_empty", fs_list_dir_empty), &
             new_unittest("fs_list_dir_one_file", fs_list_dir_one_file), &
             new_unittest("fs_list_dir_two_files", fs_list_dir_two_files), &
-            new_unittest("fs_list_dir_one_file_one_dir", fs_list_dir_one_file_one_dir) &
+            new_unittest("fs_list_dir_one_file_one_dir", fs_list_dir_one_file_one_dir), &
+            new_unittest("fs_rm_dir_empty", fs_rm_dir_empty), &
+            new_unittest("fs_rm_dir_with_contents", fs_rm_dir_with_contents) &
             ]
     end
 
@@ -239,6 +241,37 @@ subroutine fs_list_dir_one_file_one_dir(error)
         call run('rm -rf '//temp_list_dir, iostat=stat)
     end
 
+    subroutine fs_rm_dir_empty(error)
+        type(error_type), allocatable, intent(out) :: error
+
+        character(*), parameter :: filename = "empty_dir_to_remove"
+
+        call rm_dir(filename)
+        call check(error, .not. exists(filename), "Directory should not exist.")
+        call run('mkdir '//filename)
+        call check(error, exists(filename), "Directory should exist.")
+        call rm_dir(filename)
+        call check(error, .not. exists(filename), "Directory should not exist.")
+    end
+
+    subroutine fs_rm_dir_with_contents(error)
+        type(error_type), allocatable, intent(out) :: error
+
+        character(*), parameter :: filename = "dir_with_contents_to_remove"
+
+        call rm_dir(filename)
+        call check(error, .not. exists(filename), "Directory should not exist.")
+        call run('mkdir '//filename)
+        call check(error, exists(filename), "Directory should exist.")
+        if (is_windows()) then
+            call run('mkdir '//filename//'\'//'another_dir')
+        else
+            call run('mkdir '//filename//'/'//'another_dir')
+        end if
+        call rm_dir(filename)
+        call check(error, .not. exists(filename), "Directory should not exist.")
+    end
+
     subroutine delete_file(filename)
         character(len=*), intent(in) :: filename
 
@@ -247,7 +280,6 @@ subroutine delete_file(filename)
         open(newunit=io, file=filename)
         close(io, status="delete")
     end
-
 end
 
 program tester