1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#!/usr/bin/perl -T
use strict; use warnings;
our $tests;
BEGIN { ++$INC{'tests.pm'} }
sub tests'VERSION { $tests += pop };
use Test::More;
plan tests => $tests;
use tests 1; # use
use_ok 'CSS::DOM::StyleSheetList';
use tests 1; # constructor
isa_ok my $list = CSS::DOM::StyleSheetList->new(1,2,3),
'CSS::DOM::StyleSheetList';
use tests 1; # length
is $list->length, @$list, 'length';
use tests 3; # item
is $list->item($_), $list->[$_], 'item ' . 'again' x $_ for 0..2;
|
