The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
. tests/functions.sh

title "xml output with MKD_CDATA"

rc=0
MARKDOWN_FLAGS=

try -fcdata 'xml output from markdown()' 'hello,sailor' '<p>hello,sailor</p>'
try -fcdata 'from mkd_generateline()' -t'"hello,sailor"' '“hello,sailor”'
try -fnocdata 'html output from markdown()' '"hello,sailor"' '<p>&ldquo;hello,sailor&rdquo;</p>'
try -fnocdata '... from mkd_generateline()' -t'"hello,sailor"' '&ldquo;hello,sailor&rdquo;'

try -fcdata 'xml output with multibyte utf-8' \
    'tecnología y servicios más confiables' \
    '&lt;p&gt;tecnología y servicios más confiables&lt;/p&gt;'

summary $0
exit $rc