add more tests.

ChangeLog

@@ -250,6 +250,9 @@
 	* twittering-mode.el (twittering-get-host-method-from-timeline-spec)
 	(twittering-get-timeline-spec): Add more timeline specification.
 
+	* test/test-twittering-mode.el (timeline-spec): add more tests for
+	timeline specification.
+
 2009-12-20  Tadashi Matsuo  <tad@mymail.twin.jp>
 
 	* test/test-twittering-mode.el (timeline-spec): add tests for

test/test-twittering-mode.el

@@ -159,9 +159,14 @@
              (twittering-get-timeline-spec host method))))
   (test-assert-ok (test-restore-timeline-spec "~"))
   (test-assert-ok (test-restore-timeline-spec "@"))
+  (test-assert-ok (test-restore-timeline-spec "M"))
   (test-assert-ok (test-restore-timeline-spec "-"))
   (test-assert-ok (test-restore-timeline-spec "USER"))
   (test-assert-ok (test-restore-timeline-spec "USER/LISTNAME"))
+  (test-assert-ok (test-restore-timeline-spec "H"))
+  (test-assert-ok (test-restore-timeline-spec "B"))
+  (test-assert-ok (test-restore-timeline-spec "T"))
+  (test-assert-ok (test-restore-timeline-spec "O"))
 
   (test-assert-eq nil (twittering-get-host-method-from-timeline-spec ""))
 
@@ -171,6 +176,9 @@
   (test-assert-ok
    (test-restore-host-method
     "twitter.com" "statuses/replies"))
+  (test-assert-ok
+   (test-restore-host-method
+    "twitter.com" "statuses/mentions"))
   (test-assert-ok
    (test-restore-host-method
     "twitter.com" "statuses/public_timeline"))
@@ -180,6 +188,18 @@
   (test-assert-ok
    (test-restore-host-method
     "api.twitter.com" "1/USER/lists/LISTNAME/statuses"))
+  (test-assert-ok
+   (test-restore-host-method
+    "api.twitter.com" "1/statuses/home_timeline"))
+  (test-assert-ok
+   (test-restore-host-method
+    "api.twitter.com" "1/statuses/retweeted_by_me"))
+  (test-assert-ok
+   (test-restore-host-method
+    "api.twitter.com" "1/statuses/retweeted_to_me"))
+  (test-assert-ok
+   (test-restore-host-method
+    "api.twitter.com" "1/statuses/retweets_of_me"))
 
   (test-assert-string-equal
    "USERNAME"