add test

Author: wassup05

test/system/test_filesystem.f90

@@ -2,7 +2,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_all, is_windows, OS_TYPE, &
- OS_WINDOWS
+ OS_WINDOWS, get_cwd, set_cwd, operator(/)
  use stdlib_error, only: state_type, STDLIB_FS_ERROR
 
  implicit none
@@ -25,7 +25,8 @@ subroutine collect_suite(testsuite)
  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) & 
+ new_unittest("fs_remove_dir_non_existent", test_remove_directory_nonexistent), & 
+ new_unittest("fs_cwd", test_cwd) & 
  ]
  end subroutine collect_suite
 
@@ -279,6 +280,56 @@ subroutine test_remove_directory_nonexistent(error)
  if (allocated(error)) return
  end subroutine test_remove_directory_nonexistent
 
+ subroutine test_cwd(error)
+ type(error_type), allocatable, intent(out) :: error
+ type(state_type) :: err
+ character(len=256) :: dir_name
+ integer :: ios,iocmd
+ character(len=512) :: msg
+
+ character(:), allocatable :: pwd1, pwd2, abs_dir_name
+
+ ! get the initial cwd
+ call get_cwd(pwd1, err)
+ call check(error, err%ok(), 'Could not get current working directory: '//err%print())
+ if (allocated(error)) return
+
+ ! create a temporary directory for use by `set_cwd`
+ dir_name = "test_directory"
+
+ call execute_command_line('mkdir ' // dir_name, exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
+ call check(error, ios==0 .and. iocmd==0, 'Cannot init cwd test: '//trim(msg))
+ if (allocated(error)) return
+
+ abs_dir_name = pwd1 / dir_name
+ call set_cwd(abs_dir_name, err)
+ call check(error, err%ok(), 'Could not set current working directory: '//err%print())
+ if (allocated(error)) return
+
+ ! get the new cwd -> should be same as (pwd1 / dir_name)
+ call get_cwd(pwd2, err)
+ call check(error, err%ok(), 'Could not get current working directory: '//err%print())
+ if (allocated(error)) return
+
+ call check(error, pwd2 == abs_dir_name, 'Working directory is wrong, & 
+ & expected: '//abs_dir_name//" got: "//pwd2)
+ if (allocated(error)) return
+
+ ! cleanup: set the cwd back to the initial value
+ call set_cwd(pwd1, err)
+ call check(error, err%ok(), 'Could not clean up cwd test, could not set the cwd back: '//err%print())
+ if (allocated(error)) then 
+ ! our cwd now is `./test_directory`
+ ! there is no way of removing the empty test directory
+ return
+ end if
+
+ ! cleanup: remove the empty directory
+ call execute_command_line('rmdir ' // dir_name, exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
+ call check(error, ios==0 .and. iocmd==0, 'Cannot cleanup cwd test, cannot remove empty dir: '//trim(msg))
+ if (allocated(error)) return
+ end subroutine test_cwd
+
 end module test_filesystem
 
 program tester