1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/usr/bin/perl -T
# This is in a separate file to make sure that CSS::DOM::Value::Primitive
# remembers to require CSS::DOM::Exception.
use strict; use warnings; no warnings qw 'qw regexp once utf8 parenthesis';
our $tests;
BEGIN { ++$INC{'tests.pm'} }
sub tests::VERSION { $tests += pop };
use Test::More;
plan tests => $tests;
use tests 1;
use CSS::DOM::Value::Primitive ':all';
eval{
new CSS::DOM::Value::Primitive type=>CSS_STRING, value=>'drare'
=>->cssText("foo")
};
isa_ok $@, 'CSS::DOM::Exception',
'CSS::DOM::Value::Primitive ->cssText loads CSS::DOM::Exception';
|
