Added a test for toc tag class.

This commit is contained in:
Alex Schroeder
2007-02-15 21:58:21 +00:00
parent a48736e868
commit e00aac24ae

12
t/toc.t
View File

@@ -18,7 +18,7 @@
require 't/test.pl';
package OddMuse;
use Test::More tests => 23;
use Test::More tests => 24;
clear_pages();
@@ -36,6 +36,16 @@ run_tests(split('\n',<<'EOT'));
<h2 id="toc2">make honey</h2><p>Moo. </p><h2 id="toc3">make honey</h2><p>Moo.</p>
EOT
test_page(update_page('toc', "bla\n"
. "<toc/fnord/mu>\n"
. "murks\n"
. "==two=\n"
. "bla\n"
. "===three==\n"
. "bla\n"
. "=one=\n"),
quotemeta('<div class="toc fnord mu">'));
test_page(update_page('toc', "bla\n"
. "=one=\n"
. "blarg\n"