鐃緒申鐃緒申蓮鐃緒申鐃緒申痢鐃銃縁申鐃緒申鐃緒申鐃緒申鼻廚鐃緒申鐃緒申鐃緒申

鐃緒申誰鐃緒申鐃書いてわ申同鐃緒申鐃緒申鐃緒申鐃宿」わ申鐃緒申鐃緒申覆鐃緒申箸覆里鐃� - 鐃述わ申鐃巡す鐃緒申 blog
鐃叔も、鐃緒申誰鐃緒申鐃書いてわ申同鐃緒申鐃緒申鐃緒申鐃宿」にわ申鐃緒申辰討里蓮鐃緒申鐃緒申發緒申鐃縮居申鐃緒申鐃緒申隼廚鐃緒申鐃緒申鐃緒申諭鐃緒申鐃緒申鐃緒申鐃獣て￥申鐃緒ざ鐃緒ざ鐃宿ワ申鐃緒申鐃緒申箸鬚燭鐃緒申鐃緒申鐃書かわ申鐃銃も、鐃潤た鐃潤た鐃淑ワ申鐃緒申鐃宿わ申颪�わ申弔呂鐃緒申董鐃緒申鐃緒申鐃銃ワ申鐃夙わ申鐃緒申箸鐃緒申法鐃緒申鐃緒申鐃緒申燃鐃緒申鐃遵が鐃緒申鐃塾￥申鐃緒申鐃緒申鐃緒申鐃駿の居申鐃熟以常申離廛鐃緒申鐃緒申鐃緒申鐃緒申箸覆蕁�鐃宿わ申鐃叔もそ鐃緒申粉鐃緒申鐃緒申鐃緒申鐃淑わ申鐃緒申鐃夙思わ申鐃殉わ申鐃緒申

同鐃緒申鐃瞬緒申鐃緒申鐃竣をしなわ申鐃緒申个覆鐃淑わ申鐃塾わ申?

鐃緒申未鐃緒申鐃銃縁申鐃緒申廚覆蕕わ申鐃緒申里鐃�?

鐃盾し鐃緒申圓鐃緒申箸鐃緒申鐃緒申蕁�鐃渋わ申

鐃緒申鐃竣なのは￥申鐃緒申誰鐃叔わ申鐃緒申謄淵鵐垢任鐃緒申襯鰹申鐃緒申鼻廚砲鐃緒申襪鰹申函鐃緒申鐃緒申里鐃緒申鐃祝￥申鐃緒申鐃緒申鐃叔ワ申鐃藷グ居申鐃緒申蓮鐃緒申鐃緒申鐃緒申鐃夙件申鐃銃みわ申覆納鐃暑、鐃緒申鐃緒申幣鐃熟￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申必鐃竣はなわ申鐃緒申

鐃緒申鐃緒申必鐃竣わ申鐃緒申泙鐃緒申鵝�なわ申鐃淑ら、鐃叔逸申鐃緒申鐃緒申鐃宿は緒申直鐃緒申鐃出わ申鐃緒申鐃緒申任鐃緒申鐃緒申蕁�

鐃緒申鐃緒申鐃緒申鐃緒申鐃瞬わ申鐃塾ワ申鐃緒申鐃宿わ申鐃緒申鐃薯すべわ申鐃緒申鐃竣わ申鐃緒か鐃獣てわ申鐃淑わ申鐃夙￥申鐃緒申鐃夙わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣てわ申無鐃熟な常申腓�鐃循とわ申鼻鐃緒申鐃緒申鐃淑ワ申鐃緒申鐃緒申鐃叔わ申鐃初そ鐃緒申鐃叔￥申鐃殉わ申鐃銃やス鐃術ワ申鐃獣テワ申鐃緒申鐃緒申鐃宿とわ申覆鐃出￥申

鐃緒申鐃塾逸申味鐃叔￥申鐃渋はワ申鐃緒申鐃叔ワ申鐃藷グ居申鐃緒申鐃所、鐃緒申鐃銃ナブワ申淵鐃緒申鐃緒申匹鐃緒申鐃緒申鐃緒申立鐃縦のわ申鐃緒申鐃銃ワ申鐃夙￥申鐃竣はテワ申鐃夙わ申僖鐃緒申鐃緒申討鐃緒申泙鐃緒申个匹鐃緒申鐃緒申鐃緒申匹鐃緒申討盥緒申鐃淑わ申鐃緒申鐃夙わ申鐃緒申鐃塾わ申TDD = Test Driven Development =鐃銃ワ申鐃夙駈申動鐃緒申発鐃塾考わ申鐃緒申鐃塾ベ￥申鐃緒申鐃夙なってわ申鐃殉わ申鐃緒申

鐃塾でわ申鐃緒申鐃緒申TDD鐃緒申Perl鐃緒申鐃緒申鐃緒申討鐃緒申泙鐃緒申鐃緒申鐃准わ申鐃銃まわ申鐃藷。わ申鐃曙が鐃淑わ申鐃緒申鐃夙わ申鐃緒申鐃出￥申鐃銃ワ申鐃夙わ申鐃緒申鐃殉わ申砲鐃緒申鐃緒申鐃�--鐃緒申鐃夙思わ申鐃銃わ申鐃暑か鐃緒申任鐃緒申鐃緒申鐃緒申鐃薯見わ申弌鐃緒申鐃緒申櫃鐃緒申隼廚鐃緒申鐃塾わ申鐃緒申鐃緒申鐃緒申鐃夙思わ申鐃殉わ申鐃緒申

鐃緒申TDDer鐃緒申鐃緒申鐃緒申鐃瞬ワ申鐃竣始わ申泙鐃緒申鐃� - t-wada鐃緒申鐃緒申鐃緒申
public void testDefaultStackSizeShouldBeZero throws Exception {
  assertEquals("鐃緒申鐃緒申直鐃緒申離鐃緒申鐃緒申奪鐃緒申離鐃緒申鐃緒申鐃緒申鐃�0鐃叔わ申鐃暑こ鐃緒申", 0, stack.size());
}
Test::Unit - Ruby鐃緒申侫鐃緒申鐃藷スマニュア鐃緒申 
require 'test/unit'
require 'foo'

class TC_Foo < Test::Unit::TestCase
  def setup
    @obj = Foo.new
  end

  # def teardown
  # end

  def test_foo
    assert_equal("foo", @obj.foo)
  end
  def test_bar
    assert_equal("bar", @obj.bar)
  end
end

鐃緒申鐃緒申鐃緒申鐃緒申鐃銃ワ申鐃夙逸申弔里鐃緒申鐃祝￥申鐃舜随申鐃緒申鐃緒申鐃塾メソ鐃獣ド削申鐃緒申鐃塾って常申覆妨鐃緒申鐃曙た鐃初、鐃緒申鐃緒申辰討鐃緒申鐃緒申鐃緒申鐃塾ワ申鐃獣パ￥申鐃緒申鐃淑わ申鐃緒申鐃緒申弔鐃緒申鐃緒申鐃緒申覆鐃殉わ申鐃処。鐃緒申麓尊櫃砲鐃緒申鐃緒申鐃緒申鐃緒申拔鐃緒申泙任呂覆鐃緒申里如鐃�assert_unko()鐃緒申鐃緒申鐃緒申鐃緒申鐃�mail鐃緒申鐃緒申鐃緒申弔鐃緒申鐃緒申鐃緒申戮砲箸鐃夙わ申鐃夙わ申廚鐃緒申泙鐃緒申鐃緒申鐃�


Perl Testing
Ian Langworth / Chromatic

鐃緒申鐃緒申覆鐃緒申覆鐃緒申砲鐃緒申鐃緒申鐃淑のわ申鐃緒申Test Anything Protocol鐃緒申略鐃緒申鐃緒申TAP鐃叔わ申鐃緒申略鐃塾のわ申鐃夙わ申鐃准やか鐃叔わ申鐃緒申鐃緒申鐃緒申Perl鐃叔使わ申鐃銃わ申鐃殉わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃殉わ申縫鐃緒申鐃竣ワ申覆里埜鐃緒申鐃緒申鐃巡い鐃殉わ申鐃藷。なにわ申鐃緒申鐃銃ワ申鐃夙プワ申鐃緒申鐃緒申鐃熟￥申標鐃緒申鐃緒申呂砲鐃緒申鐃緒申鐃緒申鐃祝緒申鐃熟わ申鐃緒申鐃緒申鐃緒申任鐃緒申鐃緒申里任鐃緒申鐃緒申蕁�

Test Anything Protocol - Wikipedia, the free encyclopedia 
1..N
ok 1 Description # Directive
# Diagnostic
....
ok 47 Description
ok 48 Description
more tests....

鐃渋際わ申ruby鐃緒申FizzBuzz鐃緒申謄鐃緒申箸鐃緒申討澆泙鐃緒申腓�鐃緒申

% ruby fizzbuzz.t
1..17
ok # 1
ok # 2
ok # 3
ok # 4
ok # 5
ok # 6
ok # 7
ok # 8
ok # 9
ok # 10
ok # 11
ok # 12
ok # 13
ok # 14
ok # 15
# got:      
# expected: FizzBuzz
not ok # 16
# got:      
# expected: 16

鐃緒申鐃緒申任鐃緒申鐃緒申鐃緒申呂錣�鐃緒申泙鐃緒申鐃緒申鐃�

% ruby fizzbuzz.t | grep ^not
not ok # 0
not ok # 16

鐃緒申鐃緒申鐃緒申鐃夙�鐃緒申鐃叔わ申鐃緒申箸鐃緒申鐃緒申鐃緒申發逸申鐃緒申任鐃緒申鐃緒申鐃�perl鐃緒申鐃緒申鐃藷スト￥申鐃暑さ鐃緒申討鐃緒申鐃出￥申鐃緒申鐃緒申縫謄鐃緒申箸鐃渋行わ申鐃銃わ申鐃緒申鐃竣ワ申鐃緒申鐃緒申燹�prove鐃緒申漏鐃緒申覆鐃緒申弔鐃緒申討鐃緒申泙鐃緒申鐃緒申鐃緒申譟�Perl鐃淑鰹申鐃塾プワ申鐃緒申鐃緒申鐃叔も、TAP鐃祝緒申鬚靴討鐃緒申鐃出テワ申鐃夙わ申鐃銃わ申鐃緒申鐃塾でわ申鐃処。

% prove fizzbuzz.t
fizzbuzz....FAILED tests 16-17                                               
        Failed 2/17 tests, 88.24% okay
Failed Test Stat Wstat Total Fail  List of Failed
-------------------------------------------------------------------------------
fizzbuzz.t                17    2  16-17
Failed 1/1 test scripts. 2/17 subtests failed.
Files=1, Tests=17,  0 wallclock secs ( 0.00 cusr +  0.01 csys =  0.01 CPU)
Failed 1/1 test programs. 2/17 subtests failed.

鐃叔は￥申鐃渋際のテワ申鐃夙プワ申鐃緒申鐃緒申鐃�fizzbuzz.t鐃夙￥申鐃銃ワ申鐃夙プワ申鐃緒申鐃緒申鐃緒申鐃銃逸申鐃緒申襪随申鐃塾プワ申鐃緒申鐃緒申鐃�tap.rb鐃薯見てみまわ申鐃順う鐃緒申 fizzbuzz.t 

#!/usr/local/bin/ruby

require 'tap.rb'
require 'fizzbuzz.rb'

test 17
is fizzbuzz(1),   1,           1
is fizzbuzz(2),   2,           2
is fizzbuzz(3),  'Fizz',       3
is fizzbuzz(4),   4,           4
is fizzbuzz(5),  'Buzz',       5
is fizzbuzz(6),  'Fizz',       6
is fizzbuzz(7),   7,           7
is fizzbuzz(8),   8,           8
is fizzbuzz(9),  'Fizz',       9
is fizzbuzz(10), 'Buzz',      10
is fizzbuzz(11),  11,         11
is fizzbuzz(12),  'Fizz',     12
is fizzbuzz(13),  13,         13
is fizzbuzz(14),  14,         14
is fizzbuzz(15), 'FizzBuzz',  15

is fizzbuzz(0),  'FizzBuzz',   0
is fizzbuzz(16), 16,          16
tap.rb 
def test(ntests=0)
    puts "1..#{ntests}" if ntests > 0
end

def is(got, expected, message=nil)
    print 'not ' if expected != got
    print 'ok'
    print " # #{message}" if message
    print "\n";
    if expected != got
       puts "# got:      #{got}"
       puts "# expected: #{expected}"
    end
end

tap.rb鐃緒申鐃塾わ申FizzBuzz鐃渋みに器申単鐃緒申鐃緒申鐃祝わ申留鐃春わ申鐃緒申鐃緒申鐃緒申鐃緒申

鐃叔￥申(鐃緒ざ鐃夙らし鐃緒申)鐃銃ワ申鐃夙にわ申鐃緒申鐃緒申FizzBuzz鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申討鐃緒申鐃�fizzbuzz.rb鐃薯見てみまわ申鐃順う鐃緒申

def fizzbuzz(n)
    return 1 if n == 1
    return 2 if n == 2
    return 'Fizz' if n == 3
    return 4 if n == 4
    return 'Buzz' if n == 5
    return 'Fizz' if n == 6
    return 7 if n == 7
    return 8 if n == 8
    return 'Fizz' if n == 9
    return 'Buzz' if n == 10
    return 11 if n == 11
    return 'Fizz' if n == 12
    return 13 if n == 13
    return 14 if n == 14
    return 'FizzBuzz' if n == 15
end

鐃緒申鐃緒申覆鐃緒申鐃緒申鐃緒申鐃緒申颪い鐃緒申藝ｏ申戮鐃緒申鐃緒申鐃緒申砲鐃緒申鐃緒申鐃�(ry

鐃夙わ申鐃緒申鐃塾はわ申鐃緒申鐃夙わ申鐃銃￥申鐃緒申鐃緒申鐃�

def fizzbuzz(n)
    fz =   if n % 3 == 0 then 'Fizz' else '' end
    fz +=  if n % 5 == 0 then 'Buzz' else '' end
    if fz == '' then n else fz end
end

鐃夙でも差鐃緒申鐃舜わ申鐃銃醐申鐃殉わ申鐃順う鐃緒申鐃緒申鐃駿はどわ申鐃叔わ申鐃順う鐃緒申?

% prove fizzbuzz.t
fizzbuzz....ok                                                               
All tests successful.
Files=1, Tests=17,  0 wallclock secs ( 0.00 cusr +  0.01 csys =  0.01 CPU)

鐃緒申鐃緒申TAP鐃緒申Wikipedia鐃緒申鐃緒申鐃緒申鐃叔も充分鐃淑のでわ申鐃緒申鐃緒申"Perl Testing"鐃祝はわ申鐃緒申望椶鐃緒申鐃緒申椶辰討鐃緒申泙鐃緒申鐃緒申泙鐃緒申鐃緒申楔鐃緒申任呂覆鐃緒申鐃緒申泙鐃銃�鐃緒申"Perl"鐃夙つわ申鐃銃はわ申鐃緒申里任鐃緒申鐃緒申鐃緒申鐃緒申討鐃淑随申廚如鐃緒申鐃緒申鐃緒申覆發鰹申亮鐃緒申鐃旬とわ申鐃銃わ申3,000鐃淳わ申鐃准ってわ申鐃緒申里如鐃�Perl鐃竣ワ申鐃緒申鐃緒申沺鐃緒申任覆鐃緒申討鐃�TDD鐃緒申鐃緒申鐃緒申鐃夙わ申鐃緒申佑鐃緒申椶鐃緒申未鐃緒申討鐃緒申鐃緒申戮鐃緒申鐃緒申鐃叔わ申鐃緒申

assert鐃祝わ申鐃藷ざりし鐃銃わ申鐃暑あ鐃淑わ申鐃緒申Test鐃熟わ申辰鐃�Simple鐃祝なりう鐃暑し鐃緒申鐃緒申鐃緒申鐃駿わ申鐃淑のでわ申鐃緒申

Dan the TAP Dancer