The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use strict;
use warnings;

use Test::More tests => 6;                      # last test to print

use lib 't/lib';

use Test::WWW::Mechanize::Catalyst;
my $mech = Test::WWW::Mechanize::Catalyst->new(catalyst_app => 'ParamApp');

$mech->get_ok( '/resolve_as_component' );
$mech->content_like( qr#\Q/foo/something?version=1.2.3\E$# );

$mech->get_ok( '/resolve_merged' );
$mech->content_like( qr#\Q/bar/something?version=1.2.3\E$# );

$mech->get_ok( '/normal' );
$mech->content_like( qr#\Q/baz/something\E$# );