[catagits/Web-Simple.git] / t / css_declare.t

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(!eval "color 'red'", 'Death on use of unimported tag');
Commit	Line	Data
1c4ebc89	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;
4a610f74	10	return (
1c4ebc89	11	'*' => [ color 'red' ],
1c4ebc89	12	'tr, td' => [ margin '1px' ],
4a610f74	13	);
1c4ebc89	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