class_with_lf.t

use strict;
use warnings;
use Test::More;

use HTML::TreeBuilder::Select;

subtest 'class attribute with LF' => sub {
    my $doc = <<EOS;
<div class="
    my-class
">
    <p>content</p>
</div>
EOS
    my $tree = HTML::TreeBuilder::Select->new;
    $tree->parse_content($doc);
    ok $tree->select('.my-class');
};

subtest 'class attribute with no LF' => sub {
    my $doc = <<EOS;
<div class="my-class">
    <p>content</p>
</div>
EOS
    my $tree = HTML::TreeBuilder::Select->new;
    $tree->parse_content($doc);
    ok $tree->select('.my-class');
};

done_testing;

[18:16:25] /Users/aereal/sketches/class_with_lf.t .. 
    not ok 1

    #   Failed test at /Users/aereal/sketches/class_with_lf.t line 17.
    1..1
    # Looks like you failed 1 test of 1.
not ok 1 - class attribute with LF

#   Failed test 'class attribute with LF'
#   at /Users/aereal/sketches/class_with_lf.t line 18.
    ok 1
    1..1
ok 2 - class attribute with no LF
1..2
# Looks like you failed 1 test of 2.
Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/2 subtests 
[18:16:25]

Test Summary Report
-------------------
/Users/aereal/sketches/class_with_lf.t (Wstat: 256 Tests: 2 Failed: 1)
  Failed test:  1
  Non-zero exit status: 1
Files=1, Tests=2,  0 wallclock secs ( 0.02 usr  0.01 sys +  0.05 cusr  0.01 csys =  0.09 CPU)
Result: FAIL

Corion/HTML-Selector-XPath#5