+# DELETE-FILE
+use_test_subdirectory
+mkdir sub
+touch deltest
+touch sub/deltest
+run_sbcl --eval '(let ((*default-pathname-defaults* (truename "sub")))
+ (delete-file "deltest")
+ (sb-ext:exit))'
+test -f deltest && test ! -f sub/deltest
+check_status_maybe_lose "delete-file via d-p-d" $? \
+ 0 "ok"
+
+# RENAME-FILE
+use_test_subdirectory
+touch one
+mkdir sub
+touch sub/one
+touch foo
+ln -s foo link
+run_sbcl --eval '(let ((*default-pathname-defaults* (truename "sub")))
+ (rename-file "one" "two"))' \
+ --eval '(rename-file "one" "three")' \
+ --eval '(rename-file "link" "bar")'
+test -f three
+check_status_maybe_lose "rename-file" $? \
+ 0 "ok"
+test -f sub/two
+check_status_maybe_lose "rename-file via d-p-d" $? \
+ 0 "ok"
+test -f foo && test -L bar
+check_status_maybe_lose "rename-file + symlink" $? \
+ 0 "ok"
+