- Timestamp:
- 01/27/08 15:36:54 (5 years ago)
- Location:
- docs/tokuhirom/20080127-soozycon4-mobilecarrierjp
- Files:
-
- 1 modified
- 1 copied
-
. (copied) (copied from docs/tokuhirom/20071210-mfintra-readable_test_code)
-
main.txt (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
docs/tokuhirom/20080127-soozycon4-mobilecarrierjp/main.txt
r2997 r5626 1 readable test code with DSL. 1 WWW::MobileCarrierJP 2 2 3 3 <div style="text-align: right"> 4 tokuhirom@ mf 2007-12-10(Mon)4 tokuhirom@soozycon#4 2008-01-27(Sun) 5 5 </div> 6 6 ---- 7 how to write readable test code? 7 わーわーわー。もばいるきゃりやーじぇーぴー。 8 8 ---- 9 bad code: 10 11 >|| 12 my $operator = Test::Operator->new; 13 $operator->login('foo', 'bad pass'); 14 contains $operator->content, 'login failed', 'case 1: login failed'; 15 16 $operator = Test::Operator->new; 17 $operator->login('foo', 'good pass'); 18 contains $operator->content, 'login succeeded', 'case 2: login succeeded'; 19 ||< 9 これなーに? 20 10 ---- 21 good code: 22 23 >|| 24 session 'ログイン失敗' => sub { 25 login 'foo', 'bad pass'; 26 content_contains 'login failed'; 27 }; 28 29 session 'ログイン成功' => sub { 30 login 'foo', 'good pass'; 31 content_contains 'login succeeded'; 32 }; 33 ||< 11 モバイルサイトの開発時 34 12 ---- 35 how to use DSL? 13 キャリヤのサイトにのってるテーブルからスクレイピング 36 14 ---- 37 Perl DSL uses Perl's magical power! 15 データベースにためこんだり。 38 16 ---- 39 >|| 40 our $operator; 41 sub session ($&) { 42 my ($name, $code) = @_; 43 local $operator = Test::Operator->new; 44 $code->(); 45 } 46 ||< 17 ケータイキャリヤ公式サイトのスクレイピングスクリプト集。 47 18 ---- 48 - local binds value. 49 - my binds name. 19 お前ら車輪の再発明をいつまでやりつづけるおつもりですか? 20 ---- 21 くだらねえ。実にくだらねえ。 22 ---- 23 TDD 24 ---- 25 テストコード。 26 ---- 27 cron で実行。 28 ---- 29 コケたらすぐなおしてます。 30 ---- 31 YAML でダンプするスクリプトつき。 32 ---- 33 再発明は馬鹿のやること。 34 ---- 35 AirHPhone::CIDR 36 ---- 37 DoCoMo::CIDR 38 DoCoMo::Display 39 DoCoMo::Flash 40 DoCoMo::PictogramInfo 41 ---- 42 EZWeb::CIDR 43 EZWeb::DeviceID 44 EZWeb::Model 45 EZWeb::PictogramInfo 46 ---- 47 ThirdForce::CIDR 48 ThirdForce::PictogramInfo 49 ThirdForce::UserAgent 50 50 ---- 51 51 that's all.
![(please configure the [header_logo] section in trac.ini)](/share/chrome/site/your_project_logo.png)