鐃緒申鐃緒申鐃緒申鐃緒申鐃出わ申鐃淑わ申鐃緒申鐃緒申鐃緒申鐃宿わ申鐃塾ワ申鐃緒申鐃宿は逸申鐃准テワ申鐃夙わ申颪�なわ申鐃獣わ申鐃緒申鐃宿￥申鐃緒申鐃緒申呂鐃緒申鐃緒申鐃緒申無鐃緒申鐃緒申鐃殉っわ申鐃緒申鐃緒申辰銅鐃緒申鐃緒申反鐃緒申鐃暑し鐃緒申Ruby鐃塾とわ申鐃熟わ申鐃緒申鐃緒申Spec鐃書いわ申鐃塾わ申Perl鐃塾とわ申鐃熟書かなわ申鐃緒申鐃夙わ申鐃春わ申鐃緒申鐃銃る、鐃夙思っわ申鐃塾でテワ申鐃夙わ申颪い討澆襪鰹申箸砲鐃緒申鐃緒申鐃�

鐃緒申鐃銃テワ申鐃夙わ申鐃緒申鐃宿￥申HTTP::Engine鐃祝はわ申鐃緒申鐃緒申鐃銃ワ申鐃緒申鐃術のワ申鐃藷タ￥申鐃春ワ申鐃緒申鐃緒申鐃緒申鐃術意わ申鐃緒申討鐃緒申襦ｏ申鐃緒申函鐃�鐃銃ワ申鐃夙リク鐃緒申鐃緒申鐃夙わ申鐃緒申鐃緒申鐃緒申鐃緒申皀醐申紂種申鐃�鐃盾あ鐃暑。鐃淑わ申鐃緒申鐃緒申鐃緒申磴�鐃獣は器申単鐃緒申鐃緒申

  1. interface => { module => 'Test' } 鐃緒申engine鐃緒申鐃緒申
  2. HTTP::Engine::Test::Request鐃緒申request鐃緒申鐃緒申
  3. engine鐃緒申run鐃潤ソ鐃獣ドにテワ申鐃夙リク鐃緒申鐃緒申鐃夙わ申鐃所げ鐃銃わ申鐃�
  4. 鐃瞬ってわ申鐃緒申鐃曙ス鐃楯ンスわ申鐃緒申鐃緒申奪鐃緒申鐃緒申鐃�

鐃獣てわ申鐃夙でわ申鐃粛￥申鐃緒か鐃緒申泙鐃緒申鐃�

鐃殉わ申鐃緒申鐃緒申直鐃祝書いてみわ申

鐃緒申鐃緒申鐃緒申鐃縮常申鐃淑わ申鐃塾ではっつわ申鐃緒申鐃純お鐃緒申鐃緒申Udon::App鐃緒申GET鐃所ク鐃緒申鐃緒申鐃夙わ申鐃所げ鐃緒申謄鐃緒申箸呂鐃緒申鐃淑器申鐃緒申鐃緒申 

use strict;
use warnings;
use FindBin qw($Bin);
use Udon::App;
use Test::More;
use HTTP::Engine::Test::Request;

plan tests => 1;

my $app = Udon::App->new( { viewdir => "$Bin/../view" } );
my $engine = $app->setup_engine( { module => 'Test' } );
my $req = HTTP::Engine::Test::Request->new(
    uri => 'http://udon.example.org/',
    method => 'GET'
);
my $res = $engine->run($req);
is $res->code, 403, 'should return "Forbidden" when GET request';

鐃春む、鐃殉わ申鐃緒申鐃緒申単鐃叔わ申鐃粛￥申鐃緒申鐃夙はわ申鐃緒申粉鐃緒申鐃緒申任匹鐃宿わ申$req鐃緒申鐃獣てどわ申匹鐃�$engine->run鐃緒申鐃銃わ申鐃緒申鐃宿わ申鐃緒申

Test::Declare

鐃夙わ申鐃緒申鐃叔￥申Test::More鐃熟まわ申鐃緒申鐃緒申鐃緒申討鐃緒申濃箸鐃緒申鐃緒申鐃緒申造鐃緒申鐃緒申箸鐃縮居申鐃緒申鐃緒申鐃緒申鐃宿も、鐃緒申鐃淑わ申鐃緒申RSpec鐃緒申鐃順好鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃殉っわ申Objective-C鐃塾テワ申鐃夙にまわ申RSpec鐃緒申箸辰鐃緒申磴�鐃粛とわ申鐃銃は常申鐃緒申鐃緒申鐃宿わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申覆鐃緒申鐃緒申里鐃�Test::Declare鐃獣てわ申弔鐃夙ってみるこ鐃夙にわ申鐃緒申鐃緒申 

use strict;
use warnings;
use FindBin qw($Bin);
use Udon::App;
use Test::Declare;
use HTTP::Engine::Test::Request;

plan tests => blocks;

describe 'GET' => run {
    my $res; 
    init {
        my $app = Udon::App->new( { viewdir => "$Bin/../view" } );
        my $engine = $app->setup_engine( { module => 'Test' } );
    };
    test 'should return "Forbidden"' => run {
        $res = $engine->run(
            HTTP::Engine::Test::Request->new(
                uri => 'http://udon.example.org/',
                method => 'GET'
            ),
        );  
        is $res->code, 403;
    };  
};

鐃処う鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃宿わ申鐃緒申鐃宿わ申鐃淑っわ申鐃緒申鐃緒申鐃巡、鐃駿￥申鐃縮わ申 describe 鐃緒申鐃緒申鐃獣てるか鐃初気鐃緒申鐃緒申鐃獣わ申鐃藷じわ申覆鐃緒申鐃緒申鐃緒申鐃初。鐃緒申鐃緒申鐃夙ほら、鐃緒申鐃緒申鐃緒申鐃銃駕申鐃緒申鐃出わ申鐃緒申謄鐃緒申箸覆里鐃緒申鐃緒申鐃緒申鐃緒申判鐃緒申屬肇謄鐃緒申肇鐃緒申鐃緒申匹箸鐃緒申劼箸泙箸鐃祝なってわ申鐃緒申鐃緒申鐃緒か鐃緒申笋刻申鐃緒申鐃緒申鐃藷。ね￥申

鐃緒申鐃緒申鐃緒申匹鐃緒申鐃緒申鐃緒申鐃宿￥申setup_engine鐃夙わ申HTTP::Engine::Test::Request->new鐃夙わ申鐃緒申鐃緒申鐃駿わ申鐃緒申鐃緒申鐃緒申鐃淑わ申鐃緒申鐃緒申鐃塾ワ申鐃緒申鐃宿わ申鐃夙逸申弔鐃緒申鐃緒申颪い討覆鐃緒申鐃緒申鐃殉わ申鐃緒申鐃緒申鐃緒申鐃緒申鼻鐃�鐃緒申鐃緒申鐃緒申鐃�404鐃竣わ申Spec鐃緒申鐃初い鐃緒申鐃緒申鐃遵し鐃処う鐃夙思わ申鐃夙わ申鐃緒申辰箸鐃緒申鐃淑りす鐃暑。鐃緒申鐃緒申覆鐃緒申鐃緒申鐃緒申同鐃緒申鐃淑わ申鐃緒申鐃緒申蕾随申戮鐃書きわ申鐃緒申鐃淑わ申鐃緒申鐃緒申鐃緒申鐃祝わ申鐃緒申鐃緒申

Test::HTTP::Engine

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申Rack鐃塾とわ申鐃緒申Rack::Test鐃緒申箸辰鐃緒申鐃緒申的鐃祝わ申鐃獣ぱりし鐃緒申鐃緒申鐃緒申鐃純あ同鐃緒申鐃緒申法鐃叔駕申茲件申討澆鐃緒申鐃宿わ申鐃藷じわ申覆鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申隼廚鐃塾�鐃獣わ申適鐃緒申鐃祝わ申鐃緒申覆鐃塾わ申鐃熟わ申鐃銃みわ申鐃緒申 

package Test::HTTP::Engine;

use strict; 
use warnings;
use Exporter;
use HTTP::Engine::Test::Request;
our @ISA    = qw(Exporter);
our @EXPORT = qw(engine get);

sub engine { die }
    
sub get {
    my $path = shift;
    engine->run(
        HTTP::Engine::Test::Request->new(
            uri    => "http://example.org/$path",
            method => 'GET'
        ),  
        env => \%ENV
    );
}   

1;

鐃叔￥申鐃緒申鐃緒申鐃夙わ申鐃夙わ申鐃獣わ申鐃塾テワ申鐃夙はわ申鐃緒申鐃淑る。 

use strict;
use warnings;
use FindBin qw($Bin);
use Udon::App;
use Test::Declare;
use Test::HTTP::Engine;

plan tests => blocks;

# engine鐃緒申鐃緒申鐃緒申鐃熟各テワ申鐃夙で常申颪�わ申鐃緒申鐃術わ申鐃緒申
no warnings 'redefine';
*Test::HTTP::Engine::engine = sub {
    my $app = Udon::App->new( { viewdir => "$Bin/../view" } );
    $app->setup_engine( { module => 'Test' } );
};
    
describe 'GET' => run {
    test 'should return "Forbidden"' => run {
        is get('/')->code,    403;
        is get('/get')->code, 403;
    };  
    test 'should return "I\'m a teapot" with mode="prev"' => run {
        is get('/?mode=prev')->code, 418;
    };
    test 'should return "Gone" with mode="next"' => run {
        is get('/?mode=next')->code, 410;
    };
};

鐃緒申鐃獣ぱりし鐃緒申鐃緒申鐃緒申鐃緒申辰肇謄鐃緒申鐃緒申鐃緒申笋件申鐃緒申鐃緒申匹鐃緒申辰鐃緒申鐃所見鐃竣わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃熟わ申鐃夙なわ申RSpec鐃叔に駈申鐃春わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑ぞ鐃緒申鐃緒申鐃夙わ申post鐃夙わ申delete鐃夙わ申鐃緒申鐃獣てわ申鐃緒申Rack::Test鐃叔わ申辰鐃緒申里閥瓩わ申鐃緒申箸鐃緒申任鐃緒申襦ｏ申廚鐃緒申佞鐃緒申悩鐃獣わ申鐃緒申鐃宿意鰹申鐃緒申鐃宿わ申鐃淑￥申

鐃銃ワ申鐃夙わ申鐃獣縁申鐃緒申鐃緒申鐃緒申佞鐃緒申討覆鐃緒申能颪韻鐃緒申

鐃夙わ申鐃緒申鐃緒け鐃緒申Apache鐃緒申ServerSimple鐃叔ワ申鐃緒申鐃出プワ申鐃緒申鐃緒申鐃緒申立鐃緒申鐃遵げ鐃緒申鐃所し鐃淑わ申鐃銃もサ鐃緒申鐃獣とワ申鐃竣ワ申離謄鐃緒申箸鐃緒申鐃緒申鐃緒申鐃緒申辰鐃緒申匹鐃緒申任鐃緒申諭鐃緒申鐃緒申鐃淑器申単鐃淑わ申能蕕�鐃緒申謄鐃緒申判颪韻鐃獣て醐申鐃緒申譴緒申鐃緒申任鐃緒申諭鐃緒申筺�鐃緒申鐃殉わ申鐃処。鐃緒申鐃緒申鐃夙醐申任鐃緒申匹鷁阿里鐃縦にわ申謄鐃緒申鐃緒申媛辰鐃緒申箸鐃緒申泙鐃緒申辰董鐃緒申劼鐃緒申鐃�

鐃宿居申

鐃緒申分鐃叔わ申Test::HTTP::Engine::engine鐃緒申鐃緒申鐃緒申屬鐃緒申鐃緒申鐃緒申鐃塾わ申無鐃緒申鐃緒申福鐃緒申鐃緒申覆鵑�違う鐃淑￥申鐃夙思ってわ申鐃初、yappo鐃緒申鐃藷かわ申

engine {}; 鐃緒申 setup 鐃緒申鐃緒申鐃循わ申鐃緒申鐃緒申鐃緒申鐃盾ー

鐃夙のわ申鐃夙￥申鐃夙わ申鐃緒申鐃緒申鐃叔種申直鐃緒申鐃醇。