view release on metacpan or  search on metacpan

xt/compat/layouted_lite_app.t  view on Meta::CPAN

  ->header_is(Server => 'Mojolicious (Perl)')->content_is("inline!\n");

# "0" inline template
$t->get_ok('/inline/again')->status_is(200)
  ->header_is(Server => 'Mojolicious (Perl)')->content_is("0\n");

# "0" data
$t->get_ok('/data')->status_is(200)->header_is(Server => 'Mojolicious (Perl)')
  ->content_is(0);

# Variants (desktop)
$t->get_ok('/variants.txt')->status_is(200)
  ->content_type_is('text/plain;charset=UTF-8')
  ->content_is('Variant: Desktop!');

# Variants (tablet)
$t->get_ok('/variants.txt?device=tablet')->status_is(200)
  ->content_type_is('text/plain;charset=UTF-8')
  ->content_is('Variant: Tablet!');

# Variants (desktop fallback)
$t->get_ok('/variants.txt?device=phone')->status_is(200)
  ->content_type_is('text/plain;charset=UTF-8')
  ->content_is('Variant: Desktop!');

# Variants ("0")
$t->get_ok('/variants.txt?device=0')->status_is(200)
  ->content_type_is('text/plain;charset=UTF-8')
  ->content_is('Another variant: Desktop!');

done_testing();