#!/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';