all tests pass

diff --git a/.gitignore b/.gitignore
index a06f387e846eb2e3094f832e29d05725dce8aa8c..e5e7ab14206839d796aa87fc0c0d1f3b09afebbe 100644 (file)
--- a/.gitignore
+++ b/.gitignore
@@ -5,3 +5,4 @@ blib/*
 pm_to_blib
 Makefile
 .emacs.desktop
+.build/*

diff --git a/dist.ini b/dist.ini
index ed727c17b035751063a67fa0efc60c8ed6d39031..d8740f809bda905bfa594f9815a09acfcdcbe8a2 100644 (file)
--- a/dist.ini
+++ b/dist.ini
@@ -10,5 +10,5 @@ version = 4.4
 
 [AutoPrereqs]
 
-[Prereqs]
-Test::XML = 0
\ No newline at end of file
+skip = (Test::XML|Arsenal|SimpleClass|SelectData|TestUtils|data::table2)
+

diff --git a/lib/HTML/Element/Library.pm b/lib/HTML/Element/Library.pm
index 024e114e441a0878ee698adccfc8125bc0a11324..cb9cec3e5d423454e19e29c82f24e38ef3bbe48e 100644 (file)
--- a/lib/HTML/Element/Library.pm
+++ b/lib/HTML/Element/Library.pm
@@ -98,6 +98,26 @@ sub HTML::Element::prune {
   $self;
 }
 
+sub HTML::Element::newnode {
+  my ($lol, $node_label, $new_node)=@_;
+
+  use Data::Rmap qw(rmap_array);
+
+  my ($mapresult) = rmap_array {
+ 
+
+  if ($_->[0] eq $node_label) {
+    $_ = $new_node;
+    Data::Rmap::cut($_);
+  } else {
+    $_;
+  }
+
+  } $lol;
+
+  $mapresult;
+
+}
 
 sub HTML::Element::crunch {
     my $container = shift;

diff --git a/lib/HTML/Element/Library.pod b/lib/HTML/Element/Library.pod
index c7cde764c2da5f3504d1b0e54570382bd6167287..909aa9ecefccf2f15a86ed00ae6cfa57a7b86120 100644 (file)
--- a/lib/HTML/Element/Library.pod
+++ b/lib/HTML/Element/Library.pod
@@ -1089,27 +1089,89 @@ to display:
        </span>
 
 
+=head2 Tree-Killing Methods
 
+=head3 $tree->prune
 
-=head1 SEE ALSO
+This removes any nodes from the tree which consist of nothing or nothing but whitespace.
+See also delete_ignorable_whitespace in L<HTML::Element>.
 
-=over
+=head2 Loltree Functions
+
+A loltree is an arrayref consisting of arrayrefs which is used by 
+C<< new_from__lol >> in L<HTML::Element> to produce HTML trees.
+The CPAN distro L<XML::Element::Tolol> creates such XML trees by parsing XML files,
+analagous to L<XML::Toolkit>. The purpose of the functions in this section is to allow 
+you manipulate a loltree programmatically. 
 
-=item * L<HTML::Tree>
+These could not be methods because if you bless a loltree, then HTML::Tree will barf.
 
-A perl package for creating and manipulating HTML trees
+=head3 HTML::Element::replace_node($lol, $node_label, $new_node)
 
-=item * L<HTML::ElementTable>
+Given this initial loltree:
+
+    my $initial_lol = [ note => [ shopping => [ item => 'sample' ] ] ];
+
+This code:
+
+    sub shopping_items {
+      my @shopping_items = map { [ item => _ ] } qw(bread butter beans) ;
+      \@shopping_items;
+    }
+
+    my $new_lol = HTML::Element::newnode($initial_lol, item => shopping_items());
+
+ will replace the single sample with a list of shopping items:
+
+
+     [
+          'note',
+          [
+            'shopping',
+            [
+              [
+                'item',
+                'bread'
+              ],
+              [
+                'item',
+                'butter'
+              ],
+              [
+                'item',
+                'beans'
+              ]
+            ]
+          ]
+        ];
+
+Thanks to kcott and the other Perlmonks in this thread:
+http://www.perlmonks.org/?node_id=912416
+
+
+=head1 SEE ALSO
+
+=head2 L<HTML::Tree>
+
+A perl package for creating and manipulating HTML trees. 
+
+=head2 L<HTML::ElementTable>
 
 An L<HTML::Tree> - based module which allows for manipulation of HTML
 trees using cartesian coordinations. 
 
-=item * L<HTML::Seamstress>
+=head2 * L<HTML::Seamstress>
 
 An L<HTML::Tree> - based module inspired by 
 XMLC (L<http://xmlc.enhydra.org>), allowing for dynamic
 HTML generation via tree rewriting.
 
+=head2 Push-style tmeplating systems
+
+A comprehensive cross-language 
+L<list of push-style templating systems|http://perlmonks.org/?node_id=674225>.
+
+
 =head1 TODO
 
 =over

diff --git a/t/crunch.t b/t/crunch.t
index b4a42e32ccc83adc1e320aa82ee3c9958772c4fe..275a02163f9f5c0896b87d84f3c3ad9fbb043c75 100644 (file)
--- a/t/crunch.t
+++ b/t/crunch.t
@@ -3,7 +3,7 @@ use strict;use warnings;
 use lib qw(t/ t/m/);
 
 use File::Slurp;
-use Test::More qw(no_plan);
+use Test::More;
 
 use TestUtils;
 use HTML::TreeBuilder;
@@ -26,3 +26,4 @@ sub tage {
 
 tage();
 
+done_testing;

diff --git a/t/html/crunch/crunch.exp b/t/html/crunch/crunch.exp
new file mode 100644 (file)
index 0000000..5c5b118
--- /dev/null
+++ b/t/html/crunch/crunch.exp
@@ -0,0 +1,30 @@
+<html>\r
+  <head>\r
+<script src="smooth/scripts/mootools-1.2.1-core-yc.js" type="text/javascript"></script>\r
+<script src="smooth/scripts/mootools-1.2-more.js" type="text/javascript"></script>\r
+<script src="smooth/scripts/jd.gallery.js" type="text/javascript"></script>\r
+    <link rel="stylesheet" /="/" href="smooth/css/jd.gallery.css"\r
+      media="screen" type="text/css">\r
+  </head>\r
+  <body>\r
+<script type="text/javascript">\r\r
+function startGallery() {\r\r
+var myGallery = new gallery($('myGallery'), {\r\r
+timed: true\r\r
+});\r\r
+}\r\r
+window.addEvent('domready', startGallery);\r\r
+</script>\r
+    <div id="myGallery">\r
+      <div class="imageElement">\r
+        <h3>Item 1 Title</h3>\r
+        <p>Item 1 Description</p>\r
+        <a href="gallery-images/item-1/" title="open image" class="open"></a>\r
+        <img /="/" alt="Item 1 Title"\r
+          src="http://smoothgallery.jondesign.net/assets/images/samples/77196_6784-gallery.jpg"\r
+          class="full"> <img /="/" alt="thumbnail of Item 1 Title"\r
+          src="http://smoothgallery.jondesign.net/assets/images/samples/77196_6784-mini.jpg"\r
+          class="thumbnail"></div>\r
+    </div>\r
+  </body>\r
+</html>\r

diff --git a/t/html/crunch/crunch.gen b/t/html/crunch/crunch.gen
index 0e6e3e1167a8159626ec3b53739980967defbb66..5c5b118c4b649b5b2ca937ef4caff99c0dfed2dd 100644 (file)
--- a/t/html/crunch/crunch.gen
+++ b/t/html/crunch/crunch.gen
@@ -1,30 +1,30 @@
-<html>
-  <head>
-<script src="smooth/scripts/mootools-1.2.1-core-yc.js" type="text/javascript"></script>
-<script src="smooth/scripts/mootools-1.2-more.js" type="text/javascript"></script>
-<script src="smooth/scripts/jd.gallery.js" type="text/javascript"></script>
-    <link rel="stylesheet" /="/" href="smooth/css/jd.gallery.css"
-      media="screen" type="text/css">
-  </head>
-  <body>
-<script type="text/javascript">
-function startGallery() {
-var myGallery = new gallery($('myGallery'), {
-timed: true
-});
-}
-window.addEvent('domready', startGallery);
-</script>
-    <div id="myGallery">
-      <div class="imageElement">
-        <h3>Item 1 Title</h3>
-        <p>Item 1 Description</p>
-        <a href="gallery-images/item-1/" title="open image" class="open"></a>
-        <img /="/" alt="Item 1 Title"
-          src="http://smoothgallery.jondesign.net/assets/images/samples/77196_6784-gallery.jpg"
-          class="full"> <img /="/" alt="thumbnail of Item 1 Title"
-          src="http://smoothgallery.jondesign.net/assets/images/samples/77196_6784-mini.jpg"
-          class="thumbnail"></div>
-    </div>
-  </body>
-</html>
+<html>\r
+  <head>\r
+<script src="smooth/scripts/mootools-1.2.1-core-yc.js" type="text/javascript"></script>\r
+<script src="smooth/scripts/mootools-1.2-more.js" type="text/javascript"></script>\r
+<script src="smooth/scripts/jd.gallery.js" type="text/javascript"></script>\r
+    <link rel="stylesheet" /="/" href="smooth/css/jd.gallery.css"\r
+      media="screen" type="text/css">\r
+  </head>\r
+  <body>\r
+<script type="text/javascript">\r\r
+function startGallery() {\r\r
+var myGallery = new gallery($('myGallery'), {\r\r
+timed: true\r\r
+});\r\r
+}\r\r
+window.addEvent('domready', startGallery);\r\r
+</script>\r
+    <div id="myGallery">\r
+      <div class="imageElement">\r
+        <h3>Item 1 Title</h3>\r
+        <p>Item 1 Description</p>\r
+        <a href="gallery-images/item-1/" title="open image" class="open"></a>\r
+        <img /="/" alt="Item 1 Title"\r
+          src="http://smoothgallery.jondesign.net/assets/images/samples/77196_6784-gallery.jpg"\r
+          class="full"> <img /="/" alt="thumbnail of Item 1 Title"\r
+          src="http://smoothgallery.jondesign.net/assets/images/samples/77196_6784-mini.jpg"\r
+          class="thumbnail"></div>\r
+    </div>\r
+  </body>\r
+</html>\r

diff --git a/t/html/table2-table_ld-arrayref.exp b/t/html/table2-table_ld-arrayref.exp
index ed2919a9270a26506a9b1c557c7a1677fccba14d..328a429689270d210ea16386fca99061beabc238 100644 (file)
--- a/t/html/table2-table_ld-arrayref.exp
+++ b/t/html/table2-table_ld-arrayref.exp
@@ -1,6 +1,4 @@
-<table summary="Code page support in different versions
-      of MS Windows."
-  frame="hsides" rules="groups" border="2">
+<table frame="hsides" rules="groups" border="2">
   <caption>CODE-PAGE SUPPORT IN MICROSOFT WINDOWS</caption>
   <colgroup align="center"></colgroup>
   <colgroup align="left"></colgroup>

diff --git a/t/html/table2-table_ld-arrayref.gen b/t/html/table2-table_ld-arrayref.gen
index ed2919a9270a26506a9b1c557c7a1677fccba14d..328a429689270d210ea16386fca99061beabc238 100644 (file)
--- a/t/html/table2-table_ld-arrayref.gen
+++ b/t/html/table2-table_ld-arrayref.gen
@@ -1,6 +1,4 @@
-<table summary="Code page support in different versions
-      of MS Windows."
-  frame="hsides" rules="groups" border="2">
+<table frame="hsides" rules="groups" border="2">
   <caption>CODE-PAGE SUPPORT IN MICROSOFT WINDOWS</caption>
   <colgroup align="center"></colgroup>
   <colgroup align="left"></colgroup>

diff --git a/t/html/table2-table_ld-arrayref.html b/t/html/table2-table_ld-arrayref.html
index 544553b1b2256af0cf6766f84eb393f8aa3c2292..cffaba2997ad817681682735efd6cbee92b90b4e 100644 (file)
--- a/t/html/table2-table_ld-arrayref.html
+++ b/t/html/table2-table_ld-arrayref.html
@@ -23,9 +23,7 @@
     
     <P>
 
-    <TABLE border="2" frame="hsides" rules="groups"
-      summary="Code page support in different versions
-      of MS Windows.">
+    <TABLE border="2" frame="hsides" rules="groups">
       <CAPTION>CODE-PAGE SUPPORT IN MICROSOFT WINDOWS</CAPTION>
       <COLGROUP align="center">
       <COLGROUP align="left">

diff --git a/t/html/table2-table_ld-coderef.exp b/t/html/table2-table_ld-coderef.exp
index ed2919a9270a26506a9b1c557c7a1677fccba14d..328a429689270d210ea16386fca99061beabc238 100644 (file)
--- a/t/html/table2-table_ld-coderef.exp
+++ b/t/html/table2-table_ld-coderef.exp
@@ -1,6 +1,4 @@
-<table summary="Code page support in different versions
-      of MS Windows."
-  frame="hsides" rules="groups" border="2">
+<table frame="hsides" rules="groups" border="2">
   <caption>CODE-PAGE SUPPORT IN MICROSOFT WINDOWS</caption>
   <colgroup align="center"></colgroup>
   <colgroup align="left"></colgroup>

diff --git a/t/html/table2-table_ld-coderef.gen b/t/html/table2-table_ld-coderef.gen
index ed2919a9270a26506a9b1c557c7a1677fccba14d..328a429689270d210ea16386fca99061beabc238 100644 (file)
--- a/t/html/table2-table_ld-coderef.gen
+++ b/t/html/table2-table_ld-coderef.gen
@@ -1,6 +1,4 @@
-<table summary="Code page support in different versions
-      of MS Windows."
-  frame="hsides" rules="groups" border="2">
+<table frame="hsides" rules="groups" border="2">
   <caption>CODE-PAGE SUPPORT IN MICROSOFT WINDOWS</caption>
   <colgroup align="center"></colgroup>
   <colgroup align="left"></colgroup>

diff --git a/t/html/table2-table_ld-coderef.html b/t/html/table2-table_ld-coderef.html
index 544553b1b2256af0cf6766f84eb393f8aa3c2292..cffaba2997ad817681682735efd6cbee92b90b4e 100644 (file)
--- a/t/html/table2-table_ld-coderef.html
+++ b/t/html/table2-table_ld-coderef.html
@@ -23,9 +23,7 @@
     
     <P>
 
-    <TABLE border="2" frame="hsides" rules="groups"
-      summary="Code page support in different versions
-      of MS Windows.">
+    <TABLE border="2" frame="hsides" rules="groups">
       <CAPTION>CODE-PAGE SUPPORT IN MICROSOFT WINDOWS</CAPTION>
       <COLGROUP align="center">
       <COLGROUP align="left">

diff --git a/t/html/table2-table_ld-default.exp b/t/html/table2-table_ld-default.exp
index ed2919a9270a26506a9b1c557c7a1677fccba14d..328a429689270d210ea16386fca99061beabc238 100644 (file)
--- a/t/html/table2-table_ld-default.exp
+++ b/t/html/table2-table_ld-default.exp
@@ -1,6 +1,4 @@
-<table summary="Code page support in different versions
-      of MS Windows."
-  frame="hsides" rules="groups" border="2">
+<table frame="hsides" rules="groups" border="2">
   <caption>CODE-PAGE SUPPORT IN MICROSOFT WINDOWS</caption>
   <colgroup align="center"></colgroup>
   <colgroup align="left"></colgroup>

diff --git a/t/html/table2-table_ld-default.gen b/t/html/table2-table_ld-default.gen
index ed2919a9270a26506a9b1c557c7a1677fccba14d..328a429689270d210ea16386fca99061beabc238 100644 (file)
--- a/t/html/table2-table_ld-default.gen
+++ b/t/html/table2-table_ld-default.gen
@@ -1,6 +1,4 @@
-<table summary="Code page support in different versions
-      of MS Windows."
-  frame="hsides" rules="groups" border="2">
+<table frame="hsides" rules="groups" border="2">
   <caption>CODE-PAGE SUPPORT IN MICROSOFT WINDOWS</caption>
   <colgroup align="center"></colgroup>
   <colgroup align="left"></colgroup>

diff --git a/t/html/table2-table_ld-default.html b/t/html/table2-table_ld-default.html
index 544553b1b2256af0cf6766f84eb393f8aa3c2292..cffaba2997ad817681682735efd6cbee92b90b4e 100644 (file)
--- a/t/html/table2-table_ld-default.html
+++ b/t/html/table2-table_ld-default.html
@@ -23,9 +23,7 @@
     
     <P>
 
-    <TABLE border="2" frame="hsides" rules="groups"
-      summary="Code page support in different versions
-      of MS Windows.">
+    <TABLE border="2" frame="hsides" rules="groups">
       <CAPTION>CODE-PAGE SUPPORT IN MICROSOFT WINDOWS</CAPTION>
       <COLGROUP align="center">
       <COLGROUP align="left">

diff --git a/t/html/table2-tr_ld-coderef.exp b/t/html/table2-tr_ld-coderef.exp
index 6df0c7338f195ee7876dcb0c40b66b75e361f593..81399d8ee50f31b027e18859a1583f6718c9a5d6 100644 (file)
--- a/t/html/table2-tr_ld-coderef.exp
+++ b/t/html/table2-tr_ld-coderef.exp
@@ -11,10 +11,7 @@
         href="http://search.cpan.org/search?query=Element%3A%3ALibrary&mode=all">
         <code>HTML::Element::Library</code> </a>. </p>
     <p>
-      <table
-        summary="Code page support in different versions
-      of MS Windows."
-        frame="hsides" rules="groups" border="2">
+      <table frame="hsides" rules="groups" border="2">
         <caption>CODE-PAGE SUPPORT IN MICROSOFT WINDOWS</caption>
         <colgroup align="center"></colgroup>
         <colgroup align="left"></colgroup>

diff --git a/t/html/table2-tr_ld-coderef.gen b/t/html/table2-tr_ld-coderef.gen
index 6df0c7338f195ee7876dcb0c40b66b75e361f593..81399d8ee50f31b027e18859a1583f6718c9a5d6 100644 (file)
--- a/t/html/table2-tr_ld-coderef.gen
+++ b/t/html/table2-tr_ld-coderef.gen
@@ -11,10 +11,7 @@
         href="http://search.cpan.org/search?query=Element%3A%3ALibrary&mode=all">
         <code>HTML::Element::Library</code> </a>. </p>
     <p>
-      <table
-        summary="Code page support in different versions
-      of MS Windows."
-        frame="hsides" rules="groups" border="2">
+      <table frame="hsides" rules="groups" border="2">
         <caption>CODE-PAGE SUPPORT IN MICROSOFT WINDOWS</caption>
         <colgroup align="center"></colgroup>
         <colgroup align="left"></colgroup>

diff --git a/t/html/table2-tr_ld-coderef.html b/t/html/table2-tr_ld-coderef.html
index 544553b1b2256af0cf6766f84eb393f8aa3c2292..cffaba2997ad817681682735efd6cbee92b90b4e 100644 (file)
--- a/t/html/table2-tr_ld-coderef.html
+++ b/t/html/table2-tr_ld-coderef.html
@@ -23,9 +23,7 @@
     
     <P>
 
-    <TABLE border="2" frame="hsides" rules="groups"
-      summary="Code page support in different versions
-      of MS Windows.">
+    <TABLE border="2" frame="hsides" rules="groups">
       <CAPTION>CODE-PAGE SUPPORT IN MICROSOFT WINDOWS</CAPTION>
       <COLGROUP align="center">
       <COLGROUP align="left">

diff --git a/t/html/table2-tr_ld-default.exp b/t/html/table2-tr_ld-default.exp
new file mode 100644 (file)
index 0000000..ed2919a
--- /dev/null
+++ b/t/html/table2-tr_ld-default.exp
@@ -0,0 +1,160 @@
+<table summary="Code page support in different versions
+      of MS Windows."
+  frame="hsides" rules="groups" border="2">
+  <caption>CODE-PAGE SUPPORT IN MICROSOFT WINDOWS</caption>
+  <colgroup align="center"></colgroup>
+  <colgroup align="left"></colgroup>
+  <colgroup align="center" span="2"></colgroup>
+  <colgroup align="center" span="3">
+    <thead valign="top">
+      <tr>
+        <th>Code-Page<br>ID </th>
+        <th>Name </th>
+        <th>ACP </th>
+        <th>OEMCP </th>
+        <th>Windows<br>NT 3.1 </th>
+        <th>Windows<br>NT 3.51 </th>
+        <th>Windows<br>95 </th>
+      </tr>
+      <tbody>
+        <tr>
+          <td>1200</td>
+          <td>Unicode (BMP of ISO/IEC-10646)</td>
+          <td></td>
+          <td></td>
+          <td>X</td>
+          <td>X</td>
+          <td>* </td>
+        </tr>
+        <tr>
+          <td>1250</td>
+          <td>Windows 3.1 Eastern European</td>
+          <td>X</td>
+          <td></td>
+          <td>X</td>
+          <td>X</td>
+          <td>X </td>
+        </tr>
+        <tr>
+          <td>1251</td>
+          <td>Windows 3.1 Cyrillic</td>
+          <td>X</td>
+          <td></td>
+          <td>X</td>
+          <td>X</td>
+          <td>X </td>
+        </tr>
+        <tr>
+          <td>1252</td>
+          <td>Windows 3.1 US (ANSI)</td>
+          <td>X</td>
+          <td></td>
+          <td>X</td>
+          <td>X</td>
+          <td>X </td>
+        </tr>
+        <tr>
+          <td>1253</td>
+          <td>Windows 3.1 Greek</td>
+          <td>X</td>
+          <td></td>
+          <td>X</td>
+          <td>X</td>
+          <td>X </td>
+        </tr>
+        <tr>
+          <td>1254</td>
+          <td>Windows 3.1 Turkish</td>
+          <td>X</td>
+          <td></td>
+          <td>X</td>
+          <td>X</td>
+          <td>X </td>
+        </tr>
+        <tr>
+          <td>1255</td>
+          <td>Hebrew</td>
+          <td>X</td>
+          <td></td>
+          <td></td>
+          <td></td>
+          <td>X </td>
+        </tr>
+        <tr>
+          <td>1256</td>
+          <td>Arabic</td>
+          <td>X</td>
+          <td></td>
+          <td></td>
+          <td></td>
+          <td>X </td>
+        </tr>
+        <tr>
+          <td>1257</td>
+          <td>Baltic</td>
+          <td>X</td>
+          <td></td>
+          <td></td>
+          <td></td>
+          <td>X </td>
+        </tr>
+        <tr>
+          <td>1361</td>
+          <td>Korean (Johab)</td>
+          <td>X</td>
+          <td></td>
+          <td></td>
+          <td>**</td>
+          <td>X </td>
+        </tr>
+      </tbody>
+      <tbody>
+        <tr>
+          <td>437</td>
+          <td>MS-DOS United States</td>
+          <td></td>
+          <td>X</td>
+          <td>X</td>
+          <td>X</td>
+          <td>X </td>
+        </tr>
+        <tr>
+          <td>708</td>
+          <td>Arabic (ASMO 708)</td>
+          <td></td>
+          <td>X</td>
+          <td></td>
+          <td></td>
+          <td>X </td>
+        </tr>
+        <tr>
+          <td>709</td>
+          <td>Arabic (ASMO 449+, BCON V4)</td>
+          <td></td>
+          <td>X</td>
+          <td></td>
+          <td></td>
+          <td>X </td>
+        </tr>
+        <tr>
+          <td>710</td>
+          <td>Arabic (Transparent Arabic)</td>
+          <td></td>
+          <td>X</td>
+          <td></td>
+          <td></td>
+          <td>X </td>
+        </tr>
+        <tr>
+          <td>720</td>
+          <td>Arabic (Transparent ASMO)</td>
+          <td></td>
+          <td>X</td>
+          <td></td>
+          <td></td>
+          <td>X</td>
+        </tr>
+      </tbody>
+    </thead>
+  </colgroup>
+</table>

diff --git a/t/html/table2.exp b/t/html/table2.exp
index 5ec9675721c50343096e8fc3de77f2d90983f51f..db2e10bd5d0147465c800dd118b2aa49dfd150c1 100644 (file)
--- a/t/html/table2.exp
+++ b/t/html/table2.exp
@@ -11,10 +11,7 @@
         href="http://search.cpan.org/search?query=Element%3A%3ALibrary&mode=all">
         <code>HTML::Element::Library</code> </a>. </p>
     <p>
-      <table
-        summary="Code page support in different versions
-      of MS Windows."
-        frame="hsides" rules="groups" border="2">
+      <table frame="hsides" rules="groups" border="2">
         <caption>CODE-PAGE SUPPORT IN MICROSOFT WINDOWS</caption>
         <colgroup align="center"></colgroup>
         <colgroup align="left"></colgroup>

diff --git a/t/html/table2.gen b/t/html/table2.gen
index 5ec9675721c50343096e8fc3de77f2d90983f51f..db2e10bd5d0147465c800dd118b2aa49dfd150c1 100644 (file)
--- a/t/html/table2.gen
+++ b/t/html/table2.gen
@@ -11,10 +11,7 @@
         href="http://search.cpan.org/search?query=Element%3A%3ALibrary&mode=all">
         <code>HTML::Element::Library</code> </a>. </p>
     <p>
-      <table
-        summary="Code page support in different versions
-      of MS Windows."
-        frame="hsides" rules="groups" border="2">
+      <table frame="hsides" rules="groups" border="2">
         <caption>CODE-PAGE SUPPORT IN MICROSOFT WINDOWS</caption>
         <colgroup align="center"></colgroup>
         <colgroup align="left"></colgroup>

diff --git a/t/html/table2.html b/t/html/table2.html
index 544553b1b2256af0cf6766f84eb393f8aa3c2292..cffaba2997ad817681682735efd6cbee92b90b4e 100644 (file)
--- a/t/html/table2.html
+++ b/t/html/table2.html
@@ -23,9 +23,7 @@
     
     <P>
 
-    <TABLE border="2" frame="hsides" rules="groups"
-      summary="Code page support in different versions
-      of MS Windows.">
+    <TABLE border="2" frame="hsides" rules="groups">
       <CAPTION>CODE-PAGE SUPPORT IN MICROSOFT WINDOWS</CAPTION>
       <COLGROUP align="center">
       <COLGROUP align="left">

diff --git a/t/newnode.t b/t/newnode.t
new file mode 100644 (file)
index 0000000..5ca7122
--- /dev/null
+++ b/t/newnode.t
@@ -0,0 +1,50 @@
+#!/usr/bin/perl -T
+
+
+use warnings;
+use strict;
+
+use Test::More;
+use Test::XML;
+
+BEGIN {
+    use_ok('HTML::TreeBuilder');
+    use_ok('HTML::Element::Library');
+}
+
+
+my $initial_lol = [ note => [ shopping => [ item => 'sample' ] ] ];
+my $new_lol = HTML::Element::newnode($initial_lol, item => shopping_items());
+
+
+sub shopping_items {
+  my @shopping_items = map { [ item => $_ ] } qw(bread butter beans);
+  \@shopping_items;
+}
+
+my $expected =  [
+          'note',
+          [
+            'shopping',
+            [
+              [
+                'item',
+                'bread'
+              ],
+              [
+                'item',
+                'butter'
+              ],
+              [
+                'item',
+                'beans'
+              ]
+            ]
+          ]
+        ];
+
+is_deeply($new_lol, $expected, 'test unrolling');
+
+
+
+done_testing;

diff --git a/t/table2-table_ld.t b/t/table2-table_ld.t
index ba7bdabe99ec9d997b981dbb3bb2ada5a0232f28..3b3942b40d2f05d71894120df2288a02688b14e4 100644 (file)
--- a/t/table2-table_ld.t
+++ b/t/table2-table_ld.t
@@ -9,7 +9,7 @@ use lib qw(t/ t/m/);
 
 
 use File::Slurp;
-use Test::More qw(no_plan);
+use Test::More;
 
 use TestUtils;
 use HTML::TreeBuilder;
@@ -69,3 +69,5 @@ $generated_html = ptree($table, "$root.gen");
 
 is ($generated_html, File::Slurp::read_file("$root.exp"), $root);
 
+
+done_testing;

diff --git a/t/table2.t b/t/table2.t
index eb0bb0204d26710f32c78bd5ca294ef70d8d7fc7..a8bff3ef6737479aa95457bad64a1fa8b6bdb994 100644 (file)
--- a/t/table2.t
+++ b/t/table2.t
@@ -4,7 +4,8 @@ use lib qw(t/ t/m/);
 
 
 use File::Slurp;
-use Test::More qw(no_plan);
+use Test::More;
+use Test::XML;
 
 use TestUtils;
 
@@ -48,5 +49,7 @@ for my $dataset (keys %$d) {
 
 my $generated_html = ptree($tree, "$root.gen");
 
-is ($generated_html, File::Slurp::read_file("$root.exp"), 
-    "HTML for non-alternating table");
+is($generated_html, File::Slurp::read_file("$root.exp"), 'genhtml');
+
+
+done_testing;