diff options
author | Gabriel Scherer <gabriel.scherer@gmail.com> | 2023-05-15 11:05:44 +0200 |
---|---|---|
committer | GitHub <noreply@github.com> | 2023-05-15 11:05:44 +0200 |
commit | 233efc3afda778a57520b269f2d494628d12b567 (patch) | |
tree | 0f22c4b27dfd274817f5231d4052d214dd25e00f /testsuite/tests/lib-sys/rename.ml | |
parent | 399445ff2b43ba199f79831127c45b39c5ffa6aa (diff) | |
parent | 70ff202375737794910dd292f907cb52173cfa4a (diff) | |
download | ocaml-233efc3afda778a57520b269f2d494628d12b567.tar.gz |
Merge branch 'trunk' into nick-get-copy
Diffstat (limited to 'testsuite/tests/lib-sys/rename.ml')
-rw-r--r-- | testsuite/tests/lib-sys/rename.ml | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/testsuite/tests/lib-sys/rename.ml b/testsuite/tests/lib-sys/rename.ml index 948481c3de..7c62f218e9 100644 --- a/testsuite/tests/lib-sys/rename.ml +++ b/testsuite/tests/lib-sys/rename.ml @@ -82,3 +82,18 @@ let _ = testfailure "foo" "bar"; print_newline(); safe_remove f1; safe_remove_dir "foo"; safe_remove_dir "bar"; + print_string "Rename directory to existing empty directory: "; + Sys.mkdir "foo" 0o755; + Sys.mkdir "bar" 0o755; + testrenamedir "foo" "bar"; + print_newline(); + safe_remove_dir "foo"; + safe_remove_dir "bar"; + print_string "Rename directory to existing file: "; + Sys.mkdir "foo" 0o755; + writefile f2 "xyz"; + testfailure "foo" f2; + print_newline(); + safe_remove_dir "foo"; + safe_remove f2; + safe_remove_dir f2; |