- (setq file (format "/%s:" file))
- (should (string-equal (directory-file-name file) file))
- (should (string-equal (file-name-as-directory file) (concat file "./")))
- (should (string-equal (file-name-directory file) file))
- (should (string-equal (file-name-nondirectory file) ""))))))
+ (unless (zerop (length file))
+ (setq file (format "/%s:" file))
+ (should (string-equal (directory-file-name file) file))
+ (should
+ (string-equal (file-name-as-directory file) (concat file "./")))
+ (should (string-equal (file-name-directory file) file))
+ (should (string-equal (file-name-nondirectory file) "")))))))