diff options
Diffstat (limited to 'testsuite/tests')
-rw-r--r-- | testsuite/tests/lib-sys/rename.ml | 15 | ||||
-rw-r--r-- | testsuite/tests/lib-sys/rename.reference | 2 |
2 files changed, 17 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; diff --git a/testsuite/tests/lib-sys/rename.reference b/testsuite/tests/lib-sys/rename.reference index db06aad9d3..6fe40fcf87 100644 --- a/testsuite/tests/lib-sys/rename.reference +++ b/testsuite/tests/lib-sys/rename.reference @@ -5,3 +5,5 @@ Renaming to a nonexisting directory: fails as expected Rename directory to a nonexisting directory: passed Rename a nonexisting directory: fails as expected Rename directory to a non-empty directory: fails as expected +Rename directory to existing empty directory: passed +Rename directory to existing file: fails as expected |