38 lines
1.1 KiB
Perl
38 lines
1.1 KiB
Perl
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More;
|
|
use DDG::Test::Goodie;
|
|
|
|
zci answer_type => 'markdown_cheat';
|
|
zci is_cached => 1;
|
|
|
|
sub test_success {
|
|
return test_zci(
|
|
qr/^$_[0]/s,
|
|
heading => 'Markdown Cheat Sheet',
|
|
html => qr/Markdown:<pre>$_[0].*<\/pre>HTML:<pre><$_[1] ?.*>.*<\/pre>/s,
|
|
);
|
|
}
|
|
|
|
ddg_goodie_test(
|
|
[ 'DDG::Goodie::MarkdownCheatSheet' ],
|
|
'md header' => test_success('#', 'h1'),
|
|
'markdown header' => test_success('#', 'h1'),
|
|
'markdown cheat sheet header' => test_success('#', 'h1'),
|
|
'md cheat sheet header' => test_success('#', 'h1'),
|
|
'h1 markdown cheat sheet' => test_success('#', 'h1'),
|
|
'markdown help h1' => test_success('#', 'h1'),
|
|
'markdown syntax list' => test_success('-', 'ul'),
|
|
'markdown quick reference em' => test_success('_', 'em'),
|
|
'markdown guide strong' => test_success('\*\*', 'strong'),
|
|
'markdown reference blockquote' => test_success('>', 'blockquote'),
|
|
'markdown cheatsheet insert image' => test_success('!', 'img'),
|
|
'markdown cheat sheet link' => test_success('\[', 'a'),
|
|
'markdown cheat sheet random stuff' => undef,
|
|
);
|
|
|
|
done_testing;
|