1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More import => ["!pass"];
use Test::Requires {
'Plack::Test' => 0,
'HTTP::Cookies' => 0,
# available from Plack::Test
'HTTP::Request::Common' => 0,
};
sub mk_request {
my ( $app, $jar, $url, $check_ok ) = @_;
defined $check_ok or $check_ok = 1;
my $req = HTTP::Request::Common::GET("http://localhost$url");
$jar->add_cookie_header($req);
my $res = $app->request($req);
$jar->extract_cookies($res);
$check_ok and ok( $res->is_success, "GET $url" );
return $res;
}
my $app = Plack::Test->create( create_app() );
my $jar = HTTP::Cookies->new;
my $redir_url;
{
my $res = mk_request( $app, $jar, '/xxx', 0 );
ok( $res->is_redirect, 'GET /xxx redirects' );
is(
$res->header('Location'),
'http://localhost/b',
'Redirects to /b',
);
}
{
my $res = mk_request( $app, $jar, '/b' );
is( $res->content, '/xxx', 'Correct content' );
}
sub create_app {
package MyApp;
use Dancer ':tests', ':syntax';
set apphandler => 'PSGI';
set appdir => ''; # quiet warnings not having an appdir
set access_log => 0; # quiet startup banner
set session_cookie_key => "John has a long mustache";
set session => "cookie";
get '/b' => sub {
return session('abc');
};
hook 'before' => sub {
my $a = request->path_info;
if ( not request->path_info =~ m{^/(a|b|c)} ){
session abc => $a ;
return redirect '/b';
}
};
dance;
}
done_testing;
|
