From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

SKIM / Tags-HTML-Element-0.02 / t / Tags-HTML-Element-Select / 05-init.t 

            

              
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

              
use strict;
use warnings;
use English;
use Error::Pure::Utils qw(clean);
use Tags::HTML::Element::Select;
use Test::MockObject;
use Test::More 'tests' => 4;
use Test::NoWarnings;
use Tags::Output::Raw;
# Test.
my $obj = Tags::HTML::Element::Select->new(
        'tags' => Tags::Output::Raw->new,
);
eval {
        $obj->init('bad');
};
is($EVAL_ERROR, "Select object must be a 'Data::HTML::Element::Select' instance.\n",
        "Select object must be a 'Data::HTML::Element::Select' instance.");
clean();
# Test.
$obj = Tags::HTML::Element::Select->new(
        'tags' => Tags::Output::Raw->new,
);
eval {
        $obj->init;
};
is($EVAL_ERROR, "Select object must be a 'Data::HTML::Element::Select' instance.\n",
        "Select object must be a 'Data::HTML::Element::Select' instance.");
clean();
# Test.
$obj = Tags::HTML::Element::Select->new(
        'tags' => Tags::Output::Raw->new,
);
eval {
        $obj->init(Test::MockObject->new);
};
is($EVAL_ERROR, "Select object must be a 'Data::HTML::Element::Select' instance.\n",
        "Select object must be a 'Data::HTML::Element::Select' instance.");
clean();