| Å×½ºÆ® :: »ç¿ë¹ý Å×½ºÆ® :: »ç¿ë¹ýÀº Å×½ºÆ®¿¡ ´ëÇÑ ´Ù¸¥ Á¢±Ù¹ýÀÔ´Ï´Ù : ¼±ÅÃÀû, Á¶¿ëÇÑ, È·ÁÇÑ. |
Áö±Ý ´Ù¿î·Îµå |
Å×½ºÆ® :: »ç¿ë¹ý ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Luc St-Louis
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~lucs/Test-Usage-0.07/lib/Test/Usage.pm
Å×½ºÆ® :: »ç¿ë¹ý ű×
Å×½ºÆ® :: »ç¿ë¹ý ¼³¸í
Å×½ºÆ® :: »ç¿ë¹ýÀº Å×½ºÆ®¿¡ ´ëÇÑ ´Ù¸¥ Á¢±Ù ¹æ½ÄÀÔ´Ï´Ù : ¼±ÅÃÀû, Á¶¿ëÇÑ, ´Ùä·Î¿î. Å×½ºÆ® :: »ç¿ë¹ýÀº Å×½ºÆ®¿¡ ´ëÇÑ ´Ù¸¥ Á¢±Ù ¹æ½ÄÀÔ´Ï´Ù : ¼±ÅÃÀû, Á¶¿ëÇÑ, colorful.synopsisletÀÇ ¸»Àº ¿ì¸®°¡ ¸ðµâ ¸ðµâÀ» ºôµåÇÏ°í ÀÖ½À´Ï´Ù. ¿îµ¿À»Çϱâ À§ÇØ ¿ì¸®´Â »ç¿ë¹ý ¿¹Á¦ ¸ðµâ, foo_t.pmÀ» ÀÛ¼ºÇÕ´Ï´Ù. °á±¹ ´ÙÀ½°ú °°ÀÌ º¸ÀÏ ¼ö ÀÖ½À´Ï´Ù : ÆÐÅ°Áö foo_t; Å×½ºÆ® :: »ç¿ë¹ý; ¾ö°ÝÇÑ »ç¿ë; °æ°í¸¦ »ç¿ëÇϽʽÿÀ. foo; ¿¹ ( 'e1', Sub {... ...); .... Á×À» "UH"; ...}); ¿¹ ( 'a1', sub {... ... ok (...) ¶Ç´Â diag (...); ...}); ¿¹Á¦ ( 'A2', Sub {... OK (...); ...}); ¿¹ ( 'a3', sub {my $ f = foo-> new (); my $ got_foo = $ foo (); my $ exp_foo = 'foo'; ok ($ got_foo eq $ exp_foo, "foo () '$ EXP_FOO'¸¦ µ¹·Á º¸³»½Ê½Ã¿À. ","$ got_foo '¸¦ ¾ò¾ú½À´Ï´Ù. ");}); ¿©±â¼ ±× ¿¹¸¦ Å×½ºÆ®ÇÏ´Â ¸î °¡Áö ¹æ¹ýÀº ´ÙÀ½°ú °°½À´Ï´Ù. # ½ÇÇà ¿¹Á¦'a3 'Àü¿ëÀÔ´Ï´Ù. perl -mfoo_t -e 'test (a => a3 ")'# labelÀÌ glob 'a *': a1, a2, a3¿Í ÀÏÄ¡ÇÏ´Â ¸ðµç ¿¹Á¦¸¦ ½ÇÇàÇÕ´Ï´Ù. perl -mfoo_t -e 'test (a => "a *")'# Å×½ºÆ® ¸ðµâ¿¡ÀÖ´Â ¸ðµç ¿¹Á¦¸¦ ½ÇÇàÇϽʽÿÀ. perl -mfoo_t -e Å×½ºÆ® # ½ÇÇà ¿¹Á¦ 'a3', ¼º°øÀ»º¸°íÇÏÁö¸¸ »ö»óÀÌ ¾ø½À´Ï´Ù. perl -mfoo_t -e 'test (a => "a3", v => 2, c => 0)'# ÇöÀç µð·ºÅ丮 ¾Æ·¡¿¡ÀÖ´Â ¸ðµç "* _t.pm"ÆÄÀÏÀÇ ¸ðµç ¿¹Á¦¸¦ ½ÇÇàÇÏ°í ¿ä¾àÇÕ´Ï´Ù. perl -mtest :: »ç¿ë¹ý -E ÆÄÀÏ ¿ä±¸ »çÇ× : ¡¤ Perl.
Å×½ºÆ® :: »ç¿ë¹ý °ü·Ã ¼ÒÇÁÆ®¿þ¾î