Codebase list libhtml-formattext-withlinks-andtables-perl / HEAD t / html-formattext-withlinks-andtables.t
HEAD

Tree @HEAD (Download .tar.gz)

html-formattext-withlinks-andtables.t @HEAD — raw · history · blame 

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
use strict;
use HTML::FormatText::WithLinks::AndTables;
my $html = q|
<html>
    <body>
        <h1>BIG</h1>
        How's it going?<br/>
        How's it going?<br/>
        How's it going?<br/>

        How's it going?<br/>
        How's it going?<br/>
        How's it going?<br/>

<br/>
Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec hendrerit venenatis dolor. Suspendisse in neque id odio auctor porttitor. Cras adipiscing, orci in venenatis semper, nibh tortor posuere magna, ac blandit sapien purus et ligula. Proin et libero. Duis pellentesque, tellus a viverra pretium, lacus urna fermentum elit, et tempor nibh urna ac erat. Sed suscipit, enim in vulputate aliquam, mi ligula viverra enim, vitae mollis tortor metus ac sapien. Maecenas risus ligula, viverra eget, sagittis at, ultrices in, ante. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Nunc dictum. Praesent gravida neque quis odio. Mauris lacus nulla, iaculis eu, commodo sit amet, molestie sed, diam. In vel ligula.

        <table>
            <tr>
                <td align="right">
#1###<br/>
#2#########<br/>
#3###<br/>
#4###<br/>
#5###<br/>
                </td>
                <td>
%1%%%<br/>
%2%%%<br/>
%3%%%<br/>
%4%%%<br/>
%5%%%%%%%%%%%<br/>
                </td>
            </tr>
            <tr><td></td><td>booo!</td></tr>
            <tr>
                <td align="right">
#6###<br/>
#7#########<br/>
#8###<br/>
#9###<br/>
#10##<br/>
                </td>
                <td>
%6%%%<br/>
%7%%%<br/>
%8%%%<br/>
%9%%%<br/>
%10%%%%%%%%%%<br/>
                </td>
            </tr>
        </table>
    </body>
    <a href="http://xyz">http://xyz</a>
</html>|;
my $text = HTML::FormatText::WithLinks::AndTables->convert($html, {rm=>80,cellpadding=>2});
my $expected =
q|   BIG
   ===

   How's it going?
   How's it going?
   How's it going?
   How's it going?
   How's it going?
   How's it going?

   Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec hendrerit
   venenatis dolor. Suspendisse in neque id odio auctor porttitor. Cras
   adipiscing, orci in venenatis semper, nibh tortor posuere magna, ac blandit
   sapien purus et ligula. Proin et libero. Duis pellentesque, tellus a viverra
   pretium, lacus urna fermentum elit, et tempor nibh urna ac erat. Sed suscipit,
   enim in vulputate aliquam, mi ligula viverra enim, vitae mollis tortor metus
   ac sapien. Maecenas risus ligula, viverra eget, sagittis at, ultrices in,
   ante. Pellentesque habitant morbi tristique senectus et netus et malesuada
   fames ac turpis egestas. Nunc dictum. Praesent gravida neque quis odio. Mauris
   lacus nulla, iaculis eu, commodo sit amet, molestie sed, diam. In vel ligula.

              #1###    %1%%%             
        #2#########    %2%%%             
              #3###    %3%%%             
              #4###    %4%%%             
              #5###    %5%%%%%%%%%%%     

                       booo!             

              #6###    %6%%%             
        #7#########    %7%%%             
              #8###    %8%%%             
              #9###    %9%%%             
              #10##    %10%%%%%%%%%%     

   [1]http://xyz

   1. http://xyz


|;
use Test::More tests=>1;
is $text, $expected,
    'HTML::FormatText::WithLinks::AndTables->convert($html,{rm=>80,cellpadding=>2})';