use Test::Mojo::WithRoles 'TestDeep';
use Test::Deep; # Get Test::Deep comparison functions

my $t = Test::Mojo::WithRoles->new( 'MyApp' );

# Test JSON responses with Test::Deep
$t->get_ok( '/data.json' )
  ->json_deeply(
    superhashof( { foo => 'bar' } ),
    'has at least a foo key with "bar" value',
  );

# Test HTML with Test::Deep
$t->get_ok( '/index.html' )
  ->text_deeply(
    'nav a',
    [qw( Home Blog Projects About Contact )],
    'nav link text matches site section titles',
  )
  ->attr_deeply(
    'nav a',
    href => [qw( / /blog /projects /about /contact )],
    'nav link href matches site section URLs',
  );

$t->json_deeply( $expect, $desc )
$t->json_deeply( $ptr, $expect, $desc )

$t->text_deeply( $selector => $expect, $desc );

# test.html
<nav>
    <ul>
        <li><a href="/">Home</a></li>
        <li><a href="/blog">Blog</a></li>
        <li><a href="/projects">Projects</a></li>
    </ul>
</nav>

# test.t
$t->get_ok( 'test.html' )
  ->text_deeply(
    'nav a' => bag( qw( Home Blog Projects ) ),
    'nav element text is correct',
  );

$t->get_ok( 'test.html' );
my $dom = $t->tx->res->dom;
cmp_deeply
    [ $dom->find( 'nav a' )->map( 'text' )->each ],
    bag( qw( Home Blog Projects ) ),
    'nav element text is correct';

$t->all_text_deeply( $selector => $expect, $desc );

# test.html
<nav>
    <ul>
        <li><a href="/"><em>Home</em></a></li>
        <li><a href="/blog">Blog</a></li>
        <li><a href="/projects"><strong>Projects</strong></a></li>
    </ul>
</nav>

# test.t
$t->get_ok( 'test.html' )
  ->all_text_deeply(
    'nav a' => bag( qw( Home Blog Projects ) ),
    'nav element text is correct',
  );

$t->get_ok( 'test.html' );
my $dom = $t->tx->res->dom;
cmp_deeply
    [ $dom->find( 'nav a' )->map( 'all_text' )->each ],
    bag( qw( Home Blog Projects ) ),
    'nav element text is correct';

$t->attr_deeply( $selector, $attr => $expect, ..., $desc );

# test.html
<form action="/search" method="GET">
    ...
</form>

# test.t
$t->get_ok( 'test.html' )
  ->attr_deeply(
    'form',
    action => [qw( /search )],
    method => [re( qr( get )i )],
    'form element is correct',
  );

$t->get_ok( 'test.html' );
my $dom = $t->tx->res->dom;
cmp_deeply
    [ $dom->find( 'form' )->map( attr => 'action' )->each ],
    [ qw( /search ) ],
    'form element action is correct',
    ;
cmp_deeply
    [ $dom->find( 'form' )->map( attr => 'method' )->each ],
    [ re( qr( get )i ) ],
    'form element method is correct',
    ;