Index: Changes
===================================================================
RCS file: /cvsroot/Text-MediawikiFormat/Changes,v
retrieving revision 1.4
diff -u -p -r1.4 Changes
--- Changes 8 Sep 2006 16:43:09 -0000 1.4
+++ Changes 8 Sep 2006 16:55:07 -0000
@@ -1,4 +1,5 @@
0.79
+ - additional tests added.
- the $tags{link} func is now passed the tags hash.
- extended_link_delimiters may now be specified as a regex.
- merge_hash() now copies hashes.
Index: t/explicit.t
===================================================================
RCS file: /cvsroot/Text-MediawikiFormat/t/explicit.t,v
retrieving revision 1.3
diff -u -p -r1.3 explicit.t
--- t/explicit.t 8 Sep 2006 14:58:28 -0000 1.3
+++ t/explicit.t 8 Sep 2006 16:55:07 -0000
@@ -5,21 +5,24 @@ BEGIN { chdir 't' if -d 't' }
use strict;
use warnings;
-use Test::More tests => 6;
+use Test::More tests => 7;
use Text::MediawikiFormat;
my $wikitext =<<WIKI;
[Ordinary extended link]
-[[Usemod extended link]]
+[
http://nowhere.com|explicit URI]
+[[Usemod extended link]]
WIKI
my $htmltext = Text::MediawikiFormat::format($wikitext, {}, { extended => 1 } );
like( $htmltext, qr!Ordinary extended link</a>!m,
'extended links rendered correctly with default delimiters' );
+like( $htmltext, qr!"
http://nowhere\.com">explicit URI</a>!m,
+ 'explicit URIs rendered correctly with default delimiters' );
# Redefine the delimiters to the same thing again.
my %tags = (