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
|
use strict;
use warnings;
use Test2::V0;
use Test::Exception;
use lib 't/lib';
use WQTest;
WQTest::test {
my $class = shift;
my $html = <<HTML;
<div class="container">
<div class="inner">Hello</div>
</div>
<div>
<div class="inner">Hello</div>
</div>
HTML
my $q = $class->new($html);
subtest "selector" => sub {
is $q->filter('span')->size, 0;
is $q->filter('div.container')->size, 1;
is $q->filter('div')->size, 2;
};
subtest coderef => sub {
is $q->size, 2;
is $q->filter(sub { $_->has_class( 'container' ) } )->size, 1;
# 'filter' on a coderef was modifying the parent element
is $q->size, 2, 'still two elements';
};
subtest on_text => sub { on_text($class) };
};
sub on_text {
my $class = shift;
my $wq = $class->new('<div class="foo"><p class="foo">bar</p></div>Standalone Text');
lives_ok { $wq->filter('.foo') }, "doesn't explode on text nodes";
}
|
