File: css_declare.t

package info (click to toggle)
libweb-simple-perl 0.033-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 380 kB
  • sloc: perl: 1,622; makefile: 7
file content (23 lines) | stat: -rw-r--r-- 396 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
use strict; use warnings FATAL => 'all';
use Test::More qw(no_plan);

{

  package Foo;
  sub foo {
    use CSS::Declare;
    return (
       '*' => [ color 'red' ],
       'tr, td' => [ margin '1px' ],
    );
  }
}

is(
   CSS::Declare::to_css_string(Foo::foo()),
  '* {color:red} tr, td {margin:1px}',
  'Basic CSS::Declare usage'
);

ok(!Foo->can('color'), 'Death on use of unimported tag');