forked from github/kensanata.oddmuse
30 lines
1.1 KiB
Perl
30 lines
1.1 KiB
Perl
# Copyright (C) 2008 Weakish Jiang <weakish@gmail.com>
|
|
#
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License version 2 as
|
|
# published by the Free Software Foundation.
|
|
#
|
|
# You can get a copy of GPL version 2 at
|
|
# http://www.gnu.org/licenses/gpl-2.0.html
|
|
|
|
# $Id: emailquote.t,v 1.7 2008/07/12 13:43:48 as Exp $
|
|
|
|
require 't/test.pl';
|
|
package OddMuse;
|
|
use Test::More tests => 4;
|
|
clear_pages();
|
|
|
|
add_module('emailquote.pl');
|
|
|
|
run_tests(split('\n',<<'EOT'));
|
|
> This is a quote\n> \n>> Nesting is OK.\n> \n> Quote ends.
|
|
<dl class="quote"><dt /><dd>This is a quote</dd><dt /><dd><dl class="quote"><dt /><dd>Nesting is OK.</dd></dl></dd><dt /><dd></dd><dt /><dd>Quote ends.</dd></dl>
|
|
> This is a quote.
|
|
<dl class="quote"><dt /><dd>This is a quote.</dd></dl>
|
|
>This is not a quote.
|
|
>This is not a quote.
|
|
> This is a quote.\n>\n>> Nesting is OK.\n>\n> Quote ends.
|
|
<dl class="quote"><dt /><dd>This is a quote. <p /><dl class="quote"><dt /><dd>Nesting is OK. <p /></dd></dl></dd><dt /><dd>Quote ends.</dd></dl>
|
|
EOT
|
|
|