t/css_declare.t

   1 use strict; use warnings FATAL => 'all';
   2 use Test::More qw(no_plan);
   3
   4 {
   5
   6   package Foo;
   7
   8   sub foo {
   9     use CSS::Declare;
  10     return (
  11        '*' => [ color 'red' ],
  12        'tr, td' => [ margin '1px' ],
  13     );
  14   }
  15 }
  16
  17 is(
  18    CSS::Declare::to_css_string(Foo::foo()),
  19   '* {color:red} tr, td {margin:1px}',
  20   'Basic CSS::Declare usage'
  21 );
  22
  23 ok(!eval "color 'red'", 'Death on use of unimported tag');
  24