\鐃緒申鐃�\¹\鐃緒申鐃�

2009鐃緒申鐃緒申鐃緒申05·鐃緒申鐃�27鐃緒申鐃緒申鐃緒申06:31

$\«\Æ\´\ê¡¼¤Ç¤¹$ Perl

Test::Base鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申·鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃�\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋�緒申

鐃暑Ǚ申鐃緒申鐃緒申��￥申Test::Base鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃純™申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃縮�渋￥申perl鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃�\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃署¨�緒申Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃出�緒申鐃緒申鐃�Test::Base鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�(*Ž\鐃緒申�鐃緒申Ž\)\鐃緒申�鐃渋�渋�暑Ǚ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�³\鐃緒申鐃�\¹\鐃緒申鐃�\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￠´�緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃述�緒申¾鐃緒申鐃�²鐃緒申�鐃緒申¼鐃緒申臓鐃�

use strict;
use Test::Base;

filters {
    i => [qw/lines chomp array test_method/],
    e => [qw/lines chomp array/],
};

sub test_method {
    my $data = shift; # 鐃緒申鐃緒申鐃遵Î�術�緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�
    $data->[0] *= 2;
    $data->[1] =~ s/\d//g;
    return $data;
}

run_is_deeply i => 'e';

__END__
===
--- i
1
sasata299
--- e
2
sasata
===
--- i
2
zozom
--- e
4
zozom

test_method鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

1. 鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃�2鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申��術�緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申鐃緒申¼鐃緒申�鐃緒申鐃�¼鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申
2. 鐃暑ǚ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃巡™申鐃緒申�鐃緒申鐃淳�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�2鐃緒申鐃緒申鐃巡™申¹鐃緒申鐃緒申鐃緒申
3. 鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申鐃緒申��申鐃緒申�鐃緒申鐃淳�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申�鐃緒申»鐃緒申��申漫鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃緒申½鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¼鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申��申鐃緒申鐃�
4. 鐃緒申鐃緒申鐃遵Î�術�緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申鐃述�緒申鐃緒申�鐃緒申¹鐃緒申臓鐃�

i鐃緒申鐃緒申input\鐃緒申鐃緒申鐃緒申¼\鐃緒申�鐃渋￥申e鐃緒申鐃緒申expected\鐃緒申鐃緒申鐃緒申¼\鐃緒申�鐃緒申鐃緒申�鐃緒申½鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓��¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃�¾鐃緒申鐃緒申��申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃殉�緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

Test::Base鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃�\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�input\鐃緒申鐃緒申鐃緒申¼\鐃緒申�鐃緒申鐃緒申鐃�expected\鐃緒申鐃緒申鐃緒申¼\鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申Ð鐃緒申鐃�·鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�²鐃緒申鐃�¹鐃緒申��申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申鐃緒申鐃緒申鐃渋￥申��申½鐃緒申��申鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�³鐃緒申�鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�Ð鐃緒申臓鐃�\鐃緒申鐃�\¹\鐃緒申鐃�\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申�鐃獣￥申鐃緒申鐃渋�獣�渋�緒申

lines\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�: input\鐃緒申鐃緒申鐃緒申¼\鐃緒申�鐃緒申鐃緒申鐃�²鐃緒申鐃�¹鐃緒申國鐃緒申鐃緒申鐃緒申鐃緒申鐃盾™申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申���術�緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃俊�緒申¹
chomp\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�: \鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申«鐃緒申鐃緒申鐃緒申鐃緒申臓��鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃�²鐃緒申鐃�¹鐃緒申�鐃緒申鐃緒申鐃�»鐃緒申��申鐃緒申鐃�¼鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申��申鐃緒申鐃�
array\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�: 鐃緒申鐃緒申鐃遵Î�術�緒申鐃緒申鐃�¼鐃緒申�鐃緒申鐃�¼鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￠Ç鐃緒申���緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃俊�緒申¹

鐃緒申�鐃緒申鐃緒申�鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�input\鐃緒申鐃緒申鐃緒申¼\鐃緒申�鐃緒申鐃緒申鐃�lines\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃渋￥申chomp\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃渋￥申array\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申臓鐃暑Ǚ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申test_method\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申½鐃緒申鐃緒申鐃緒申·鐃緒申鐃�²鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申expected\鐃緒申鐃緒申鐃緒申¼\鐃緒申�鐃緒申鐃緒申鐃�lines\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃渋￥申chomp\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃渋￥申array\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申·鐃緒申鐃�²鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申鐃述�緒申鐃緒申鐃�³鐃緒申�鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃渋￥申run_is鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�run_is_deeply鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃�»鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃�³鐃緒申�鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�

鐃緒申鐃緒申鐃緒申鐃緒申鐃殉�緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申臓鐃暑Ǚ申½鐃緒申鐃緒申鐃緒申«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃出°Õ�緒申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申Filter鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃緒申µ鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�yaml鐃緒申鐃緒申鐃緒申鐃緒申鐃�«eval鐃緒申鐃緒申鐃緒申鐃緒申鐃�«dumper鐃緒申鐃緒申鐃緒申鐃緒申鐃�«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�¾鐃緒申��申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑Ǚ申²¼鐃緒申鐃緒申鐃緒申\µ\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃�»²¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�

Test::Base::Filter - Test::Base 鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹
鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 /usr/lib/perl5/site_perl/5.8.8/Test/Base/Filter.pm 鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\½鐃緒申鐃�¼\¹鐃緒申鐃緒申鐃述�緒申«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�« 鐃緒申�鐃緒申

\鐃緒申鐃�\鐃緒申鐃緒申臓鐃�: perl; Test::Base; \鐃緒申鐃�\¹\鐃緒申鐃�

2008鐃緒申鐃緒申鐃緒申11·鐃緒申鐃�03鐃緒申鐃緒申鐃緒申21:00

$\«\Æ\´\ê¡¼¤Ç¤¹$ Ruby

rails³Ð½鐃緒申鐃� 鐃緒申�鐃緒申\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃緒申鐃暑î�緒申鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑™申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￠È鐃緒申鐃緒申鐃緒申鐃暑Ǚ申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申RSpec on Rails鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃�\Ð鐃緒申鐃�¼\鐃緒申鐃�\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�RSpec++
rspec-rails鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申\鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�

sudo gem install rspec-rails

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑™申鐃緒申鐃緒申��申²¼鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申 rspec-rails 鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃暑î�緒申鐃緒申��申·鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�

[sasata299@localhost] $ ruby script/generate rspec
      exists  lib/tasks
      create  lib/tasks/rspec.rake
      create  script/autospec
      create  script/spec
      create  script/spec_server
      create  spec
      create  spec/rcov.opts
      create  spec/spec.opts
      create  spec/spec_helper.rb

鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�script鐃緒申鐃緒申鐃緒申²¼鐃緒申鐃緒申鐃緒申spec_server鐃緒申鐃緒申½Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃渋￥申spec\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃�½Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃渋￥申rake\³\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�²鐃緒申鐃緒申鐃緒申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃渋￥申¼鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申

ruby script/generate rspec_controller samples
ruby script/generate rspec_model sample

鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�controller 鐃緒申鐃緒申鐃緒申鐃暑ǚ申½鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申Ð鐃殉�出�緒申¹鐃緒申鐃緒申鐃緒申spec\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�model 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

¼鐃緒申�鐃緒申鐃緒申鐃�DB鐃緒申鐃緒申鐃渋�暑î�緒申鐃緒申��申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�¼鐃緒申鐃緒申鐃緒申鐃緒申鐃�migration鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ鐃緒申�鐃緒申½鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￠Ä¾鐃緒申鐃緒申鐃緒申SQL鐃緒申鐃緒申鐃述�緒申鐃緒申�鐃緒申«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃殉�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申rails鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縮�緒申鐃緒申鐃�µ鐃緒申�鐃緒申½鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�

# config/database.yml鐃緒申鐃緒申鐃述�緒申鐃緒申鐃�½鐃緒申鐃�(ID, PASS, socket)
rake db:create
rake db:create RAILS_ENV=test

DB½Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申¼鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�migration\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�½鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申�鐃暑î�緒申鐃緒申��申鐃緒申鐃�¹鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

# db/migrate/xxx_create_items.yml鐃緒申鐃緒申鐃述�緒申鐃緒申鐃�½鐃緒申鐃�
rake db:migrate
rake db:migrate RAILS_ENV=test

\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ»鐃緒申鐃�½Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃縦�渋￥申鐃�½鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�rails鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\鐃緒申鐃緒申鐃緒申¼\鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�\³\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃�½Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�fixture\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申�鐃暑î�緒申鐃緒申��申·鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�rake\³\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��™申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�rake\¹\鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃緒申鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

require 'active_record'
require 'active_record/fixtures'
namespace :db do
  def load_data(env)
    ActiveRecord::Base.establish_connection(env)
    pattern = File.join(RAILS_ROOT, 'db', 'fixtures', env.to_s, '*.{yml,csv}')
    Dir.glob(pattern).each do |fixture_file|
      table_name = File.basename(fixture_file, '.*')
      Fixtures.create_fixtures('db/fixtures/' + env.to_s, table_name)
    end
  end

  namespace :import do
    desc "Load fixture data into the development database."
    task :development => :environment do
      load_data :development
    end
    
    desc "Load fixture data into the production database."
    task :production => :environment do
      load_data :production
    end
  end
end

鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�db/fixtures/鐃緒申鐃緒申鐃緒申²¼鐃緒申鐃緒申鐃緒申fixture\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申µ鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�
db:import:development鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃渋￥申development鐃緒申鐃緒申鐃緒申²¼鐃緒申臓鐃�db:import:production鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃渋￥申production鐃緒申鐃緒申鐃緒申²¼鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申test/fixtures鐃緒申鐃緒申鐃緒申²¼鐃緒申鐃緒申鐃述�緒申µ鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申�鐃緒申

mkdir -p db/fixtures/development

# db/fixtures/development/items.yml鐃緒申鐃緒申鐃述�緒申鐃緒申鐃�½鐃緒申鐃�
rake db:import:development

鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申�鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃縦�渋￥申
test\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�³»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�(Ž鐃緒申鐃�Ž鐃緒申痢鐃緒申鐃緒申Ž鐃緒申鐃�)Ž鐃緒申鐃�Ž鐃緒申鐃�Ž²Ž鐃緒申鐃�! (Ž鐃緒申鐃�Ž鐃緒申痢鐃緒申鐃緒申Ž鐃緒申鐃�)Ž鐃緒申鐃�Ž鐃緒申鐃�Ž²Ž鐃緒申鐃�!

鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�autotest鐃緒申鐃緒申鐃緒申µ鐃緒申鐃緒申鐃緒申鐃暑™申·鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�fixture\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃�spec/fixtures鐃緒申鐃緒申鐃緒申²¼鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃俊�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�

export RSPEC=true
ruby script/spec_server
autotest # RAILS_ROOT鐃緒申鐃緒申鐃緒申¼鐃緒申鐃�¹鐃緒申鐃�

鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�controller鐃緒申鐃緒申鐃緒申model鐃緒申臓鐃�spec\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�¹¹鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¼«鐃緒申鐃緒申��申鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃�¾\鐃緒申鐃�\¹\鐃緒申鐃�\鐃緒申鐃�\鐃緒申�鐃緒申¼\¹\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申�鐃曙¡�緒申

$Rails\ì\·\Ô\Ö\Ã\¯ 183¤Îµ»$ Rails\鐃緒申鐃�\·\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃� 183鐃緒申鐃緒申鐃緒申µ»
鐃緒申鐃緒申鐃緒申¼鐃緒申�鐃渋￥申¹鐃緒申鐃緒申鐃緒申鐃� 鐃緒申鐃緒申鐃�µ鐃緒申鐃�
鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申µ鐃緒申臓鐃�\½\鐃緒申鐃�\鐃緒申鐃�\Ð\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�
鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃巡¡￥申2008-05-31
鐃緒申鐃緒申鐃曙™申¹鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃純¡￥申

\鐃緒申鐃�\鐃緒申鐃�\³\鐃緒申�鐃緒申鐃緒申�鐃緒申«鐃緒申鐃緒申鐃緒申

\鐃緒申鐃�\鐃緒申鐃緒申臓鐃�: rails; autotest; RSpec; \鐃緒申鐃�\¹\鐃緒申鐃�

2008鐃緒申鐃緒申鐃緒申11·鐃緒申鐃�01鐃緒申鐃緒申鐃緒申23:15

$\«\Æ\´\ê¡¼¤Ç¤¹$ Perl

perl鐃緒申鐃緒申鐃緒申autotest鐃緒申鐃緒申鐃述�暑î�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃巡¡￥申ruby鐃緒申鐃緒申鐃緒申autotest鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃緒申²鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ»鐃緒申�鐃緒申鐃緒申鐃�½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃縦�渋￥申
鐃緒申鐃�½鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�perl鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申«鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申»鐃淳�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃純™申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申Test::Continuous鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申鐃緒申�鐃緒申鐃緒申�鐃緒申«鐃緒申鐃緒申鐃緒申鐃緒申鐃殉�緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃縦�渋￥申

鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃縮�緒申鐃緒申��申鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃殉�緒申鐃緒申鐃緒申鐃渋￥申Mac::Growl鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃緒申鐃緒申�鐃緒申鐃縮�縦�巡™申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃緒申鐃緒申鐃�½Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃獣�渋�獣�渋�獣�渋￥申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�½Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�ÐAutotest::screen鐃緒申鐃緒申鐃塾�緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃�²鐃緒申鐃緒申鐃緒申鐃緒申鐃�screen鐃緒申鐃緒申鐃緒申\Ð\·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�½¼鐃緒申鐃緒申鐃�µ鐃緒申鐃�»鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃�

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�¼«鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃暑î�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃�.Ž鐃緒申鐃�Ž鐃緒申鐃�+.(Ž\鐃緒申鐃�Ž\)Ž鐃緒申鐃�+.Ž鐃緒申�鐃渋�渋�緒申³鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申

autotest.pl

#!/usr/bin/perl

use strict;
use warnings;
use Cwd;
use File::Modified;
use Getopt::Long;

my $color = {
    black  => 'dd',
    green  => 'gk',
    red    => 'rw',
    yellow => 'yk',
};

my $all = 0;
GetOptions( all => \$all );

my $statusline = "%`%-w%{=b cw}%n %t%{-}%+w %=";
   
my $ra_list = get_files();
my $m = File::Modified->new( files => $ra_list );

my @changes;
while(1) {
    if (@changes = $m->changed) {
        for (@changes) {
            my $return_code = system "perl -cw $_";
                
            if ($return_code eq '0') {
                my @tmp = split /\//, $_;
                $tmp[-1] =~ s/(.+)\.(pl|pm)/$1.t/;
                my $test = join "/", @tmp;
                my $output = $all ? `prove -v *` : `prove -v $test`;
                    
                print "$output\n";
                send_msg('Testing...', $color->{black});
                sleep 1;
                    
                if ($output =~ m#Failed test:\s+(\d+)#) {
                    my $fail_num = $1;
                    if ($output =~ m#Tests=(\d+),#) {
                        send_msg('Error T:' . $2 . ' F:' . $1, $color->{red});
                    }
                }
                else {
                    send_msg('All success', $color->{green});
                }
            }
            else {
                send_msg('Syntax error', $color->{yellow});
            }
        }
        $m->update; # ½鐃緒申鐃緒申鐃緒申鐃緒申²½
    }
    sleep 1;
}

sub get_files {
    my $dir = getcwd;
    my @list = `find $dir/ -regex ".*\.p[lm]"`;
    push @list, `find $dir/ -regex ".*\.t"`;
    chomp for @list;
    return \@list;
}

sub send_msg {
    my ($msg, $color) = @_;
    my $message = qq/%{=b $color} $msg %{-}/;
    $message =~ s/'/\'/g;
    my $cmd = qq{screen -X eval 'hardstatus alwayslastline "%`%-w%{=b cw}%n %t%{-}%+w %= $message"'}; 
    system $cmd;
}

鐃緒申鐃�³鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃俊�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�

»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�

鐃緒申鐃�autotest.pl鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¾鐃緒申鐃�½鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�
鐃緒申¹¹鐃緒申鐃�·鐃緒申鐃緒申鐃述￥申鐃緒申鐃�»鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申autotest.pl鐃緒申鐃緒申鐃緒申¼鐃緒申鐃�¹鐃緒申鐃�
鐃緒申鐃�½鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申��申²¼鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹¹鐃緒申鐃�·鐃緒申鐃緒申鐃述�暑�申µ鐃書Å鐃緒申��申鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�
鐃緒申鐃緒申鐃緒申½鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹¹鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¾鐃緒申鐃�¹鐃緒申鐃緒申鐃渋￠ÂÐ鐃殉�出�緒申¹鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃渋�緒申鐃緒申�鐃緒申鐃緒申陝�鐃緒申Ð鐃緒申臓鐃�xyz.pl鐃緒申鐃緒申鐃緒申¾鐃緒申鐃�¹鐃緒申鐃緒申鐃渋￥申xyz.t鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¼鐃緒申鐃�¹鐃緒申鐃�
\·鐃緒申鐃�²鐃緒申鐃緒申鐃緒申鐃緒申鐃�screen鐃緒申鐃緒申鐃緒申½Ð鐃緒申�鐃緒申

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃術�緒申鐃緒申鐃�autotest鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申臓��°¡￥申鐃緒申�鐃緒申

鐃緒申�鐃盾Ǚ申鐃緒申鐃�µ(081104)鐃緒申�鐃緒申
all\鐃緒申鐃�\鐃緒申\·\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申�鐃緒申鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃暑™申µ鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�µ鐃緒申鐃緒申鐃緒申鐃暑™申·鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申��申²¼鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃�\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃�¼鐃緒申鐃�¹鐃緒申�鐃緒申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃�½鐃緒申鐃緒申鐃緒申µ鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃縦�渋￥申

autotest.pl --all

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½鐃緒申鐃緒申鐃緒申µ鐃緒申鐃緒申鐃出�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�»鐃淳�緒申鐃緒申�鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申陝�鐃緒申鐃緒申襦㍼申��申鐃緒申��申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�
鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申perl鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申³«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¼鐃緒申臓鐃�(鐃緒申鐃�鐃緒申�鐃緒申鐃緒申�鐃庶¡�緒申鐃緒申鐃�鐃緒申�鐃緒申鐃緒申�鐃緒申)Ž鐃緒申鐃�

\鐃緒申鐃�\鐃緒申鐃緒申臓鐃�: perl; ruby; autotest; \鐃緒申鐃�\¹\鐃緒申鐃�

2008鐃緒申鐃緒申鐃緒申10·鐃緒申鐃�20鐃緒申鐃緒申鐃緒申02:41

$\«\Æ\´\ê¡¼¤Ç¤¹$ Ruby Linux

RSpec + Autotest::screen = 鐃緒申��申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�³«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�

鐃緒申�鐃盾Ǚ申鐃緒申鐃�µ090704鐃緒申�鐃緒申
RSpec鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃�\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃� - (Ž鐃緒申痢鐃緒申Ž鐃緒申鐃�)o鐃淳�緒申 sasata299's blog 鐃緒申鐃緒申鐃緒申鐃緒申鐃�»鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申陝�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�

³«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃�\鐃緒申鐃�\鐃緒申�鐃緒申¼\¹\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃渋￥申�鐃緒申鐃緒申鐃�鐃緒申鐃緒申鐃渋�緒申*)鐃緒申�鐃渋�緒申½鐃緒申鐃緒申鐃緒申»鐃淳�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�Ruby鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃純™申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申TDD鐃緒申�鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申³«鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�Ð鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�BDD鐃緒申�鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃渋�緒申鐃緒申³«鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申«鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃縦�渋￥申

鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�ruby鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃縮�渋￥申ruby鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申RSpec鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申BDD鐃緒申鐃緒申鐃出�緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�RSpec鐃緒申鐃緒申鐃緒申鐃緒申鐃殉�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃�¹½鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申鐃�½鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃出�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申臓鐃渋￥申臓鐃�

鐃緒申鐃�½鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�autotest鐃緒申鐃緒申鐃緒申½Ð鐃緒申鐃緒申鐃俊�緒申鐃緒申鐃緒申鐃緒申¹鐃緒申�鐃曙¡�曙™申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹¹鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申鐃�½鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�Ð鐃殉�出�緒申¹鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃�\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃�¼«鐃緒申鐃緒申��申鐃緒申鐃�鐃緒申鐃緒申鐃俊�緒申鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申²鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

鐃緒申鐃�³鐃緒申鐃緒申鐃緒申2鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃述�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓��鐃緒申鐃�¾鐃緒申鐃緒申鐃緒申鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃縮�渋�緒申鐃緒申鐃緒申鐃緒申³«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申�鐃署¨�緒申½鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃渋�緒申鐃緒申²鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申RSpec + autotest 鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�¹鐃緒申鐃緒申鐃署¨�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�»²¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃縦�渋￥申

鐃緒申�鐃獣�渋�獣�渋�獣�緒申鐃緒申鐃緒申鐃渋￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃渋�緒申鐃緒申²鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓��鐃緒申鐃緒申鐃緒申鐃緒申鐃�RSpec鐃緒申鐃緒申鐃緒申autotest鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃縦�渋￥申(autotest鐃緒申鐃緒申鐃緒申ZenTest鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃出�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹)

sudo gem install rspec
sudo gem install ZenTest

鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃渋￥申autotest鐃緒申鐃緒申鐃述�緒申鐃暑™申«鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�·鐃緒申鐃�²鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申�鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓��鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃署¨�緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃渋￥申臓鐃�¾鐃緒申鐃�¼鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃�²鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�¹鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¾鐃緒申�鐃緒申鐃緒申�鐃緒申�鐃緒申鐃緒申��鐃緒申��申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

鐃緒申鐃緒申鐃�²鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申Growl鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申µ鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃縦�渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申臓鐃渋�緒申鐃緒申鐃縮�渋￥申»鐃緒申鐃緒申鐃緒申鐃暑™申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�³«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�鐃緒申鐃緒申鐃緒申Linux鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃�Growl鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃緒申Ž鐃緒申鐃�Ž鐃緒申鐃�(Ž鐃緒申�鐃緒申鐃緒申\鐃緒申�鐃緒申Ž鐃緒申鐃�)鐃緒申蔵鐃�Ž鐃緒申鐃�Ž³Ž鐃緒申Ž鐃緒申Ž鐃緒申Ž鐃緒申鐃渋�緒申Windows鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�snarl鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申鐃緒申��申鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃縮�渋�獣�渋�獣�渋�緒申

鐃緒申�鐃獣�渋�獣�緒申鐃緒申鐃�»鐃淳�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申�鐃緒申鐃緒申鐃�µ鐃緒申鐃�½鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申�鐃曙¡�曙™申½鐃緒申鐃緒申鐃渋�緒申¾鐃緒申鐃緒申鐃緒申 Autotest::screen 鐃緒申臓鐃�ZenTest鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�Ð¼«鐃緒申鐃緒申��申鐃緒申��申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃緒申鐃緒申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申鐃緒申鐃緒申鐃緒申臓鐃緒申鐃緒申鐃緒申鐃渋￥申鐃緒申鐃緒申鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�

1) \鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹¹»鐃緒申�鐃緒申鐃緒申鐃�¼«鐃緒申鐃緒申��申鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申鐃�·鐃緒申鐃�«鐃緒申鐃緒申鐃緒申
2) 鐃緒申鐃�½鐃緒申鐃緒申鐃緒申·鐃緒申鐃�²鐃緒申鐃緒申鐃緒申鐃�screen鐃緒申鐃緒申鐃緒申\¹\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\¹\鐃緒申鐃�\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申½¼鐃緒申鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¼鐃緒申鐃緒申鐃緒申½鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申�鐃曙¡�曙™申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹\¹\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�
鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃�«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縮�緒申鐃緒申鐃�³«鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¾(*Ž\鐃緒申�鐃緒申Ž\)\鐃緒申�鐃渋�渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申»\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�³«鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�

¤«¤Ã¤³¤¤¤¤

鐃緒申鐃緒申鐃塾�緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃渋�緒申.autotest鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申

Autotest.add_discovery do
  "rspec" # use Autotest::Rspec
end

Autotest.add_hook :initialize do |at|
  at.add_mapping(/([\w\0-9]+)\.rb$/) {|f, matched|
    "spec/#{matched[1]}_spec.rb"
  }
end

require 'autotest/screen'

class Autotest

  # Autotest::Screen鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ鐃緒申鐃緒申鐃緒申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申:ran_command鐃緒申鐃緒申鐃述�緒申鐃緒申�鐃緒申鐃緒申�鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃�
  HOOKS[:ran_command].clear
end

require 'autotest/redgreen'

Autotest::HOOKS.delete(:interrupt)
Autotest::Screen.statusline = "%`%-w%{=b cw}%n %t%{-}%+w %="

class Autotest::Screen
  SCREEN_COLOR[:yellow] = 'yk'

  Autotest.add_hook :run_command do |at|
    if at.files_to_test.empty? or /models/ =~ at.files_to_test.keys[0]
      message 'Testing...' if execute?
    end
  end

  Autotest.add_hook :ran_command do |at|
    return unless execute?

    output = at.results.join
    total, failed, pending, syntax_err = 0, 0, 0, false

    if /(\d+) examples?, (\d+) failures?(?:, (\d+) pendings?)?/ =~ output
      total   = $1.to_i
      failed  = $2.to_i
      pending = $3.to_i
    elsif /syntax error/ =~ output or output == "\n"
      syntax_err = true
    end

    if syntax_err
      message "Syntax error", :yellow
    elsif failed >= 1
      message "T:#{total} F:#{failed} p:#{pending}", :red
    elsif pending >= 1 
      message "T:#{total} F:#{failed} P:#{pending}", :green
    else
      message "All success", :green
    end
  end
end

\鐃緒申鐃�\鐃緒申鐃緒申臓鐃�: ruby; RSpec; autotest; \鐃緒申鐃�\¹\鐃緒申鐃�

2008鐃緒申鐃緒申鐃緒申08·鐃緒申鐃�11鐃緒申鐃緒申鐃緒申20:20

$\«\Æ\´\ê¡¼¤Ç¤¹$ Perl

perl鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申鐃緒申鐃�prove鐃緒申鐃�¹鐃緒申鐃緒申鐃純™申·

鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�perl鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申²鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申µ鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申sasata299鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃術�緒申Ð鐃緒申鐃緒申鐃術�緒申鐃緒申鐃�(鐃緒申�鐃渋�緒申_鐃緒申鐃�µ`)\鐃緒申鐃�
鐃緒申鐃薯Æ鐃緒申��申鐃緒申鐃�CPAN鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�(make test)鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�prove\³\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申�鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�»鐃淳�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

t/00_compile...........ok
t/01_base..............ok
t/02_test_more.........ok
t/03_test_exception....ok
t/04_prints_ok.........ok
t/05_stderr_ok.........ok
t/06_blocks............ok
t/98_perlcritic........ok
t/pod..................ok

\鐃緒申鐃�\¹\鐃緒申鐃�\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�

perl t/hoge.t

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃縮�渋￥申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申臓鐃�¼«鐃緒申��緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃緒申鐃緒申鐃�¼鐃緒申鐃緒申鐃緒申鐃曙™申鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃殉�緒申鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃術�渋￥申鐃�³鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申

perl -Ilib t/hoge.t

鐃緒申鐃�·鐃緒申鐃�«鐃緒申鐃緒申鐃緒申鐃緒申臓��鐃緒申�鐃峻�緒申鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申»鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�½Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃渋￥申臓鐃�

perl -Ilib t/*

鐃緒申鐃緒申鐃緒申鐃緒申鐃�«½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃巡™申鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹(鐃緒申臓鐃緒申鐃緒申鐃緒申\鐃緒申�鐃緒申)

鐃緒申鐃�½鐃緒申鐃�³鐃緒申鐃緒申鐃緒申prove鐃緒申鐃緒申鐃緒申½Ð鐃緒申鐃緒申鐃俊�緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申Test::Harness鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑ǚ申½鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃緒申鐃緒申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�\³\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃渋￥申CPAN鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申Ð鐃緒申鐃緒申鐃縦�緒申鐃縮�緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�渋￥申

# -v,  --verbose     Print all test lines.
# -l,  --lib         Add 鐃緒申�鐃緒申lib鐃緒申�鐃緒申 to the path for your tests (-Ilib).
# -r,  --recurse     Recursively descend intdirectories.
prove -vlr t

鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃殉�緒申鐃緒申鐃緒申鐃渋￥申t\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申��申²¼鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃�\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃緒申·鐃緒申鐃�«鐃緒申鐃緒申鐃緒申\鐃緒申\鐃緒申鐃緒申鐃緒申¼鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¾鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申½¼鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃渋�曙¡�曙™申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��³鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃術�渋￥申prove++