add test for sign-string

hayamiz · Dec 3, 2009 · d4466ce · d4466ce
1 parent bb32fb9
commit d4466ce
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 0 deletions.
diff --git 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
@@ -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))
+  )