add simple link and poplink format tests
authorAdrian Oldham <adriann@visualthought.com.au>
Tue, 22 Oct 2013 14:02:32 +0000 (01:02 +1100)
committerTony Cook <tony@develop-help.com>
Sun, 3 Nov 2013 23:20:22 +0000 (10:20 +1100)
t/010-modules/050-format.t

index 678ca64..8d28f44 100644 (file)
@@ -1,6 +1,6 @@
 #!perl -w
 use strict;
-use Test::More tests => 134;
+use Test::More tests => 136;
 
 sub format_test($$$;$);
 sub noformat_test($$$;$);
@@ -31,6 +31,8 @@ SKIP: {
   format_test 'mark[hello]', '<p><mark>hello</mark></p>', 'mark';
   format_test 'mark[|hello]', '<p><mark>hello</mark></p>', 'mark empty class';
   format_test 'mark[foo|hello]', '<p><mark class="foo">hello</mark></p>', 'mark with class';
+  format_test 'link[foo|hello]', '<p><a href="foo">hello</a></p>', 'anchor';
+  format_test 'poplink[foo|hello]', '<p><a href="foo" target="_blank">hello</a></p>', 'anchor with popup';
   format_test <<IN, <<OUT, 'blockquote', 'both';
 blockquote[hello]
 IN