test/lisp/files-tests.el

437   (files-tests--with-temp-non-special (tmpfile nospecial)
440     (should-not (access-file nospecial "test")))
441   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
444     (should-error (access-file nospecial "test"))))
447   (files-tests--with-temp-non-special (tmpfile nospecial)
448     (let ((newname (files-tests--new-name nospecial "add-name")))
453       (add-name-to-file nospecial newname)
456   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
462     (let ((newname (files-tests--new-name nospecial "add-name")))
467       (should-error (add-name-to-file nospecial newname)))))
470   (files-tests--with-temp-non-special (tmpfile nospecial)
471     (should (equal (byte-compiler-base-file-name nospecial)
473   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
474     (should (equal (byte-compiler-base-file-name nospecial) tmpfile))
493   (files-tests--with-temp-non-special (tmpfile nospecial)
495            (files-tests--new-name (directory-file-name nospecial) "copy-file")))
496       (copy-file nospecial newname)
500   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
502            (files-tests--new-name (directory-file-name nospecial) "copy-file")))
503       (should-error (copy-file nospecial newname)))))
513   (files-tests--with-temp-non-special (tmpfile nospecial)
514     (delete-file nospecial))
515   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
516     (delete-file nospecial)
520   (files-tests--with-temp-non-special (tmpfile nospecial)
522     (should (equal (diff-latest-backup-file nospecial)
524     (delete-file (diff-latest-backup-file nospecial)))
525   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
527     (should-not (equal (diff-latest-backup-file nospecial)
529     (delete-file (diff-latest-backup-file nospecial))))
574   (files-tests--with-temp-non-special (tmpfile nospecial)
575     (let ((compressed (dired-compress-file nospecial)))
578         (should (file-equal-p nospecial (dired-compress-file compressed))))))
579   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
580     (should-not (dired-compress-file nospecial))))
592   (files-tests--with-temp-non-special (tmpfile nospecial)
593     (should (equal (expand-file-name nospecial) nospecial)))
594   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
595     (should (equal (expand-file-name nospecial) nospecial))))
605   (files-tests--with-temp-non-special (tmpfile nospecial)
606     (should (equal (file-acl nospecial) (file-acl tmpfile))))
607   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
608     (should-not (file-acl nospecial))))
611   (files-tests--with-temp-non-special (tmpfile nospecial)
613              (file-attributes nospecial) (file-attributes tmpfile))))
614   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
615     (should-not (file-attributes nospecial))))
625   (files-tests--with-temp-non-special (tmpfile nospecial)
626     (should (file-equal-p nospecial tmpfile))
627     (should (file-equal-p tmpfile nospecial))
628     (should (file-equal-p nospecial nospecial)))
629   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
630     (should (file-equal-p (file-name-unquote nospecial) tmpfile))
631     (should (file-equal-p tmpfile (file-name-unquote nospecial)))
633     (should-not (file-equal-p nospecial nospecial))
634     (write-region "foo" nil nospecial)
635     (should (file-equal-p nospecial nospecial))))
638   (files-tests--with-temp-non-special (tmpfile nospecial)
639     (should-not (file-executable-p nospecial)))
640   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
641     (should-not (file-executable-p nospecial))))
644   (files-tests--with-temp-non-special (tmpfile nospecial)
646     (should (file-exists-p nospecial)))
647   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
649     (should-not (file-exists-p nospecial))))
652   (files-tests--with-temp-non-special (tmpfile nospecial)
654       (should (file-in-directory-p nospecial temporary-file-directory))
656       (should (file-in-directory-p nospecial nospecial-tempdir))))
657   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
659       (should (file-in-directory-p nospecial temporary-file-directory))
661       (should (file-in-directory-p nospecial nospecial-tempdir)))))
664   (files-tests--with-temp-non-special (tmpfile nospecial)
665     (should-not (file-local-copy nospecial))) ; Already local.
666   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
667     (should-not (file-local-copy nospecial)))) ; Already local.
670   (files-tests--with-temp-non-special (tmpfile nospecial)
671     (should (equal (file-modes nospecial) (file-modes tmpfile))))
672   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
673     (should-not (equal (file-modes nospecial) (file-modes tmpfile)))))
676   (files-tests--with-temp-non-special (tmpfile nospecial)
680           (nospecial-file (file-name-nondirectory nospecial)))
689   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
693           (nospecial-file (file-name-nondirectory nospecial)))
713   (files-tests--with-temp-non-special (tmpfile nospecial)
714     (should (equal (file-name-case-insensitive-p nospecial)
716   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
717     (should (equal (file-name-case-insensitive-p nospecial)
721   (files-tests--with-temp-non-special (tmpfile nospecial)
725           (nospecial-file (file-name-nondirectory nospecial)))
733   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
737           (nospecial-file (file-name-nondirectory nospecial)))
747   (files-tests--with-temp-non-special (tmpfile nospecial)
748     (should (equal (file-name-directory nospecial)
750   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
751     (should (equal (file-name-directory nospecial)
755   (files-tests--with-temp-non-special (tmpfile nospecial)
756     (should (equal (file-name-nondirectory nospecial)
758   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
759     (should-not (equal (file-name-nondirectory nospecial)
763   (files-tests--with-temp-non-special (tmpfile nospecial)
764     (should (equal (file-name-sans-versions nospecial) nospecial)))
765   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
766     (should (equal (file-name-sans-versions nospecial) nospecial))))
769   (files-tests--with-temp-non-special (tmpfile nospecial)
770     (should-not (file-newer-than-file-p nospecial tmpfile))
771     (should-not (file-newer-than-file-p tmpfile nospecial))
772     (should-not (file-newer-than-file-p nospecial nospecial)))
773   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
774     (should-not (file-newer-than-file-p nospecial tmpfile))
775     (should (file-newer-than-file-p tmpfile nospecial))
776     (should-not (file-newer-than-file-p nospecial nospecial))))
780   (files-tests--with-temp-non-special (tmpfile nospecial)
781     (let ((watch (file-notify-add-watch nospecial '(change) #'ignore)))
785   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
786     (let ((watch (file-notify-add-watch nospecial '(change) #'ignore)))
792   (files-tests--with-temp-non-special (tmpfile nospecial)
793     (should (equal (file-ownership-preserved-p nospecial)
795   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
796     (should (equal (file-ownership-preserved-p nospecial)
800   (files-tests--with-temp-non-special (tmpfile nospecial)
801     (should (file-readable-p nospecial)))
802   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
803     (should-not (file-readable-p nospecial))))
806   (files-tests--with-temp-non-special (tmpfile nospecial)
807     (should (file-regular-p nospecial)))
808   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
809     (should-not (file-regular-p nospecial))))
812   (files-tests--with-temp-non-special (tmpfile nospecial)
813     (should-not (file-remote-p nospecial)))
814   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
815     (should-not (file-remote-p nospecial))))
818   (files-tests--with-temp-non-special (tmpfile nospecial)
820       (should (equal (file-selinux-context nospecial)
822   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
824       (should-not (equal (file-selinux-context nospecial)
828   (files-tests--with-temp-non-special (tmpfile nospecial)
829     (should-not (file-symlink-p nospecial)))
830   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
831     (should-not (file-symlink-p nospecial))))
834   (files-tests--with-temp-non-special (tmpfile nospecial)
835     (should (equal nospecial (file-truename nospecial))))
836   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
837     (should (equal nospecial (file-truename nospecial)))))
840   (files-tests--with-temp-non-special (tmpfile nospecial)
841     (should (file-writable-p nospecial)))
842   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
843     (should (file-writable-p nospecial))))
849     (files-tests--with-temp-non-special (tmpfile nospecial)
850       (should (equal (find-backup-file-name nospecial)
854         (tmpfile nospecial)
855       (should-not (equal (find-backup-file-name nospecial)
860   (files-tests--with-temp-non-special (tmpfile nospecial)
861     (should-not (get-file-buffer nospecial)))
862   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
863     (should-not (get-file-buffer nospecial))))
878   (files-tests--with-temp-non-special (tmpfile nospecial)
880       (insert-file-contents nospecial)
882   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
883     (should-error (with-temp-buffer (insert-file-contents nospecial)))))
886   (files-tests--with-temp-non-special (tmpfile nospecial)
887     (should (load nospecial nil t)))
888   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
889     (should (load nospecial nil t))))
892   (files-tests--with-temp-non-special (tmpfile nospecial)
894       (should (equal (prog2 (set-buffer (find-file-noselect nospecial))
900   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
902       (should-not (equal (prog2 (set-buffer (find-file-noselect nospecial))
939     (files-tests--with-temp-non-special (tmpfile nospecial)
953         (tmpfile nospecial)
967   (files-tests--with-temp-non-special (tmpfile nospecial)
968     (rename-file nospecial (files-tests--new-name nospecial "x"))
969     (rename-file (files-tests--new-name nospecial "x") nospecial)
970     (rename-file tmpfile (files-tests--new-name nospecial "x"))
971     (rename-file (files-tests--new-name nospecial "x") nospecial)
972     (rename-file nospecial (files-tests--new-name tmpfile "x"))
973     (rename-file (files-tests--new-name nospecial "x") nospecial))
974   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
975     (should-error (rename-file nospecial (files-tests--new-name nospecial "x")))
976     (rename-file tmpfile (files-tests--new-name nospecial "x"))
977     (rename-file (files-tests--new-name nospecial "x") nospecial)
978     (rename-file nospecial (files-tests--new-name tmpfile "x"))
979     (should-error (rename-file (files-tests--new-name nospecial "x") nospecial))
981     (delete-file (files-tests--new-name nospecial "x"))))
984   (files-tests--with-temp-non-special (tmpfile nospecial)
985     (set-file-acl nospecial (file-acl nospecial)))
986   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
987     (set-file-acl nospecial (file-acl nospecial))))
990   (files-tests--with-temp-non-special (tmpfile nospecial)
991     (set-file-modes nospecial (file-modes nospecial)))
992   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
993     (should-error (set-file-modes nospecial (file-modes nospecial)))))
996   (files-tests--with-temp-non-special (tmpfile nospecial)
998       (set-file-selinux-context nospecial (file-selinux-context nospecial))))
999   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
1002        (set-file-selinux-context nospecial (file-selinux-context nospecial))))))
1005   (files-tests--with-temp-non-special (tmpfile nospecial)
1006     (set-file-times nospecial))
1007   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
1008     (should-error (set-file-times nospecial))))
1011   (files-tests--with-temp-non-special (tmpfile nospecial)
1013       (set-buffer (find-file-noselect nospecial))
1016   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
1018       (set-buffer (find-file-noselect nospecial))
1072   (files-tests--with-temp-non-special (tmpfile nospecial)
1074           (nospecial-foo (files-tests--new-name nospecial "$FOO")))
1077   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
1079           (nospecial-foo (files-tests--new-name nospecial "$FOO")))
1102   (files-tests--with-temp-non-special (tmpfile nospecial)
1103     (should (equal (vc-registered nospecial) (vc-registered tmpfile))))
1104   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
1105     (should (equal (vc-registered nospecial) (vc-registered tmpfile)))))
1111   (files-tests--with-temp-non-special (tmpfile nospecial)
1113       (write-region nil nil nospecial nil :visit)))
1114   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
1116       (write-region nil nil nospecial nil :visit))))