Å×½ºÆ® :: ¸í·É

TEST :: COMMAND´Â ¿ÜºÎ ¸í·ÉÀ»À§ÇÑ Å×½ºÆ® ·çƾÀÌÀÖ´Â PERL ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

Å×½ºÆ® :: ¸í·É ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Daniel B. Boorstein
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~danboo/Tie-Handle-CSV-0.09/lib/Tie/Handle/CSV.pm

Å×½ºÆ® :: ¸í·É ű×


Å×½ºÆ® :: ¸í·É ¼³¸í

test :: Command´Â ¿ÜºÎ ¸í·ÉÀ»À§ÇÑ Å×½ºÆ® ·çƾÀÌÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. test :: Command´Â ¿ÜºÎ ¸í·ÉÀ»À§ÇÑ Å×½ºÆ® ·çƾÀÌÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù .Shinnopsest Exit »óÅÂ, stdout ¶Ç´Â ¿ÜºÎ ¸í·ÉÀÇ stderr. Å×½ºÆ® :: ¸í·É Å×½ºÆ® => 11; ## ½ÃÇè Á¾·á »óÅ MY $ CMD = 'TRUE'; exit_is_num ($ cmd, 0); exit_cmp_ok ($ cmd, '2'; stderr_like ($ cmd, / err /); stderr_unlike ($ cmd, / rre /); stderr_cmp_ok ($ cmd, 'eq', "errn"); ## run-onem-test -many-oo-style ## ù ¹ø° Å×½ºÆ®´Â lazily ¸í·É ## µÎ ¹ø° Å×½ºÆ®´Â ij½Ã µÈ °á°ú¸¦ »ç¿ëÇÕ´Ï´Ù. MY $ ECHO_TEST = TEST :: Command-> New (cmd => 'Echo Out'); $ echo_test-> exit_is_num (0 ); $ echo_test-> stdout_is_eq ( "outn"); ## $ echo_test-> ½ÇÇà ¸í·ÉÀ» ´Ù½Ã ½ÇÇàÇÕ´Ï´Ù. Å×½ºÆ® :: ¸í·ÉÀº ¼±ÅÃÇÑ Àß Å×½ºÆ® µÈ ±â´É°ú ¼±ÅÃÇÑ °´Ã¼ »çÀÌÀÇ °¸À» ¿¬°áÇÏ·Á°íÇÕ´Ï´Ù. ±ÍÇÏÀÇ ÇÁ·Î±×·¥¿¡¼­. Á¾·á »óÅÂ, STDOUT ¹× STDERRÀ» °Ë»çÇÏ¿© ¿¹»ó´ë·Î ÀÛµ¿ÇÏ´ÂÁö ¿©ºÎ¸¦ È®ÀÎÇÒ ¼ö ÀÖ½À´Ï´Ù. ÀÌ°ÍÀº ´Ù¾çÇÑ ¿É¼Ç°ú ÀμöÀÇ ´Ù¾çÇÑ Á¶ÇÕ ¹× ÀμöÀÇ ´Ù¾çÇÑ Á¶ÇÕ ¹× Àμö¸¦ Å×½ºÆ®ÇÏ°í ´Ù¾çÇÑ ±â´É°ú °´Ã¼ °£ÀÇ »óÈ£ ÀÛ¿ëÀ» Å×½ºÆ®ÇÏ´Â °ÍÀÔ´Ï´Ù. ±ÍÇÏÀÇ ÇÁ·Î±×·¥À» ±¸¼ºÇϽʽÿÀ. ¾Æ·¡ÀÇ ´Ù¾çÇÑ Å×½ºÆ® ±â´ÉÀº ù ¹ø° Àμö¿¡ ´ëÇÑ ¸í·É ¹®ÀÚ¿­ ¶Ç´Â ¹è¿­ ÂüÁ¶¸¦ Çã¿ë ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¸í·ÉÀÌ ¹®ÀÚ¿­·Î Ç¥ÇöµÇ¸é ½Ã½ºÅÛÀ¸·Î Àü´ÞµË´Ï´Ù. ¸í·ÉÀÌ ¹è¿­ ÂüÁ¶·Î Ç¥ÇöµÇ¸é ¸í·ÉÀÌ ÁÙ¾îµé¾î ½Ã½ºÅÛÀ¸·Î ½Ã½ºÅÛÀ¸·Î Àü´ÞµË´Ï´Ù. À̰͵éÀÌ ¾î¶»°Ô ´Ù¸¦ ¼ö ÀÖ´ÂÁö¿¡ ´ëÇÑ 'perldoc -f system'À» ÂüÁ¶ÇϽʽÿÀ. Å×½ºÆ® ÇÔ¼ö, $ À̸§¿¡ ´ëÇÑ ÃÖÁ¾ Àμö´Â ¼±Åà »çÇ×ÀÔ´Ï´Ù. ±âº»ÀûÀ¸·Î $ nameÀº Å×½ºÆ® ÇÔ¼ö À̸§, ¸í·É ¹®ÀÚ¿­ ¹× ¿¹»ó °ªÀÇ ¿¬°áÀÔ´Ï´Ù. ÀÌ ±¸Á¶´Â ÀϹÝÀûÀ¸·Î ½ÇÆÐÇÑ Å×½ºÆ®¸¦ ½Äº°ÇÏ´Â µ¥ ÃæºÐÇÏÁö¸¸ ¿øÇÏ´Â °æ¿ì Ç×»ó »ç¿ëÀÚ ÀÚ½ÅÀÇ $ À̸§À» ÁöÁ¤ÇÒ ¼ö ÀÖ½À´Ï´Ù. Å×½ºÆ® ÇÔ¼öÀÇ À̸§Àº Å×½ºÆ® :: ¸í·É °´Ã¼¿¡¼­ ÀνºÅϽº ¸Þ¼Òµå·Î »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. ÀÌ´Â Ãʱâ $ cmd Àμö¸¦ »èÁ¦ÇÏ°í ´ÙÀ½ exit_is_num È£ÃâÀÇ È­»ìÇ¥ notallÀ» »ç¿ëÇÏ¿© ´ë½Å ¼öÇàµË´Ï´Ù. exit_is_num ( 'true', 0); exit_is_num ( 'true', 0, 'exit_is_num : true, 0'); exit_is_num (, 0); exit_is_num (); exit_is_num ($ cmd, 0); exit_is_num ($ cmd, 0, 'exit_is_num : true, 0'); $ cmd-> exit_is_num (0); $ cmd-> exit_is_num (0, 'exit_is_num : true, 0'); ¿ä±¸ »çÇ× : ¡¤ Perl.


Å×½ºÆ® :: ¸í·É °ü·Ã ¼ÒÇÁÆ®¿þ¾î

getopt :: argvfile.

getOpt :: argvfileÀº ÆÄÀÏ¿¡¼­ @argv ¶Ç´Â ´Ù¸¥ ¹è¿­·Î ½ºÅ©¸³Æ® ¿É¼ÇÀ» º¸°£ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ...

162

´Ù¿î·Îµå