Ark::Test や Catalyst::Test でおなじみの ctx_request をつかってテストを書く必要があったので書いてみました. Data::Util or Moose を使う程ではないと思ったので, ベタっといった感じ.俺はそんな感じ. 正しい実装ではない可能性があることを断っておきます. package Amon::Test::WWW::Mechanize::PSGI; use parent 'Test::WWW::Mechanize::PSGI'; use strict; use warnings; our $VERSION = '0.01'; use Clone::PP qw/clone/; sub ctx_request { my $self = shift; amon_install_context_getter(); my $res = $self->req
![IMAKADO::BLOG](https://cdn-ak-scissors.b.st-hatena.com/image/square/06a15c64ba0ceec233d86d71001ebb29a9dcbf5d/height=288;version=1;width=512/https%3A%2F%2Fcdn.blog.st-hatena.com%2Fimages%2Ftheme%2Fog-image-1500.png)