| Å×½ºÆ® :: DataDriven. TEST :: BASE°¡ ÃæºÐÇÏÁö ¾ÊÀ» ¶§ |
Áö±Ý ´Ù¿î·Îµå |
Å×½ºÆ® :: DataDriven. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Mattia Barbon
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~mbarbon/
Å×½ºÆ® :: DataDriven. ű×
Å×½ºÆ® :: DataDriven. ¼³¸í
Test :: Base°¡ ÃæºÐÇÏÁö ¾ÊÀ» ¶§ Test :: Base´Â µ¥ÀÌÅÍ ±â¹Ý Å×½ºÆ®¸¦ ÀÛ¼ºÇϱâÀ§ÇÑ ÈǸ¢ÇÑ Perl ¸ðµâÀÌÁö¸¸ ¶§·Î´Â ÇÊÅÍ ¹× ºñ±³ Ãâ·Â Á¢±Ù¹ýÀ» »ç¿ëÇÏ¿© ½±°Ô Ç¥ÇöÇÒ ¼ö¾ø´Â °ÍÀ» Å×½ºÆ®ÇؾßÇÕ´Ï´Ù. Å×½ºÆ® :: ±âº» ºôµå½Ã Å×½ºÆ® :: ±âº» ºôµå °¢ Å×½ºÆ® ºí·ÏÀÇ °¢ ¼½¼Ç¿¡ ´ëÇØ ½ÇÇàÇÒ ÀÛ¾÷À» ¼±¾ðÇÕ´Ï´Ù. ƯÈ÷, °¢ ºí·ÏÀÇ Ã³¸®´Â "½ÃÀÛ", "½ÇÇà"¹× "end"¼¼ ´Ü°è·Î ³ª´¹´Ï´Ù. "½ÃÀÛ"´Ü°è´Â ½ÃÇè¿¡ ´ëÇÑ ÀüÁ¦ Á¶°ÇÀ» Æò°¡Çϰųª È®¸³ÇÏ´Â µ¥ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. "½ÇÇà"´Ü°è´Â ÀϺΠÀÛ¾÷À» ¼öÇàÇÏ´Â µ¥ »ç¿ëµË´Ï´Ù. "end"´Ü°è´Â "½ÇÇà"´Ü°èÀÇ ºÎÀÛ¿ëÀ» È®ÀÎÇÏ´Â µ¥ »ç¿ëµÉ ¼ö ÀÖ½À´Ï´Ù. Å×½ºÆ® ¸ðµâ : # T / lib / myTest.pm ÆÐÅ°Áö MyTest; Å×½ºÆ® :: DataDriven :: Plugin -base; __package __-> ·¹Áö½ºÅÍ; ³» $ ½Ã°£; ³» $ °á°ú; sub check_before : ½ÃÀÛ (add1) {my ($ block, $ section_name, @data) = @_; $ time = time (); } sub do_that : ½ÇÇà (add1) {my ($ block, $ section_name, @data) = @_; $ result = add_1 ($ µ¥ÀÌÅÍ ); } sub check_after : end (°á°ú) {my ($ block, $ section_name, @data) = @_; ($ °á°ú, $ µ¥ÀÌÅÍ ); OK (½Ã°£ () - $ ½Ã°£ <1); # Å×½ºÆ® ÆÄÀÏ¿¡¼ ºÎÀÛ¿ë È®ÀÎ} : mytest »ç¿ë; Å×½ºÆ®¸¦ »ç¿ëÇϽʽÿÀ :: ´õ ¸¹Àº Å×½ºÆ® => 4; Å×½ºÆ® :: DataDriven-> ½ÇÇà; __end__ === Test 1 --- Add1 Chomp 3 --- °á°ú 4 === Å×½ºÆ® 1 - - add1 compr 7 --- °á°ú 8 ¿ä±¸ »çÇ× : ¡¤ Perl.
Å×½ºÆ® :: DataDriven. °ü·Ã ¼ÒÇÁÆ®¿þ¾î