[catagits/HTML-Zoom.git] / t / dwim-autoload.t

use strict;
use warnings FATAL => 'all';

use HTML::Zoom;
use Test::More;

ok my $zoom = HTML::Zoom->from_html(<<HTML);
<html>
  <head>
    <title>Hi!</title>
  </head>
  <body id="content-area">
    <h1>Test</h1>
    <div>
      <p class="first-para">Some Stuff</p>
      <p class="body-para">More Stuff</p>
      <p class="body-para">Even More Stuff</p>
      <ol>
        <li class="first-item odd">First</li>
        <li class="body-items even">Stuff A</li>
        <li class="body-items odd">Stuff B</li>
        <li class="body-items even">Stuff C</li>
        <li class="last-item odd">Last</li>
      </ol>
      <p class="body-para">Even More stuff</p>
      <p class="last-para">Some Stuff</p>
    </div>
    <p id="footer">Copyright 2222</p>
  </body>
</html>
HTML

## mst: well I'm thinking if basically
## mst: $zoom->$whatever($selector => @args)
## mst: becomes $zoom->select($selector)->$whatever(@args)

ok ! eval { $zoom->ressplace_content('.first-param' => 'First!'); 1},
  'Properly die on bad method';

ok my $html = $zoom
  ->replace_content('.first-para' => 'First!')
  ->replace_content('.last-para' => 'Last!')
  ->prepend_content(
    '.first-item' => [{type=>'TEXT', raw=>'FIRST: '}],
    '.last-item' => [{type=>'TEXT', raw=>'LAST: '}],
  )
  ->to_html;

warn $html;

#warn $zoom->select('.last-item')->prepend_content([{type=>'TEXT', raw=>'ddd'}])->to_html;
#warn $zoom->select('.last-item')->prepend_content(\'ddd')->to_html;

done_testing;
Commit	Line	Data
c877066a	1	use strict;
	2	use warnings FATAL => 'all';
	3
	4	use HTML::Zoom;
	5	use Test::More;
	6
	7	ok my $zoom = HTML::Zoom->from_html(<<HTML);
	8	<html>
	9	<head>
	10	<title>Hi!</title>
	11	</head>
	12	<body id="content-area">
	13	<h1>Test</h1>
	14	<div>
	15	<p class="first-para">Some Stuff</p>
	16	<p class="body-para">More Stuff</p>
	17	<p class="body-para">Even More Stuff</p>
	18	<ol>
	19	<li class="first-item odd">First</li>
	20	<li class="body-items even">Stuff A</li>
	21	<li class="body-items odd">Stuff B</li>
	22	<li class="body-items even">Stuff C</li>
	23	<li class="last-item odd">Last</li>
	24	</ol>
	25	<p class="body-para">Even More stuff</p>
	26	<p class="last-para">Some Stuff</p>
	27	</div>
	28	<p id="footer">Copyright 2222</p>
	29	</body>
	30	</html>
	31	HTML
	32
	33	## mst: well I'm thinking if basically
	34	## mst: $zoom->$whatever($selector => @args)
	35	## mst: becomes $zoom->select($selector)->$whatever(@args)
	36
	37	ok ! eval { $zoom->ressplace_content('.first-param' => 'First!'); 1},
	38	'Properly die on bad method';
	39
	40	ok my $html = $zoom
	41	->replace_content('.first-para' => 'First!')
	42	->replace_content('.last-para' => 'Last!')
	43	->prepend_content(
	44	'.first-item' => [{type=>'TEXT', raw=>'FIRST: '}],
	45	'.last-item' => [{type=>'TEXT', raw=>'LAST: '}],
	46	)
	47	->to_html;
	48
	49	warn $html;
	50
	51	#warn $zoom->select('.last-item')->prepend_content([{type=>'TEXT', raw=>'ddd'}])->to_html;
	52	#warn $zoom->select('.last-item')->prepend_content(\'ddd')->to_html;
	53
	54	done_testing;