diff --git a/ChangeLog b/ChangeLog index c707d9ce..e5b42937 100644 --- a/ChangeLog +++ b/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 * test/test-twittering-mode.el (timeline-spec): add tests for diff --git a/test/test-twittering-mode.el b/test/test-twittering-mode.el index f572e21c..e234666b 100644 --- a/test/test-twittering-mode.el +++ b/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"