[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(!Foo->can('color'), '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;
1c4ebc89	7	sub foo {
1c4ebc89	8	use CSS::Declare;
4a610f74	9	return (
1c4ebc89	10	'*' => [ color 'red' ],
1c4ebc89	11	'tr, td' => [ margin '1px' ],
4a610f74	12	);
1c4ebc89	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
9436712e	22	ok(!Foo->can('color'), 'Death on use of unimported tag');
1c4ebc89	23