| Å×½ºÆ® :: ´ÜÀ§ :: Å×½ºÆ® ÄÉÀ̽º Å×½ºÆ® :: Unit :: TestCase´Â ´ÜÀ§ Å×½ºÆ® ÇÁ·¹ÀÓ ¿öÅ© ±âº» Ŭ·¡½ºÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Å×½ºÆ® :: ´ÜÀ§ :: Å×½ºÆ® ÄÉÀ̽º ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Christian Lemburg
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~clemburg/Test-Unit-0.14/lib/Test/Unit/tests/AllTests.pm
Å×½ºÆ® :: ´ÜÀ§ :: Å×½ºÆ® ÄÉÀ̽º ű×
Å×½ºÆ® :: ´ÜÀ§ :: Å×½ºÆ® ÄÉÀ̽º ¼³¸í
Å×½ºÆ® :: Unit :: TestCase´Â ´ÜÀ§ Å×½ºÆ® ÇÁ·¹ÀÓ ¿öÅ© ±âº» Ŭ·¡½ºÀÔ´Ï´Ù. Å×½ºÆ® :: À¯´Ö :: TestCase´Â ´ÜÀ§ Å×½ºÆ® ÇÁ·¹ÀÓ ¿öÅ©º£À̽º Ŭ·¡½ºÀÔ´Ï´Ù. ½Ä ³ëÇÁ ÆÐÅ°Áö foobar; ±âº» QW (Å×½ºÆ® :: ´ÜÀ§ :: Å×½ºÆ® ÄÉÀ̽º)¸¦ »ç¿ëÇϽʽÿÀ. »õ {My $ self = shift () -> super :: new (@_); # ¿©±â¿¡ °íÁ¤¹°¿¡ ´ëÇÑ ±ÍÇÏÀÇ ÁÖ $ self; } SUB SET_UP {# SUB TEAT_DOWN {# TEST} SUB TEST_FOO {# FOO ±â´É Å×½ºÆ®} SUB TEST_BAR {# BAR ±â´ÉÀ» Å×½ºÆ®} (JUNIT TESTCASE Ŭ·¡½º ¼³¸í¼¿¡¼ °¡Á®¿Â Å×½ºÆ®) Å×½ºÆ® ÄÉÀ̽º´Â " Á¶¸í±â "(Å×½ºÆ®¸¦À§ÇÑ ¸®¼Ò½º ÇÊ¿ä)¸¦ »ç¿ëÇÏ¿© ¿©·¯ Å×½ºÆ®¸¦ ½ÇÇàÇÕ´Ï´Ù. Å×½ºÆ® ÄÉÀ̽º¸¦ Á¤ÀÇÇÏ·Á¸é Tear_DOWN ()À» ÀçÁ¤ÀÇÇÏ¿© SET_UP () Á¤¸®¸¦ ÀçÁ¤ÀÇÇÏ¿© Fixture »óŸ¦ ÀçÁ¤ÀÇÇÏ¿© Á¶¸í±â »óŸ¦ ÀúÀå ÇÑ TestCaseDefine ÀνºÅϽº º¯¼öÀÇ ÇÏÀ§ Ŭ·¡½º¸¦ ±¸ÇöÇÕ´Ï´Ù. °¢ Å×½ºÆ®´Â ÀÚü Á¶¸í±â·Î ½ÇÇàµË´Ï´Ù. Å×½ºÆ® ·±°£¿¡ ºÎÀÛ¿ëÀÌ ¾ø¾î¾ßÇÕ´Ï´Ù. ´ÙÀ½Àº ¿¹Á¦ÀÔ´Ï´Ù. ÆÐÅ°Áö MathTest; ±âº» QW (Å×½ºÆ® :: ´ÜÀ§ :: Å×½ºÆ® ÄÉÀ̽º)¸¦ »ç¿ëÇϽʽÿÀ. »õ {My $ self = shift () -> super :: new (@_); $ self -> {value_1} = 0; $ self-> {value_2} = 0; $ self¸¦ µ¹·ÁÁÝ´Ï´Ù. } sub set_up {my $ self = shift; $ self-> {value_1} = 2; $ self-> {value_2} = 3; } °¢ Å×½ºÆ®¿¡ ´ëÇØ Á¶¸í±â¿Í »óÈ£ ÀÛ¿ëÇÏ´Â ¹æ¹ýÀ» ±¸ÇöÇÕ´Ï´Ù. $ Self-> Assert ()¸¦ ºÎ¿ï °ªÀ¸·Î È£ÃâÇÏ¿© ÁöÁ¤µÈ ¾î¼³ ¼ÇÀ¸·Î ¿¹»ó °á°ú¸¦ È®ÀÎÇϽʽÿÀ. SUB TEST_ADD {MY $ self = shift; ³» $ result = $ self-> {value_1} + $ self-> {value_2}; $ self-> assert ($ result == 5); } ¸Þ¼Òµå°¡ Á¤ÀÇµÇ¸é ½ÇÇàÇÒ ¼ö ÀÖ½À´Ï´Ù. ÀÌ ÀÛ¾÷À» ¼öÇàÇÏ´Â Á¤»óÀûÀÎ ¹æ¹ýÀº Reflement¸¦ »ç¿ëÇÏ¿© Run_Test¸¦ ±¸ÇöÇÕ´Ï´Ù. µ¿ÀûÀ¸·Î ¸Þ¼Òµå¸¦ ã°í È£ÃâÇÕ´Ï´Ù. À̸¦ À§ÇØ Å×½ºÆ® ÄÉÀ̽ºÀÇ À̸§Àº ½ÇÇàÇÒ Å×½ºÆ® ¹æ¹ý°ú ÀÏÄ¡ÇؾßÇÕ´Ï´Ù. ½ÇÇàµÇ´Â Å×½ºÆ®´Â TestSuite·Î ¼öÁý ÇÒ ¼ö ÀÖ½À´Ï´Ù. ÇÁ·¹ÀÓ ¿öÅ©´Â Å×½ºÆ® ½ºÀ§Æ®¸¦ ½ÇÇàÇÏ°í °á°ú¸¦ ¼öÁý ÇÒ ¼öÀÖ´Â ´Ù¸¥ Å×½ºÆ® ·¯´×À» Á¦°øÇÕ´Ï´Ù. Å×½ºÆ® ·¯³Ê´Â ¸Þ¼µå Suite ()¸¦ ÀÔ·Â Æ÷ÀÎÆ®·Î ±â´ëÇϰųª Å×½ºÆ®¸¦ ¼öÇà ÇÒ Å×½ºÆ®¸¦ °¡Á® ¿À°Å³ª Suite¸¦ ÀÚµ¿À¸·Î ÃßÃâÇÕ´Ï´Ù. Å×½ºÆ®°¡ ½ÇÆÐ ÇÒ ¶§ ³ªÅ¸³ª´Â ¿ÀÈ÷·Á ÀÚ¼¼ÇÑ ¹é Æ®·¹À̽º¸¦ ÁÁ¾ÆÇÏÁö ¾ÊÀ¸¸é quell_backtrace¸¦ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù ( ) ¹æ¹ý. Á¦°øµÈ ¸Þ½ÃÁö°¡ ¾øÁö¸¸ Backtrace.Requirements´Â ¾Æ´Õ´Ï´Ù. ¡¤ Perl ¿ä±¸ »çÇ× : ¡¤ Perl.
Å×½ºÆ® :: ´ÜÀ§ :: Å×½ºÆ® ÄÉÀ̽º °ü·Ã ¼ÒÇÁÆ®¿þ¾î