forked from jpve/perl6-pod-to-markdown
/
formatting.t
47 lines (27 loc) · 1.07 KB
/
formatting.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
use v6;
use Test;
use Pod::To::Markdown;
plan 1;
=begin pod
This text is of U<minor significance>.
This text is of I<major significance>.
This text is of B<fundamental significance>.
This text is V<verbatim C<with> B<disarmed> Z<formatting>>.
This text is R<to be replaced>.
This text is Z<blabla>invisible.
This text contains a link to L<https://perl6.org/>.
This text contains a link with label to L<TPF|https://perlfoundation.org/>.
And awesome L<link B<with I<formatting>>|http://p6weekly.wordpress.com/>!
=end pod
is pod2markdown($=pod), q:to/EOF/, 'Decodes formatted text correctly';
This text is of _minor significance_.
This text is of *major significance*.
This text is of **fundamental significance**.
This text is verbatim C<with> B<disarmed> Z<formatting>.
This text is <var>to be replaced</var>.
This text is invisible.
This text contains a link to [https://perl6.org/](https://perl6.org/).
This text contains a link with label to [TPF](https://perlfoundation.org/).
And awesome [link **with *formatting***](http://p6weekly.wordpress.com/)!
EOF
# vim:set ft=perl6: