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

use strict; use warnings FATAL => 'all';
use Test::More qw(no_plan);

{

  package Foo;

  sub foo {
    use XML::Tags qw(one two three);
    <one>, <two>, <three>;
  }

  sub bar {
    no warnings 'once'; # this is supposed to warn, it's broken
    <one>
  }

  sub baz {
    use XML::Tags qw(bar);
    </bar>;
  }

  sub quux {
    use HTML::Tags;
    <html>, <body id="spoon">, \"YAY", </body>, </html>;
  }
}

is(
  join(', ', map ${$_}, Foo::foo()),
  '<one>, <two>, <three>',
  'open tags ok'
);

ok(!eval { Foo::bar(); 1 }, 'Death on use of unimported tag');

is(
  join(', ', map ${$_}, Foo::baz()),
  '</bar>',
  'close tag ok'
);

is(
  join('', map ${$_}, Foo::quux),
  '<html><body id="spoon">YAY</body></html>',
  'HTML tags ok'
);
Commit	Line	Data
afe60e53	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 XML::Tags qw(one two three);
	10	<one>, <two>, <three>;
	11	}
	12
	13	sub bar {
	14	no warnings 'once'; # this is supposed to warn, it's broken
	15	<one>
	16	}
	17
	18	sub baz {
	19	use XML::Tags qw(bar);
	20	</bar>;
	21	}
cb5717ef	22
	23	sub quux {
	24	use HTML::Tags;
5f44889f	25	<html>, <body id="spoon">, \"YAY", </body>, </html>;
cb5717ef	26	}
afe60e53	27	}
	28
	29	is(
5f44889f	30	join(', ', map ${$_}, Foo::foo()),
afe60e53	31	'<one>, <two>, <three>',
	32	'open tags ok'
	33	);
	34
	35	ok(!eval { Foo::bar(); 1 }, 'Death on use of unimported tag');
	36
	37	is(
5f44889f	38	join(', ', map ${$_}, Foo::baz()),
afe60e53	39	'</bar>',
	40	'close tag ok'
	41	);
cb5717ef	42
cb5717ef	43	is(
5f44889f	44	join('', map ${$_}, Foo::quux),
cb5717ef	45	'<html><body id="spoon">YAY</body></html>',
	46	'HTML tags ok'
	47	);