1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/usr/bin/perl -T
# This test is in its own file, because it checks to make sure that a cer-
# tain method does a ‘require’. We can’t test it if some other method has
# already done it.
use strict; use warnings;
our $tests;
BEGIN { ++$INC{'tests.pm'} }
sub tests::VERSION { $tests += pop };
use Test::More;
plan tests => $tests;
use CSS::DOM::Style;
use tests 1;
my $s = new CSS::DOM::Style;
ok eval{$s->setProperty('foo'=>1);1},
'setProperty works with ::Style is loaded before ::Parser';
|
