oddmuse/t/emailquote.t

# 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;

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.
&gt;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