From 82447f7e08ce53dadc941049e6e9996fd5c84b25 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Wed, 12 Apr 2017 21:40:51 -0400
Subject: [PATCH] test/core/autoload/test-message: add more tests

---
 test/core/autoload/test-message.el | 25 ++++++++++++++++++++-----
 1 file changed, 20 insertions(+), 5 deletions(-)

diff --git a/test/core/autoload/test-message.el b/test/core/autoload/test-message.el
index 94e0ab4e0..a1823f755 100644
--- a/test/core/autoload/test-message.el
+++ b/test/core/autoload/test-message.el
@@ -3,19 +3,34 @@
 (def-test-group! core/autoload/message
   (ert-deftest ansi-format ()
     (let ((noninteractive t))
-      (should (equal (ansi-format! "Hello %s" "World") "Hello World"))
-      (should (equal (ansi-format! (red "Hello %s" "World")) "Hello World"))
+      (should (equal (ansi-format! "Hello %s" "World")
+                     "Hello World"))
+      (should (equal (ansi-format! (red "Hello %s" "World"))
+                     "Hello World"))
       (should (equal (ansi-format! (green "Hello %s" "World"))
                      (format "\e[%dm%s\e[0m"
                              (cdr (assq 'green doom-ansi-fg))
+                             "Hello World")))
+      (should (equal (ansi-format! (on-red "Hello %s" "World"))
+                     (format "\e[%dm%s\e[0m"
+                             (cdr (assq 'on-red doom-ansi-bg))
+                             "Hello World")))
+      (should (equal (ansi-format! (bold "Hello %s" "World"))
+                     (format "\e[%dm%s\e[0m"
+                             (cdr (assq 'bold doom-ansi-fx))
                              "Hello World")))))
 
   (ert-deftest ansi-format-nested ()
     (let ((noninteractive t))
       (should (equal (ansi-format! (bold (red "Hello %s" "World")))
-                     (format "\e[%dm%s\e[0m" 1 (format "\e[%dm%s\e[0m" 31 "Hello World"))))
-      (should (equal (ansi-format! (red (bold "Hello %s" "World")))
-                     (format "\e[%dm%s\e[0m" 31 (format "\e[%dm%s\e[0m" 1 "Hello World"))))))
+                     (format "\e[%dm%s\e[0m" 1
+                             (format "\e[%dm%s\e[0m" 31 "Hello World"))))
+      (should (equal (ansi-format! (on-red (bold "Hello %s" "World")))
+                     (format "\e[%dm%s\e[0m" 41
+                             (format "\e[%dm%s\e[0m" 1 "Hello World"))))
+      (should (equal (ansi-format! (dark (white "Hello %s" "World")))
+                     (format "\e[%dm%s\e[0m" 2
+                             (format "\e[%dm%s\e[0m" 37 "Hello World"))))))
 
   (ert-deftest ansi-format-apply ()
     (let ((noninteractive t))