+ def test_wikimedia_commons_link
+ link = wikimedia_commons_link("wikimedia_commons", "http://commons.wikimedia.org/wiki/File:Full%20URL.jpg")
+ assert_nil link
+
+ link = wikimedia_commons_link("wikimedia_commons", "https://commons.wikimedia.org/wiki/File:Full%20URL.jpg")
+ assert_nil link
+
+ link = wikimedia_commons_link("wikimedia_commons", "Test.jpg")
+ assert_nil link
+
+ link = wikimedia_commons_link("wikimedia_commons", "File:Test.jpg")
+ assert_equal "//commons.wikimedia.org/wiki/File:Test.jpg?uselang=en", link[:url]
+ assert_equal "File:Test.jpg", link[:title]
+
+ link = wikimedia_commons_link("wikimedia_commons", "Category:Test_Category")
+ assert_equal "//commons.wikimedia.org/wiki/Category:Test_Category?uselang=en", link[:url]
+ assert_equal "Category:Test_Category", link[:title]
+
+ I18n.with_locale "pt-BR" do
+ link = wikimedia_commons_link("wikimedia_commons", "File:Test.jpg")
+ assert_equal "//commons.wikimedia.org/wiki/File:Test.jpg?uselang=pt-BR", link[:url]
+ assert_equal "File:Test.jpg", link[:title]
+ end
+
+ link = wikimedia_commons_link("foo", "Test")
+ assert_nil link
+ end
+
+ def test_email_link
+ email = email_link("foo", "Test")
+ assert_nil email
+
+ email = email_link("email", "123")
+ assert_nil email
+
+ email = email_link("email", "Abc.example.com")
+ assert_nil email
+
+ email = email_link("email", "a@b@c.com")
+ assert_nil email
+
+ email = email_link("email", "just\"not\"right@example.com")
+ assert_nil email
+
+ email = email_link("email", "123 abcdefg@space.com")
+ assert_nil email
+
+ email = email_link("email", "test@ abc")
+ assert_nil email
+
+ email = email_link("email", "using;semicolon@test.com")
+ assert_nil email
+
+ email = email_link("email", "x@example.com")
+ assert_equal "x@example.com", email[:email]
+ assert_equal "mailto:x@example.com", email[:url]
+
+ email = email_link("email", "other.email-with-hyphen@example.com")
+ assert_equal "other.email-with-hyphen@example.com", email[:email]
+ assert_equal "mailto:other.email-with-hyphen@example.com", email[:url]
+
+ email = email_link("email", "user.name+tag+sorting@example.com")
+ assert_equal "user.name+tag+sorting@example.com", email[:email]
+ assert_equal "mailto:user.name+tag+sorting@example.com", email[:url]
+
+ email = email_link("email", "dash-in@both-parts.com")
+ assert_equal "dash-in@both-parts.com", email[:email]
+ assert_equal "mailto:dash-in@both-parts.com", email[:url]
+
+ email = email_link("email", "example@s.example")
+ assert_equal "example@s.example", email[:email]
+ assert_equal "mailto:example@s.example", email[:url]
+
+ # Strips whitespace at ends
+ email = email_link("email", " test@email.com ")
+ assert_equal "test@email.com", email[:email]
+ assert_equal "mailto:test@email.com", email[:url]
+ end
+