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   sub foo {
   8     use CSS::Declare;
   9     return (
  10        '*' => [ color 'red' ],
  11        'tr, td' => [ margin '1px' ],
  12     );
  13   }
  14 }
  15
  16 is(
  17    CSS::Declare::to_css_string(Foo::foo()),
  18   '* {color:red} tr, td {margin:1px}',
  19   'Basic CSS::Declare usage'
  20 );
  21
  22 ok(!Foo->can('color'), 'Death on use of unimported tag');
  23