warn/die/exceptionã®ãƒ†ã‚¹ãƒˆ
ã—ã°ã‚‰ãèªã‚“ã§ã„ãªã‹ã£ãŸã€ŽPerlTestingã€å†é–‹ã€‚ 2ç« ã®æœ€å¾Œã«å‡ºã¦ãã‚‹wan/die/exceptionã®ãƒ†ã‚¹ãƒˆã€‚ Test::Warn warnã§å‡ºåŠ›ã•ã‚Œã‚‹ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ã‚’テスト。文å—列系テストãªã®ã§Test::Moreã®isã¨ã‹likeã¨åŒã˜ã‚ˆã†ãªã‚‚ã®ãŒTest::Warnã«ã¯ã‚ã‚Šã¾ã™ã€‚ #!/usr/bin/perl use strict; use warnings; use Test::More tests => 8; use Test::Warn; sub add_positives { my ($l, $r) = @_; warn "first argument ($l) was negative" if $l < 0; warn "second argument ($r) was negative" if $r < 0; return $l + $r; } warning
テストをTODO扱ã„ã«ã™ã‚‹
Test::Moreã§ãƒ†ã‚¹ãƒˆã‚’TODO扱ã„ã«ã™ã‚‹ã“ã¨ãŒå‡ºæ¥ã¾ã™ã€‚ã©ã†ã„ã†ã“ã¨ã‹ã¨ã„ã†ã¨ã€ test自体ã¯æ™®é€šã«è¡Œã†ã€‚ 失敗ã—ã¦ã‚‚ãã‚Œã¯TODO扱ã„ã¨ã—ã¦ã€ãƒˆãƒ¼ã‚¿ãƒ«ã®çµæžœã§ã¯æˆåŠŸã—ãŸã“ã¨ã«ã™ã‚‹ã€‚ ã¨ã„ã†æ„Ÿã˜ã€‚ ã„ãã¤ã‹ã®æ©Ÿèƒ½ãŒæœªå®Ÿè£…ã®ï¼ˆã¨ã„ã†ã‹ã»ã¨ã‚“ã©ãªã«ã‚‚ã—ã¦ãªã„）シャーペンモジュール（æ£ã—ãã¯mechanical pencilã€ã§ã‚‚é•·ã„ã‹ã‚‰å«Œï¼‰ãŒã‚ã‚‹ã¨ã—ã¾ã™ã€‚ package Pencil; use strict; use warnings; sub new { my $class = shift; return bless {}, $class; } sub leads { # TODO } sub supply_leads { # TODO } 1; #!/usr/bin/perl use strict; use warnings; use Test::More tests => 3
テストをスã‚ップã™ã‚‹
数日間ãŒç©ºã„ãŸã‘ã©ã€PerlTestingå†é–‹ã€‚ æ¡ä»¶ã«åˆã‚ã›ã¦ãƒ†ã‚¹ãƒˆã‚’スã‚ップã—ãŸã„å ´åˆãŒã‚ã£ãŸã‚Šã—ã¾ã™ã€‚ãŸã¨ãˆã°ã€ ä¾å˜ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãŒã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã•ã‚Œã¦ãªã‹ã£ãŸã‚‰ã‚¹ã‚ップ ã¨ã‚ã‚‹OSã ã£ãŸã‚‰ã‚¹ã‚ップ ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯ã«ã¤ãªãŒã£ã¦ãªã‹ã£ãŸã‚‰ã‚¹ã‚ップ ãªã©ãªã©ã€‚ãã†ã„ã†æ™‚ã¯skip関数を使ã„ã¾ã™ã€‚ テストã™ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã€‚ package Phrase; use strict; use warnings; sub new { my ($class, $text) = @_; bless \$text, $class; } sub text { my $self = shift; return $$self; } sub as_dutch { my $self = shift; require WWW::Babelfish; return WWW::Babelfish->new->translate
ã‚‚ã£ã¨ä¾¿åˆ©ãªok()
PerlTestingã®Chapter1最終戦ã§ã™ã€‚ ok()ã£ã¦åŸºæœ¬ä¸ã®åŸºæœ¬ã§ã™ãŒã‚„ã£ã±ã‚Šä¸ä¾¿ã§ã™ã€‚ã„ã‚ã‚“ãªãƒ†ã‚¹ãƒˆãŒã‚ã‚‹ã®ã«æ¡ä»¶ã‚’1個ã«ç¸®ã‚ãªã„ã¨ã„ã‘ãªã„ã‚“ã§ã™ã‚‚ã®ã€‚ã§ã‚‚ã€Test::Moreã«ã¯ok()ã®ä»£ã‚ã‚Šã«ä½¿ãˆã‚‹ã‚¤ã‚±ã¦ã‚‹é–¢æ•°ãŒã„ãã¤ã‹ã‚ã‚Šã¾ã™ã€‚ ã¾ãšã¯ãƒ†ã‚¹ãƒˆã‚³ãƒ¼ãƒ‰ã€‚ #!/usr/bin/perl use strict; use warnings; use Test::More tests => 4; use_ok('Greeter') or exit; my $greeter = Greeter->new(name => 'Emily', age => 21); isa_ok($greeter, 'Greeter'); is($greeter->age(), 21, 'age() should return age for object'); like($greeter->gr
ã¯ã˜ã‚ã¦ã®Test::More
Chapter1ã®å¾ŒåŠæˆ¦ã¯ã€Test::More。 Perl Testing: A Developer's Notebook (Developers Notebook) Test::Moreã¯Test::Simpleã®ã‚¹ãƒ¼ãƒ‘ーセットã§å®Œå…¨ã«ç½®ãæ›ãˆã¦ä½¿ã£ã¦OKã€ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ãŸã ã—ãèªã¿è¾¼ã‚ãŸã‹ã©ã†ã‹ãªã©ã®ãƒ†ã‚¹ãƒˆé–¢æ•°ã‚‚å«ã‚ã„ã‚ã‚“ãªæ©Ÿèƒ½ã‚ã‚‹ã§ã‚ˆã€ã¨ã®ã“ã¨ã§ã™ã€‚ 早速。 package AnalyzeSentence; use strict; use warnings; use base qw/Exporter/; our $WORD_SEPARATOR = qr/\s+/; our @EXPORT_OK = qw($WORD_SEPARATOR count_words words); sub words { my $sentence = shift; return split $WORD_SE
ã¯ã˜ã‚ã¦ã®Test::Simple
テスト本ãŒå±Šã„ãŸã®ã§ãƒ†ã‚¹ãƒˆã‚’ã—ã¦ã¿ã‚‹ãƒ†ã‚¹ãƒˆã€‚勉強日記ã®å…¬é–‹ãƒ†ã‚¹ãƒˆã‚‚ã‹ãã¦ã€‚ Perl Testing: A Developer's Notebook (Developers Notebook) Test::Simpleã¯ã˜ã‚ã®ä¸€æ© #!/usr/bin/perl use strict; use warnings; use Test::Simple tests => 1; sub hello_world { return "Hello, world!"; } ok(hello_world() eq "Hello, world!");
JavaScript 用デãƒãƒƒã‚°ã‚³ãƒ³ã‚½ãƒ¼ãƒ« "IEerBug" [tech.nitoyon.com]
IEerBug 㯠Internet Explorer 6.0 㨠FireFox 1.5 ã§å‹•ã JavaScript 用ã®ãƒ‡ãƒãƒƒã‚° コンソールã§ã™ã€‚ FireBug ã¨åŒã˜ console.log()ã€console.debug() ãªã©ã®é–¢æ•°ãŒä½¿ãˆã‚‹ã‚ˆã†ã«ãªã‚‹ãŸã‚ã€FireFox 㨠IE ã®ä¸¡æ–¹ã§ãƒ‡ãƒãƒƒã‚°ã™ã‚‹å ´åˆã«ä¾¿åˆ©ã§ã™ã€‚コンソールã«å‡ºåŠ›ã—ãŸã‚ªãƒ–ジェクトをã€DOM インスペクタを利用ã—ã¦è§£æžã™ã‚‹ã“ã¨ã‚‚å¯èƒ½ã§ã™ã€‚ 使ã„æ–¹ ieerbug.zip をダウンãƒãƒ¼ãƒ‰ã—ã€ä¸èº«ã‚’アプリケーションã®ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªã«é…ç½®ã—ã¾ã™ã€‚IEerBug 用ã®ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªã‚’作æˆã—ã¦ã€ãã®ä¸ã«é…ç½®ã—ã¦ã‚‚å•é¡Œã‚ã‚Šã¾ã›ã‚“。 HTML ã®ä¸ã§æ¬¡ã®ã‚ˆã†ã«ã—㦠ieerbug.js ã‚’èªã¿è¾¼ã¿ã¾ã™ã€‚
![JavaScript 用デãƒãƒƒã‚°ã‚³ãƒ³ã‚½ãƒ¼ãƒ« "IEerBug" [tech.nitoyon.com]](https://cdn-ak-scissors.b.st-hatena.com/image/square/95abde13f7ed41248843e654a2f2ddcde8983db4/height=288;version=1;width=512/http%3A%2F%2Ftech.nitoyon.com%2Fapple-touch-icon-114x114.png){kind=icon}
CGI::Application::Plugin::Redirect : blog.nomadscafe.jp
CGI::Application::Plugin::Redirect CGI::Application::Plugin::RedirectãŒå‡ºã¦ã„ã¾ã™ã。åå‰ã‹ã‚‰æƒ³åƒã™ã‚‹é€šã‚Šã€redirectã®å‡¦ç†ã‚’è¡Œã£ã¦ãれるもã®ã§ã™ã€‚ package MyApp; use base qw(CGI::Application); use CGI::Application::Plugin::Redirect; sub start { my $self = shift; return $self->redirect('http://www.example.com/'); } リダイレクトã®ç›¸å¯¾â†’絶対ã¸ã®å¤‰æ›ã¯ã‚µãƒãƒ¼ãƒˆã—ã¦ã„ãªã„ã®ã§ã‚ã¾ã‚Šå½¹ã«ç«‹ã¡ãã†ã‚‚ãªã„ã‹ãªãã¨æ€ã£ã¦ã¾ã—ãŸãŒã€ã¨ã“ã‚ãŒã©ã£ã“ã„。１ã¤é¢ç™½ã„機能ãŒã‚ã‚Šã¾ã—ãŸã€‚ cgiapp_prerunã§ã®ãƒªãƒ€ã‚¤ãƒ¬ã‚¯ãƒˆã€ package MyApp; use b
CGI::Application - å†åˆ©ç”¨å¯èƒ½ãªWEBアプリケーションを構築ã™ã‚‹ãŸã‚ã®ãƒ•ãƒ¬ãƒ¼ãƒ ワーク
CGI::Application - å†åˆ©ç”¨å¯èƒ½ãªWEBアプリケーションを構築ã™ã‚‹ãŸã‚ã®ãƒ•ãƒ¬ãƒ¼ãƒ ワーク NAME SYNOPSIS INTRODUCTION USAGE EXAMPLE ABSTRACT DESCRIPTION Instance Script Methods Sub-classing and Override Methods Application Module Methods Testing PLUG-INS Existing plug-ins Writing Plug-ins Writing Advanced Plug-ins - Using callbacks COMMUNITY SEE ALSO AUTHOR CREDITS LICENSE Page Top NAME CGI::Application - å†åˆ©ç”¨å¯èƒ½ãªWEBアプリケーションを構築ã™ã‚‹ãŸã‚ã®ãƒ•ãƒ¬ãƒ¼
CGI::Application::Dispatchã¾ã¨ã‚ : ãŠã¾ãˆã®ãƒã‚°
ã“ã“1ヶ月ã»ã©(ãªãŒã„ãªã…)ã€ã¡ã¾ã¡ã¾ã¨å‹‰å¼·ã—ã¦ããŸCGI::Application::Dispatchã«ã¤ã„ã¦ã€ä½¿ã„方もã“ãªã‚Œã¦æ¥ãŸã®ã§ã€ã“ã“ã„らã§ã²ã¨ã¾ã¨ã‚ã§ã™ã€‚ 何ã™ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ï¼Ÿ ã“ã®å‹‰å¼·ä¸ã‚¨ãƒ³ãƒˆãƒªãƒ¼ã®ï¼‘回目ã§ã‚‚書ãã¾ã—ãŸãŒã€CGI::Applicationを利用ã—ãŸã‚¢ãƒ—リã§å¿…è¦ã«ãªã‚‹ã‚¤ãƒ³ã‚¹ã‚¿ãƒ³ã‚¹CGIã¯ä½œã‚‰ãšã«ã€URI(PATH_INFO)ã‹ã‚‰å®Ÿè¡Œã™ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¨Runモードを決定ã™ã‚‹ã€ã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã™ã€‚newã—ã¦runã™ã‚‹ã ã‘ã®ã‚¤ãƒ³ã‚¹ã‚¿ãƒ³ã‚¹CGIãªã‚“ã‹æ¯Žå›žæ›¸ããŸããªã„よã€ã¨ã„ã†ã®ãŒãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ä½œè€…ã•ã‚“ã®æ„図ã®ã‚ˆã†ã§ã™(PODã«ã‚‚ã‚ã‚Šã¾ã™)。 URIã¯ã“ã†ãªã‚‹ CGI::Application::Dispatchを使ã£ãŸå ´åˆã®URIã¯ã€ ã¨ãªã‚Šã¾ã™ã€‚ CGI::Applicationを継承ã—ãŸMyApp::Indexã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’作ã£ãŸå ´åˆã€ãれを実行ã™ã‚‹ãŸã‚ã®URIを比
PATH_INFOã¨ç›¸å¯¾ãƒ‘ス（リンク） : blog.nomadscafe.jp
PATH_INFOã¨ç›¸å¯¾ãƒ‘ス（リンク） ãŠã¾ãˆã®ãƒ–ãƒã‚°ã•ã‚“ã®ã‚¨ãƒ³ãƒˆãƒªãƒ¼CGI::Application::Dispatch勉強ä¸ãã®ï¼’㧠ã§ã‚‚ã€CGI::Application::Dispatchを使ã†å ´åˆã¯ã€PATH_INFOå½¢å¼ã‚’利用ã™ã‚‹ã“ã¨ãŒå‰æãªã†ãˆã€URIãŒå…¨éƒ¨ã€ http://example.com/dispatch.cgi/モジュールå/Runモード ãªæ„Ÿã˜ã«ãªã‚Šã¾ã™ã€‚階層ãŒå…¨éƒ¨ä¸€ç·’ã§ã™ã€‚ã“ã†ãªã‚‹ã¨ã€ä»Šã¾ã§ã®ã€ŒURIã®éšŽå±¤=ファイルã®ã‚ã‚Šã‹ã€ã¨ã„ã†æ–¹æ³•ã§ãƒ†ãƒ³ãƒ—レートを並ã¹ã¦ã€ãƒªãƒ³ã‚¯URIを相対パスã§æ›¸ãã€ã¨ã„ã†ã®ãŒä¸ä¾¿ã«ãªã‚Šã¾ã—ãŸã€‚URIãŸã³ãŸã³é–“é•ã†ã—…。 ã“ã‚Œã¯åƒ•ã‚‚æ‚©ã¿ã¾ã—ãŸã€‚ã‚ã¨ã§PATHãŒå¤‰æ›´ã«ãªã‚Šãã†ãªã¨ãã«ã¯çµ¶å¯¾ãƒ‘ス・リンクã¯ä½¿ã„ã¥ã‚‰ã„ã§ã™ã—ã€Dreamweaverã§ã‚‚作æˆã—ã«ãã„。ãªã®ã§æœ€è¿‘作ã£ãŸCGI::Application::Dispatchを利用ã—ãŸã‚¢ãƒ—
ランã‚ング
ãŠçŸ¥ã‚‰ã›
ランã‚ング
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
備忘帳 - オレンジ工房
備忘帳 - オレンジ工房
Index of /~naoya/ys
{{#tags}}- {{label}}
{{/tags}}