From 86e733e45eddd20f5671c0ceaf82bf03490b6973 Mon Sep 17 00:00:00 2001
From: Dave Smith <dsmith@thehive.com>
Date: Tue, 9 Dec 2008 13:19:31 -0700
Subject: [PATCH] Updated test for new API

---
 test/port_SUITE.erl | 23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

diff --git a/test/port_SUITE.erl b/test/port_SUITE.erl
index fd8564f..6f2ce30 100644
--- a/test/port_SUITE.erl
+++ b/test/port_SUITE.erl
@@ -9,7 +9,8 @@
 -compile(export_all).
 
 all() ->
-    [test_db].
+%    [test_db].
+    [test_put].
 
 init_per_testcase(TestCase, Config) ->
     Config.
@@ -46,3 +47,23 @@ test_db(_Config) ->
     true = port_close(P2).
     
     
+test_put(_Config) ->
+    {ok, P} = bdberl_port:new(),
+    {ok, 0} = bdberl_port:open_database(P, "test1", hash),
+
+    ok = bdberl_port:txn_begin(P),
+
+    ok = bdberl_port:put(P, 0, akey, avalue),
+
+    ok = bdberl_port:txn_commit(P),
+
+    ok = bdberl_port:txn_begin(P),
+    
+    {ok, avalue} = bdberl_port:get(P, 0, akey),
+    
+    ok = bdberl_port:txn_commit(P).
+
+
+
+            
+