�Ȥ����櫓�ǡ������ź�蘆�����륳���ʡ�����äƤޤ���ޤ�����

����ϡ������顣

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