kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

* lib/optparse.rb (OptionParser#order, #permute, #parse): allow an

Browse source 
array as argument.

* test/ruby/test_*.rb: moved invariants to left side in
  assert_equal, and use assert_nil, assert_raises and so on.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4516 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nobu 2003-09-05 15:15:43 +00:00
parent 01e3a55648
commit 44785befea
32 changed files with 789 additions and 803 deletions
Download patch file Download diff file Expand all files Collapse all files

86
test/ruby/test_array.rb
View file

@ -4,47 +4,47 @@ $KCODE = 'none'
class TestArray < Test::Unit::TestCase
def test_array
assert_equal([1, 2] + [3, 4], [1, 2, 3, 4])
assert_equal([1, 2] * 2, [1, 2, 1, 2])
assert_equal([1, 2] * ":", "1:2")
assert_equal([1, 2, 3, 4], [1, 2] + [3, 4])
assert_equal([1, 2, 1, 2], [1, 2] * 2)
assert_equal("1:2", [1, 2] * ":")
assert_equal([1, 2].hash, [1, 2].hash)
assert_equal([1,2,3] & [2,3,4], [2,3])
assert_equal([1,2,3] | [2,3,4], [1,2,3,4])
assert_equal([2,3], [1,2,3] & [2,3,4])
assert_equal([1,2,3,4], [1,2,3] | [2,3,4])
assert_equal([1,2,3] - [2,3], [1])
$x = [0, 1, 2, 3, 4, 5]
assert_equal($x[2], 2)
assert_equal($x[1..3], [1, 2, 3])
assert_equal($x[1,3], [1, 2, 3])
assert_equal(2, $x[2])
assert_equal([1, 2, 3], $x[1..3])
assert_equal([1, 2, 3], $x[1,3])
$x[0, 2] = 10
assert($x[0] == 10 && $x[1] == 2)
$x[0, 0] = -1
assert($x[0] == -1 && $x[1] == 10)
$x[-1, 1] = 20
assert($x[-1] == 20 && $x.pop == 20)
end
def test_array_andor
assert_equal(([1,2,3]&[2,4,6]), [2])
assert_equal(([1,2,3]|[2,4,6]), [1,2,3,4,6])
assert_equal([2], ([1,2,3]&[2,4,6]))
assert_equal([1,2,3,4,6], ([1,2,3]|[2,4,6]))
end
def test_compact
$x = [nil, 1, nil, nil, 5, nil, nil]
$x.compact!
assert_equal($x, [1, 5])
assert_equal([1, 5], $x)
end
def test_uniq
$x = [1, 1, 4, 2, 5, 4, 5, 1, 2]
$x.uniq!
assert_equal($x, [1, 4, 2, 5])
assert_equal([1, 4, 2, 5], $x)
# empty?
assert(!$x.empty?)
$x = []
@ -54,50 +54,50 @@ class TestArray < Test::Unit::TestCase
def test_sort
$x = ["it", "came", "to", "pass", "that", "..."]
$x = $x.sort.join(" ")
assert_equal($x, "... came it pass that to")
assert_equal("... came it pass that to", $x)
$x = [2,5,3,1,7]
$x.sort!{|a,b| a<=>b} # sort with condition
assert_equal($x, [1,2,3,5,7])
assert_equal([1,2,3,5,7], $x)
$x.sort!{|a,b| b-a} # reverse sort
assert_equal($x, [7,5,3,2,1])
assert_equal([7,5,3,2,1], $x)
end
def test_split
$x = "The Boassert of Mormon"
assert_equal($x.split(//).reverse!.join, $x.reverse)
assert_equal($x.reverse, $x.split(//).reverse!.join)
assert_equal($x.reverse, $x.reverse!)
assert_equal("1 byte string".split(//).reverse.join(":"), "g:n:i:r:t:s: :e:t:y:b: :1")
assert_equal("g:n:i:r:t:s: :e:t:y:b: :1", "1 byte string".split(//).reverse.join(":"))
$x = "a b c d"
assert_equal($x.split, ['a', 'b', 'c', 'd'])
assert_equal($x.split(' '), ['a', 'b', 'c', 'd'])
assert_equal(['a', 'b', 'c', 'd'], $x.split)
assert_equal(['a', 'b', 'c', 'd'], $x.split(' '))
end
def test_misc
assert(defined? "a".chomp)
assert_equal("abc".scan(/./), ["a", "b", "c"])
assert_equal("1a2b3c".scan(/(\d.)/), [["1a"], ["2b"], ["3c"]])
assert_equal(["a", "b", "c"], "abc".scan(/./))
assert_equal([["1a"], ["2b"], ["3c"]], "1a2b3c".scan(/(\d.)/))
# non-greedy match
assert_equal("a=12;b=22".scan(/(.*?)=(\d*);?/), [["a", "12"], ["b", "22"]])
assert_equal([["a", "12"], ["b", "22"]], "a=12;b=22".scan(/(.*?)=(\d*);?/))
$x = [1]
assert_equal(($x * 5).join(":"), '1:1:1:1:1')
assert_equal(($x * 1).join(":"), '1')
assert_equal(($x * 0).join(":"), '')
assert_equal('1:1:1:1:1', ($x * 5).join(":"))
assert_equal('1', ($x * 1).join(":"))
assert_equal('', ($x * 0).join(":"))
*$x = *(1..7).to_a
assert_equal($x.size, 7)
assert_equal($x, [1, 2, 3, 4, 5, 6, 7])
assert_equal(7, $x.size)
assert_equal([1, 2, 3, 4, 5, 6, 7], $x)
$x = [1,2,3]
$x[1,0] = $x
assert_equal($x, [1,1,2,3,2,3])
assert_equal([1,1,2,3,2,3], $x)
$x = [1,2,3]
$x[-1,0] = $x
assert_equal($x, [1,2,1,2,3,3])
assert_equal([1,2,1,2,3,3], $x)
$x = [1,2,3]
$x.concat($x)
assert_equal($x, [1,2,3,1,2,3])
assert_equal([1,2,3,1,2,3], $x)
end
end