anchor.diff:      {ok, newvalue} = bdberl:update(Db, mykey, F),
       {ok, newvalue} = bdberl:get(Db, mykey).
   
  +port_should_tune_transaction_timeouts(_Config) ->
  +    %% Test transaction timeouts
  +    {ok, 500000} = bdberl:get_txn_timeout(),
  +    ok = bdberl:set_txn_timeout(250000),
  +    {ok, 250000} = bdberl:get_txn_timeout().
  
positive.code: 
  all() ->
      [open_should_create_database_if_none_exists,
       get_should_fail_when_getting_a_nonexistant_record,
       get_should_return_a_value_when_getting_a_valid_record,
       transaction_should_commit_on_success,
       transaction_should_abort_on_exception,
       transaction_should_abort_on_user_abort,
       update_should_save_value_if_successful].
  
  
  init_per_testcase(_TestCase, Config) ->
  
negative.code: open_should_create_database_if_none_exists(_Config) ->
      true = filelib:is_file("api_test.db").
  
  open_should_allow_opening_multiple_databases(_Config) ->
      %% Open up another db -- should use dbref 1 as that's the first available
      {ok, 1} = bdberl:open("api_test2.db", btree).
  
  close_should_fail_with_invalid_db_handle(_Config) ->
      {error, invalid_db} = bdberl:close(21000).
  
  get_should_fail_when_getting_a_nonexistant_record(Config) ->
      not_found = bdberl:get(?config(db, Config), bad_key).
  
  