emailquote.t 1.0 KB

1234567891011121314151617181920212223242526272829
  1. # Copyright (C) 2008 Weakish Jiang <weakish@gmail.com>
  2. #
  3. # This program is free software; you can redistribute it and/or modify
  4. # it under the terms of the GNU General Public License version 2 as
  5. # published by the Free Software Foundation.
  6. #
  7. # You can get a copy of GPL version 2 at
  8. # http://www.gnu.org/licenses/gpl-2.0.html
  9. # $Id: emailquote.t,v 1.7 2008/07/12 13:43:48 as Exp $
  10. require 't/test.pl';
  11. package OddMuse;
  12. use Test::More tests => 4;
  13. add_module('emailquote.pl');
  14. run_tests(split('\n',<<'EOT'));
  15. > This is a quote\n> \n>> Nesting is OK.\n> \n> Quote ends.
  16. <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>
  17. > This is a quote.
  18. <dl class="quote"><dt /><dd>This is a quote.</dd></dl>
  19. >This is not a quote.
  20. &gt;This is not a quote.
  21. > This is a quote.\n>\n>> Nesting is OK.\n>\n> Quote ends.
  22. <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>
  23. EOT