1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
|
use Test::Simple tests => 7;
use CSS;
my $css = CSS->new();
ok( (defined($css) and ref $css eq 'CSS'), "CSS::new() works");
use CSS::Parse::Lite;
my $css_lite = CSS::Parse::Lite->new();
ok( (defined($css_lite) and ref $css_lite eq 'CSS::Parse::Lite'), 'CSS::Parse::Lite::new() works' );
use CSS::Parse::Heavy;
my $css_heavy = CSS::Parse::Heavy->new();
ok( (defined($css_heavy) and ref $css_heavy eq 'CSS::Parse::Heavy'), 'CSS::Parse::Heavy::new() works' );
use CSS::Style;
my $css_style = CSS::Style->new();
ok( (defined($css_style) and ref $css_style eq 'CSS::Style'), 'CSS::Style::new() works' );
use CSS::Selector;
my $css_selector = CSS::Selector->new();
ok( (defined($css_selector) and ref $css_selector eq 'CSS::Selector'), 'CSS::Selector::new() works' );
use CSS::Property;
my $css_property = CSS::Property->new();
ok( (defined($css_property) and ref $css_property eq 'CSS::Property'), 'CSS::Property::new() works' );
use CSS::Value;
my $css_value = CSS::Value->new();
ok( (defined($css_value) and ref $css_value eq 'CSS::Value'), 'CSS::Value::new() works' );
|