Context Navigation

DoCoMoGUID.t @ 18009

Revision 18009, 358 bytes (checked in by tokuhirom, 5 years ago)
oops

Line
1	use strict;
2	use warnings;
3	use HTTP::Engine;
4	use Nanto::Web::Handler;
5	use Nanto::ClassLoader;
6	use Test::More tests => 2;
7	use lib 't/lib';
8	use t::Utils;
9
10	my $handler = handler();
11	$handler->load_plugin(qw/DoCoMoGUID/);
12
13	my $res = run_engine(
14	'GET', '/'
15	);
16	is $res->code, 200;
17	is $res->content, q{<html><body><a href="/bar/?guid=ON">foo</a></body></html>};
18

Note: See TracBrowser for help on using the browser.