/
css3-_base.t
59 lines (46 loc) · 1.51 KB
/
css3-_base.t
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
use v6;
use Test;
use CSS::Grammar::Test :parse-tests;
use CSS::Module::CSS3::_Base;
use CSS::Module::CSS3::_Base::Actions;
class CSS3Terms
is CSS::Module::CSS3::_Base {};
class CSS3Terms::Actions
is CSS::Module::CSS3::_Base::Actions {};
for '0%' {
nok($_ ~~ /^<CSS3Terms::number>/, "not number: $_");
ok($_ ~~ /^<CSS3Terms::percentage>/, "percentage: $_");
nok($_ ~~ /^<CSS3Terms::angle>/, "not angle: $_");
}
for '0deg' {
nok($_ ~~ /^<CSS3Terms::number>/, "not number: $_");
nok($_ ~~ /^<CSS3Terms::percentage>/, "not percentage: $_");
ok($_ ~~ /^<CSS3Terms::angle>/, "angle: $_");
}
for '0' {
ok($_ ~~ /^<CSS3Terms::number>/, "number: $_");
nok($_ ~~ /^<CSS3Terms::percentage>/, "not percentage: $_");
ok($_ ~~ /^<CSS3Terms::angle>/, "angle: $_");
}
for '1' {
ok($_ ~~ /^<CSS3Terms::number>/, "number: $_");
nok($_ ~~ /^<CSS3Terms::percentage>/, "not percentage: $_");
nok($_ ~~ /^<CSS3Terms::angle>/, "angle: $_");
}
my $actions = CSS3Terms::Actions.new;
for :number<123.45> => :num(123.45),
:integer<123> => :int(123),
:uri<url(foo.jpg)> => :url<foo.jpg>,
:keyw<Abc> => :keyw<abc>,
:identifier<Foo> => :ident<Foo>,
:identifiers("Aaa bb") => :ident("Aaa bb") {
my ($in, $ast) = .kv;
my ($rule, $input) = $in.kv;
my %expected = :$ast;
parse-tests(CSS3Terms, $input,
:$actions,
:$rule,
:suite('css3 terms'),
:%expected);
}
done-testing;