1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!/usr/bin/perl -T
use strict; use warnings;
use Test::More tests => 24;
use CSS::DOM;
my $o = new CSS::DOM;
my $c = 'CSS::DOM';
for (qw/css2 cSs2 stylesheets stYleSHeEts/) {
ok!$c->hasFeature($_ => '1.0'), qq'class->hasFeature("$_","1.0")';
ok $c->hasFeature($_ => '2.0'), qq'class->hasFeature("$_","2.0")';
ok $c->hasFeature($_), qq'class->hasFeature("$_")';
ok!$o->hasFeature($_ => '1.0'), qq'\$obj->hasFeature("$_","1.0")';
ok $o->hasFeature($_ => '2.0'), qq'\$obj->hasFeature("$_","2.0")';
ok $o->hasFeature($_), qq'\$obj->hasFeature("$_")';
}
|
