�Ȥ����櫓�ǡ������ź�蘆�����륳���ʡ�����äƤޤ���ޤ�����
����ϡ������顣
Milano::Monolog: �������夦���Υե����뤫���̾�䥢���ƥ�����̾���ɤ߽Ф�Perl�⥸�塼���ʤǶ��Perl�����Ǥ����ä����ڤʿͤ��ͤΥ����������ɤ�ź�路�Ƥ����餷���� �ʤΤǥ勵����Ż���ɬ�פˤʤäơ�������������Ƥ����⥸�塼���������ơ����褯���Ƥ�餦���Ȥˤ��롣 �����ƺǽ�Ū��CPAN���������äƤ��롣
����Ǥϡ���ʪ�Υ�����....�˰ܤ����ˡ�tarball��Ƥ������Ť�����
t/���ʡ���(;o;)
�ޤ����ƥ��Ȥ���˽����졢���ס�
�����ƥ��Ȥ��٤���Τ��ʤ��Τ˥ƥ��Ȥ��?��ʹ���ȡ��ΤΥץ�����ޡ��ϤӤä��ꤹ�롣
���������ºݤˤ�äƤߤ�ȡ��狼�롣���줬�ɤ������ʬ��ڤˤ��뤫��
�ɤ�ʥץ������⡢�Ϥ���ˤ���Τϥץ������ǤϤʤ������ۡ������˲������줿�鲿�����äƤ��뤫������������Τ��ץ�����ߥȤ�����롣�����顢�ƥ��Ȥ���˽Ȥ����Τϡ����ͽ��Τȼ¤Ϥ��ʤ��ʤΤ���
�����ơ�Perl�ǤϤ��Τ���λ��Ȥߤ��Ϥ��ᤫ���Ѱդ���Ƥ��롣�����⡢���ͽ����⤽�줬��ñ�˽�Τ������줬�ɤ�ʤ�Τ��ϡ����Ǥ˾Ҳ𤷤��ܤΤۤȤ�ɤ˽Ƥ���Τ����ɡ���ǯ����̿��Perl Testing���Ф��ΤǤ����˾Ҳ𤵤��Ƥ���������������ޤ������ˤ������ܤǡ�¾���ܤǤϰ�Ϥˤ����ʤ��ä����Ȥ�������Ȱ�����ܤˤʤ�ۤɽ��פ������Ω�ĤȤ������Ȥ���������ܤǤ⤢�롣����ޤ��Ż���Perl��Ȥ��ͤˤϽ��ʤ��ܤ���
CPAN�������餷�����ϡ����β�����ɸ�ಽ�����Ȥ������ˤ⤢�롣make test���̤�ʤ���force���ʤ�������install�����Ǥ��ʤ��Τ���
��������CPAN����ǽ�ǤϤʤ�����Ƥ��ʤ�test�ޤǼ¹Ԥ����櫓�ǤϤʤ��Τ���t/MLD-Info.t��
use Test::More tests => 1; BEGIN { use_ok('MLD::Info') };
�Ƚ������ǡ����ƥ���OK�פȤʤäƤ��ޤ����ᤷ�����Ȥˡ����������⥸�塼����äƷ褷�ƾ��ʤ��ʤ��������ɤߤ������Τ餺�ʤ�̡�CPAN Author��test�Τ餺�Ǥ��롣
�ץ��������Ȥ��礭���ʤ�С������ɤ�ͤȥƥ��Ȥ�ͤ�ʬ�Ȥ��������äƤ��롣�ºݥץ��������Ȥ��礭���ʤ�����Ǥϡ������ɽȥƥ��Ƚ�ʬ����Ƥ��뤳�Ȥ�¿����Module Author�ˤȤäư��֤��줷���桼�����Ȥ����Τϡ�test�����äƤ���ͤǤ⤢�롣�桼�����Ϻǹ�Υƥ������Ǥ⤢�롣������YAML::Syck�ΥХ���桼�������ä����鸫�Ĥ���줿��
�����ơ�Perl���餤˭���ʴĶ����ä��顢test�Ǥ���ե륹����å��ǽ�ɬ�פ⸺�äƤ��롣����release����Crypt::Camellia�Ǥϡ�Crypt::CBC�������ä���t/CBC.t��ڤ�Ƥ��Ƥ��Ƥ��롣
--- t/01-CBC.t 2006-04-30 22:20:09.000000000 +0900 +++ /Users/dankogai/.cpan/build/Crypt-CBC-2.17/t/Blowfish.t 2005-04-23 02:15:00.000000000 +0900 @@ -1,15 +1,10 @@ #!/usr/local/bin/perl -# -# $Id: 01-CBC.t,v 0.1 2006/04/30 13:19:53 dankogai Exp dankogai $ -# -# Shamelessly Stolen from Crypt::CBC t/Blowfish.t -- dankogai -# use lib '..','../blib/lib','.','./blib/lib'; -eval "use Crypt::CBC"; +eval "use Crypt::Blowfish()"; if ($@) { - print "1..0 # Skipped: Crypt::CBC not installed\n"; + print "1..0 # Skipped: Crypt::Blowfish not installed\n"; exit; } @@ -32,7 +27,7 @@ eval "use Crypt::CBC"; test(1,!$@,"Couldn't load module"); -test(2,$i = Crypt::CBC->new(-key=>'secret',-cipher=>'Camellia'),"Couldn't create new object"); +test(2,$i = Crypt::CBC->new(-key=>'secret',-cipher=>'Blowfish'),"Couldn't create new object"); test(3,$c = $i->encrypt($test_data),"Couldn't encrypt"); test(4,$p = $i->decrypt($c),"Couldn't decrypt"); test(5,$p eq $test_data,"Decrypted ciphertext doesn't match plaintext");
���ƤΤȤ������������������
�Ȥ����櫓�ǡ�milano���ˤ�����Ƥϡ��ޤ���test suite����ȽƤۤ�������������������TB����������
Dan the Perl Medic
�Ǥ�Ż��ι�֤ˤ�������֤����ä��㤦����