~singpolyma/tokyocabinet-haskell

404867733f1528d689e611269873b2871b94b628 — tom.lpsd 11 years ago e9f3640
fixed bug of `copy' test

Ignore-this: 2f403f9c04ed447698f7bee3d70977cd

darcs-hash:20090509035804-69edc-dc88c0ad5f36156e7f118513d3cb934a43c786ab.gz
4 files changed, 4 insertions(+), 4 deletions(-)

M tests/BDBTest.hs
M tests/FDBTest.hs
M tests/HDBTest.hs
M tests/TCDBTest.hs
M tests/BDBTest.hs => tests/BDBTest.hs +1 -1
@@ 198,7 198,7 @@ test_copy =
                put bdb "foo" "bar"
                copy bdb fnd
                close bdb
                open bdb fns [OREADER]
                open bdb fnd [OREADER]
                get bdb "foo" >>= (Just "bar" @=?)

test_txn =

M tests/FDBTest.hs => tests/FDBTest.hs +1 -1
@@ 155,7 155,7 @@ test_copy =
                put fdb "1" "bar"
                copy fdb fnd
                close fdb
                open fdb fns [OREADER]
                open fdb fnd [OREADER]
                get fdb "1" >>= (Just "bar" @=?)

test_path =

M tests/HDBTest.hs => tests/HDBTest.hs +1 -1
@@ 143,7 143,7 @@ test_copy =
                put hdb "foo" "bar"
                copy hdb fnd
                close hdb
                open hdb fns [OREADER]
                open hdb fnd [OREADER]
                get hdb "foo" >>= (Just "bar" @=?)

test_txn =

M tests/TCDBTest.hs => tests/TCDBTest.hs +1 -1
@@ 170,7 170,7 @@ test_copy tc =
                put tc' "100" "bar"
                copy tc' fnd
                close tc'
                open tc' fns [OREADER]
                open tc' fnd [OREADER]
                get tc' "100" >>= (Just "bar" @=?:)

test_path tc =