2003-09-04 12:18:59 -04:00
|
|
|
require 'test/unit'
|
2009-07-13 11:47:20 -04:00
|
|
|
require 'envutil.rb'
|
2003-09-04 12:18:59 -04:00
|
|
|
|
|
|
|
class TestCase < Test::Unit::TestCase
|
|
|
|
def test_case
|
|
|
|
case 5
|
|
|
|
when 1, 2, 3, 4, 6, 7, 8
|
|
|
|
assert(false)
|
|
|
|
when 5
|
|
|
|
assert(true)
|
|
|
|
end
|
2003-09-05 11:15:43 -04:00
|
|
|
|
2003-09-04 12:18:59 -04:00
|
|
|
case 5
|
|
|
|
when 5
|
|
|
|
assert(true)
|
|
|
|
when 1..10
|
|
|
|
assert(false)
|
|
|
|
end
|
2003-09-05 11:15:43 -04:00
|
|
|
|
2003-09-04 12:18:59 -04:00
|
|
|
case 5
|
|
|
|
when 1..10
|
|
|
|
assert(true)
|
|
|
|
else
|
|
|
|
assert(false)
|
|
|
|
end
|
2003-09-05 11:15:43 -04:00
|
|
|
|
2003-09-04 12:18:59 -04:00
|
|
|
case 5
|
|
|
|
when 5
|
|
|
|
assert(true)
|
|
|
|
else
|
|
|
|
assert(false)
|
|
|
|
end
|
2003-09-05 11:15:43 -04:00
|
|
|
|
2003-09-04 12:18:59 -04:00
|
|
|
case "foobar"
|
|
|
|
when /^f.*r$/
|
|
|
|
assert(true)
|
|
|
|
else
|
|
|
|
assert(false)
|
|
|
|
end
|
2003-10-30 04:36:41 -05:00
|
|
|
|
|
|
|
case
|
|
|
|
when true
|
|
|
|
assert(true)
|
|
|
|
when false, nil
|
|
|
|
assert(false)
|
|
|
|
else
|
|
|
|
assert(false)
|
|
|
|
end
|
2003-09-04 12:18:59 -04:00
|
|
|
end
|
2009-07-13 11:47:20 -04:00
|
|
|
|
|
|
|
def test_deoptimization
|
|
|
|
assert_in_out_err(['-e', <<-EOS], '', %w[42], [])
|
|
|
|
class Symbol; def ===(o); p 42; true; end; end; case :foo; when :foo; end
|
|
|
|
EOS
|
|
|
|
|
|
|
|
assert_in_out_err(['-e', <<-EOS], '', %w[42], [])
|
|
|
|
class Fixnum; def ===(o); p 42; true; end; end; case 1; when 1; end
|
|
|
|
EOS
|
|
|
|
end
|
2003-09-04 12:18:59 -04:00
|
|
|
end
|