File: 01_basic.t

package info (click to toggle)
libcss-perl 1.09-2
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 980 kB
  • sloc: perl: 13,716; makefile: 2
file content (30 lines) | stat: -rw-r--r-- 1,075 bytes parent folder | download | duplicates (4)
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' );