1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
require "test/unit"
require "yaml/dbm"
class TestYAMLDBM < Test::Unit::TestCase
def setup
@dbm = YAML::DBM.new("test")
end
def teardown
@dbm.close
File.unlink("test.db")
end
def test_fetch
@dbm["key"] = "value"
assert_equal "value", @dbm["key"]
assert_equal "value", @dbm.fetch("key")
end
def test_delete
@dbm["key"] = "value"
assert_equal "value", @dbm.delete("key")
assert_nil @dbm["key"]
end
def test_each_value
@dbm["key1"] = "value1"
@dbm["key2"] = "value2"
@dbm.each_value do |value|
assert_match(/value[12]/, value)
end
end
def test_values
@dbm["key1"] = "value1"
@dbm["key2"] = "value2"
@dbm.values.each do |value|
assert_match(/value[12]/, value)
end
end
def test_shift
@dbm["key"] = "value"
assert_equal ["key", "value"], @dbm.shift
end
end if defined?(YAML::DBM)
|
