cancel tinyurl test if 'url' is not available

hayamiz · Dec 28, 2009 · f5e0a35 · f5e0a35
1 parent 6f3bedd
commit f5e0a35
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/test/test-twittering-mode.el b/test/test-twittering-mode.el
@@ -93,10 +93,11 @@
   (test-assert-string-equal "love+plus"
     (twittering-percent-encode "love plus")))
 
-(defcase tinyurl nil nil
-  (test-assert-string-equal "http://tinyurl.com/3xsrg5"
-    (twittering-tinyurl-get "http://example.com/example"))
-  )
+(when (require 'url nil t)
+  (defcase tinyurl nil nil
+    (test-assert-string-equal "http://tinyurl.com/3xsrg5"
+      (twittering-tinyurl-get "http://example.com/example"))
+    ))
 
 (defcase case-string nil nil
   (test-assert-string-equal "Kobayakawa"