emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/pacmacs 9ddaedae20 174/472: UT for pacmacs--file-content-t


From: ELPA Syncer
Subject: [nongnu] elpa/pacmacs 9ddaedae20 174/472: UT for pacmacs--file-content-test
Date: Thu, 6 Jan 2022 21:59:22 -0500 (EST)

branch: elpa/pacmacs
commit 9ddaedae2060f78660b14013481f0035fd77bc17
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>

    UT for pacmacs--file-content-test
---
 test-data/file-with-hello-string.txt | 1 +
 test/pacmacs-utils-test.el           | 6 ++++++
 2 files changed, 7 insertions(+)

diff --git a/test-data/file-with-hello-string.txt 
b/test-data/file-with-hello-string.txt
new file mode 100644
index 0000000000..ce01362503
--- /dev/null
+++ b/test-data/file-with-hello-string.txt
@@ -0,0 +1 @@
+hello
diff --git a/test/pacmacs-utils-test.el b/test/pacmacs-utils-test.el
index 642bf7767f..d323b4ff4c 100644
--- a/test/pacmacs-utils-test.el
+++ b/test/pacmacs-utils-test.el
@@ -9,3 +9,9 @@
 (ert-deftest pacmacs--levelname-from-filename-test ()
   (should (equal "map06" (pacmacs--levelname-from-filename "map06.txt")))
   (should (not (pacmacs--levelname-from-filename "."))))
+
+(ert-deftest pacmacs--file-content-test ()
+  (with-mock
+   (should (equal "hello\n"
+                  (pacmacs--file-content
+                   "test-data/file-with-hello-string.txt")))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]