Merge pull request #16 from zoffixznet/fix_malformed_URL_formatting_i…

…ssue_12

Test for malformed formatting

(Issue #12)

t/mediawiki_links.t

@@ -14,7 +14,7 @@
 use strict;
 
 use Pod::Simple::Wiki;
-use Test::More tests => 4;
+use Test::More tests => 6;
 
 my $style = 'mediawiki';
 
@@ -28,6 +28,16 @@ my @tests = (
         "=pod\n\nL<http://www.perl.org>." => qq(http://www.perl.org.\n\n),
         'http'
     ],
+    [
+        "=pod\n\nL<Google|http://www.google.com>." =>
+          qq([http://www.google.com Google].\n\n),
+        'http with text'
+    ],
+    [
+        "=pod\n\nL<Google(s)|https://www.google.com>." =>
+          qq([https://www.google.com Google(s)].\n\n),
+        'https with text'
+    ],
     [
         qq(=pod\n\nL</"METHODS">) => qq([[#METHODS|"METHODS"]]\n\n),
         'Internal link'