From d4466ce8b7e5a4ac5bf5307b1ba813de30d590fc Mon Sep 17 00:00:00 2001
From: Yuto Hayamizu <y.hayamizu@gmail.com>
Date: Fri, 4 Dec 2009 03:10:10 +0900
Subject: [PATCH] add test for sign-string

---
 ChangeLog                    |  2 ++
 test/test-twittering-mode.el | 18 ++++++++++++++++++
 2 files changed, 20 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 37b03cc3..b11d5b75 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2009-12-04  Yuto Hayamizu  <y.hayamizu@gmail.com>
 
+	* test/test-twittering-mode.el (sign-string): add test
+
 	* twittering-mode.el (twittering-current-hashtag): docstring
 	(twittering-idle-time): removed (unused?)
 
diff --git a/test/test-twittering-mode.el b/test/test-twittering-mode.el
index 4a0db6e6..1d21016f 100644
--- a/test/test-twittering-mode.el
+++ b/test/test-twittering-mode.el
@@ -71,3 +71,21 @@
     (twittering-format-string "new~%line" "~"
 			      '(("%" . "\n"))))
   )
+
+(defcase sign-string nil nil
+    (setq twittering-sign-simple-string nil)
+    (test-assert-string-equal ""
+      (twittering-sign-string))
+
+    (setq twittering-sign-simple-string "")
+    (test-assert-string-equal " []"
+      (twittering-sign-string))
+
+    (setq twittering-sign-simple-string "foo")
+    (test-assert-string-equal " [foo]"
+      (twittering-sign-string))
+
+    (setq twittering-sign-string-function (lambda () "foo"))
+    (test-assert-string-equal "foo"
+      (twittering-sign-string))
+  )