Test::Baseã§èªå好ã¿ã®Testã¯ã©ã¹ãä½ã èè :å è¤ æ¦ æçµæ´æ°æéï¼2009å¹´04æ14æ¥ 19æ17å33ç§ èªå·±ç´¹ä»id:ktat Wanoæ ªå¼ä¼ç¤¾ ãã¹ãããããã©ããã¦ãã¹ããå¿ è¦ãï¼ ãªãã¡ã¯ã¿ãªã³ã°ãããã ã¡ã½ããã®ä»æ§ãæ確ã«ãªã ä¿¡é ¼æ§ããã§ãã¯ãããã¨ãåºæ¥ãï¼Deve::Coverã¨ãï¼ Test::More#!/usr/bin/perl use Test::More tests => 5; BEGIN{use_ok("CGI");} is(ref(my $q = CGI->new), 'CGI', 'create CGI object'); is($q->param('hoge', 'hoge'), 'hoge', 'store hoge and return hoge'); $q->param('array', 1 .. 5); is_deeply
{{#tags}}- {{label}}
{{/tags}}