#!/usr/bin/perl
use strict;
use warnings;
use Test::More;

# Jednoduchá podmnožina HTML:
#	- nemá komentáře
#	- nemá nepárové tagy
#	- nepředpokládejte nic o tom, které tagy mohou být uvnitř kterých
#	- jméno tagu je \w+
#	- jméno atributu je \w+
#	- jméno entity je &\w+;
#	- hodnota atributu je vždy uvedena a má jeden z těchto tvarů:
#		- řetězec libovolných znaků kromě ["'>&]
#		- zauvozovkovaný řetězec znaků různých od ["&] + entity
#		- zaapostrofovaný řetězec znaků různých od ['&] + entity

sub html($) {
	return $_[0] =~ m{^
		(?(DEFINE)
			(?<ent>&\w+;)
			(?<text>([^<&]|(?&ent))*)
			(?<val>[^'">&]*)
			(?<qval>"([^"&]|(?&ent))*")
			(?<aval>'([^'&]|(?&ent))*')
			(?<arg>\s+\w+=((?&val)|(?&qval)|(?&aval)))
			(?<tag><(?<name>\w+)(?&arg)*>(?&flow)</\g{name}>)
			(?<flow>(?&text)((?&tag)(?&text))*)
		)
		(?&flow)
	$}x;
}

ok(html('Kobyla ma maly bok'));
ok(html('Kobyla ma <b>maly</b> bok'));
ok(html('Kobyla ma &quot;maly&quot; bok'));
ok(!html('Kobyla ma &quot bok'));
ok(html('<a href="http://cs.wikipedia.org/wiki/Kobyla">Kobyla</a> ma <b id=mb style="color: red;">maly</b> bok'));
ok(!html('<a href="http://cs.wikipedia.org/wiki/Kobyla?a=b&c=d">Kobyla</a>'));
ok(html('<a href="http://cs.wikipedia.org/wiki/Kobyla?a=b&amp;c=d">Kobyla</a>'));
ok(html('<a href="abcdef"></a>'));
ok(html("<a href='abcdef'></a>"));
ok(!html('<a href="abc""def"></a>'));
ok(html('<li>brum</li>'));
ok(!html('<li>brum</ul>'));
ok(!html('<li>brum'));
ok(!html('<li>brum<li>'));
ok(html('<ul><ol>brum</ol></ul>'));
ok(!html('<ul><ol>brum</ul></ol>'));
ok(html('<ul><li>brum</li><li>mnau</li></ul>'));
ok(html('<p><b>MCSE</b>: <em>Minesweeper</em> Consultant, <em>Solitaire</em> Expert</p>'));
ok(!html('<p><b>MCSE</b>: <em>Minesweeper</it> Consultant, <em>Solitaire</em> Expert</p>'));
ok(html('<p>' . '<b>' x 100 . 'hu!' . '</b>' x 100 . '</p>'));
ok(!html('<p>' . '<b>' x 100 . 'hu!' . '</b>' x 100 . '</q>'));

done_testing;