Reflect directory-p flag in fakir--file-attribs

nicferrier · Apr 18, 2014 · c5bcd01 · c5bcd01
1 parent 12b8cb6
commit c5bcd01
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/fakir-tests.el b/fakir-tests.el
@@ -143,6 +143,14 @@ work.  That seems better than trying to use a binary."
              :filename "somefile"
              :directory "/home/dir"
              :mtime "Mon, Feb 27 2012 22:10:21 GMT")))
+    (should (equal
+             (list nil t t t t '(20299 65357))
+             (fakir--file-attribs ef))))
+  (let ((ef (make-fakir-file
+             :filename "somedir"
+             :directory "/home/dir"
+             :mtime "Mon, Feb 27 2012 22:10:21 GMT"
+             :directory-p t)))
     (should (equal
              (list t t t t t '(20299 65357))
              (fakir--file-attribs ef)))))

diff --git a/fakir.el b/fakir.el
@@ -363,7 +363,8 @@ If RAW is t then return the raw value, a string."
 
 Currently WE ONLY SUPPORT MODIFIED-TIME."
   (fakir--file-check file)
-  (list t t t t t
+  (list (fakir-file-directory-p file)
+        t t t t
         (fakir--file-mod-time file)))
 
 (defun fakir--file-home (file)