view release on metacpan or  search on metacpan

t/0108-realworld-web-patterns.t  view on Meta::CPAN

<li><a href="/about" class="nav-link">About</a></li>
<li class="has-dropdown">
<a href="/products" class="nav-link" aria-expanded="false">Products</a>
<ul class="dropdown" role="list">
<li><a href="/products/alpha">Alpha</a></li>
<li><a href="/products/beta">Beta</a></li>
</ul>
</li>
<li><a href="/contact" class="nav-link">Contact</a></li>
</ul>
<button class="nav-toggle" aria-controls="nav-links" aria-expanded="false">Menu</button>
</nav>
END
    my $exp = <<'END';
<nav class="site-nav" aria-label="Main navigation">
	<div class="nav-brand">
		<a href="/" class="logo"><img src="/img/logo.svg" alt="Home" width="120" height="40"></a>
	</div>
	<ul class="nav-links" role="list">
		<li><a href="/about" class="nav-link">About</a></li>
		<li class="has-dropdown">
			<a href="/products" class="nav-link" aria-expanded="false">Products</a>
			<ul class="dropdown" role="list">
				<li><a href="/products/alpha">Alpha</a></li>
				<li><a href="/products/beta">Beta</a></li>
			</ul>
		</li>
		<li><a href="/contact" class="nav-link">Contact</a></li>
	</ul>
	<button class="nav-toggle" aria-controls="nav-links" aria-expanded="false">Menu</button>
</nav>
END
    is(Eshu->indent_html($in), $exp, 'HTML: nested nav with dropdown and aria attributes');
}

# HTML table
{
    my $in = <<'END';
<table class="data-table" role="grid">
<thead>