transactd 1.2.0 → 2.0.0

data/source/bzs/test/tdclphp/transactd_pool_Test.php

@@ -0,0 +1,120 @@
+<?php
+/* ================================================================
+   Copyright (C) 2014 BizStation Corp All rights reserved.
+
+   This program is free software; you can redistribute it and/or
+   modify it under the terms of the GNU General Public License
+   as published by the Free Software Foundation; either version 2
+   of the License, or (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software 
+   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  
+   02111-1307, USA.
+================================================================ */
+mb_internal_encoding('UTF-8');
+
+require_once("transactd.php");
+use BizStation\Transactd as Bz;
+
+define("PROTOCOL", 'tdap');
+define("HOSTNAME", 'localhost');
+define("DBNAME", 'querytest');
+define("SCHEMANAME", 'test');
+define("BDFNAME", '?dbfile=' . SCHEMANAME . '.bdf');
+define("URL", PROTOCOL . '://' . HOSTNAME . '/' . DBNAME . BDFNAME);
+define("TABLENAME", 'user');
+
+// multi thread test if `php_pthreads` exists.
+if(class_exists('Thread')){
+    class SimpleWorker extends Thread
+    {
+        public function __construct($name, $url, $sleep=0)
+        {
+            $this->name = $name;
+            $this->url = $url;
+            $this->sleep = $sleep;
+        }
+        public function run()
+        {
+            //echo ('... waiting to get ' . $this->name . " ...\n");
+            $dbm = new Bz\pooledDbManager(new Bz\connectParams($this->url));
+            //echo ('GOT ' . $this->name . ' !  sleep ' . $this->sleep . "sec ...\n");
+            sleep($this->sleep);
+            $dbm->unUse();
+            //echo ('end ' . $this->name . "\n");
+        }
+    }
+}
+
+class transactdPoolTest extends PHPUnit_Framework_TestCase
+{
+    public function testConnectParams()
+    {
+        $cp = new Bz\connectParams(URL);
+        $this->assertEquals($cp->uri(), URL);
+        $cp = new Bz\connectParams(PROTOCOL, HOSTNAME, DBNAME, SCHEMANAME);
+        $this->assertEquals($cp->uri(), URL);
+    }
+    public function testUse()
+    {
+        Bz\pooledDbManager::setMaxConnections(3);
+        $cp = new Bz\connectParams(URL);
+        $this->assertEquals($cp->uri(), URL);
+        $dbm1 = new Bz\pooledDbManager($cp);
+        $dbm2 = new Bz\pooledDbManager($cp);
+        $dbm3 = new Bz\pooledDbManager($cp);
+        $dbm1->unUse();
+        $dbm4 = new Bz\pooledDbManager($cp);
+        $dbm3->unUse();
+        $dbm5 = new Bz\pooledDbManager($cp);
+        Bz\pooledDbManager::setMaxConnections(5);
+        $dbm1 = new Bz\pooledDbManager($cp);
+        $dbm3 = new Bz\pooledDbManager($cp);
+        $dbm1->unUse();
+        $dbm2->unUse();
+        $dbm3->unUse();
+        $dbm4->unUse();
+        $dbm5->unUse();
+    }
+    public function testConnect()
+    {
+        Bz\pooledDbManager::setMaxConnections(3);
+        $cp = new Bz\connectParams(URL);
+        $this->assertEquals($cp->uri(), URL);
+        $dbm = new Bz\pooledDbManager($cp);
+        $atu = new Bz\ActiveTable($dbm, 'user');
+        $q = new Bz\query();
+        $rs = new Bz\RecordSet();
+        $atu->alias('名前', 'name');
+        $q->select('id', 'name', 'group')->where('id', '<=', 15000);
+        $rs = $atu->index(0)->keyValue(1)->read($q);
+        $this->assertEquals($rs->size(), 15000);
+        $this->assertEquals($rs[0]['id'], 1);
+        $this->assertEquals($rs[0][0], 1);
+        $this->assertEquals($rs[0]['name'], '1 user');
+        $this->assertEquals($rs[0][1], '1 user');
+        $this->assertEquals($rs[0][2], 1);
+        $dbm->unUse();
+    }
+    public function testMultiThreads()
+    {
+        if(! class_exists('Thread')){
+            echo(' * class Tread not found! * ');
+            return;
+        }
+        Bz\pooledDbManager::setMaxConnections(5);
+        $t = array();
+        for ($i = 1; $i <= 12; $i++)
+        {
+            $t[] = new SimpleWorker('dbm' . $i, URL, rand(1, 3));
+            $t[$i - 1]->start();
+        }
+        $this->assertEquals(true, true);
+    }
+}

data/source/bzs/test/tdclrb/bench_tdclcpp.rb

@@ -21,8 +21,6 @@
 require 'date'
 require 'transactd'
 
-TYPE_SCHEMA_BDF = 0
-
 USE_NORMAL = 0
 USE_TRANS = 1
 USE_BALKINS = 2
@@ -203,7 +201,7 @@ def createTestDataBase(db, uri)
         puts("createTestDataBase erorr:No.#{db.stat().to_s} #{uri}")
         return false
     end
-    if (db.open(uri, TYPE_SCHEMA_BDF, Transactd::TD_OPEN_NORMAL, '', ''))
+    if (db.open(uri, Transactd::TYPE_SCHEMA_BDF, Transactd::TD_OPEN_NORMAL, '', ''))
         dbdef = db.dbDef()
         td = Transactd::Tabledef.new()
         td.setTableName('user')
@@ -286,8 +284,8 @@ def main(argv)
     exeType = Integer(argv[3]) # -1
     insertBeforeNoDelete = ((argv.length > 4) && (Integer(argv[4]) != 0))
     
-    db = Transactd::Database.createObject()
-    if (db.open(uri, TYPE_SCHEMA_BDF, Transactd::TD_OPEN_NORMAL, '', '') == false)
+    db = Transactd::Database.new()
+    if (db.open(uri, Transactd::TYPE_SCHEMA_BDF, Transactd::TD_OPEN_NORMAL, '', '') == false)
         if (!createTestDataBase(db, uri))
             db.close()
             return
@@ -296,7 +294,7 @@ def main(argv)
     end
     printHeader(uri, count)
     
-    if (!db.open(uri, TYPE_SCHEMA_BDF, Transactd::TD_OPEN_NORMAL, '', ''))
+    if (!db.open(uri, Transactd::TYPE_SCHEMA_BDF, Transactd::TD_OPEN_NORMAL, '', ''))
         puts("open table erorr No:#{db.stat().to_s}")
     else
         tb = openTable(db, 'user', Transactd::TD_OPEN_NORMAL)

data/source/bzs/test/tdclrb/prepare.rb

@@ -23,7 +23,6 @@ require 'transactd'
 FN_ID = 0
 FN_NAME = 1
 
-TYPE_SCHEMA_BDF = 0
 PARALLEL_TRN = 1000
 LOCK_SINGLE_NOWAIT = 200
 TRANS_BIAS = PARALLEL_TRN + LOCK_SINGLE_NOWAIT
@@ -31,31 +30,35 @@ TRANS_BIAS = PARALLEL_TRN + LOCK_SINGLE_NOWAIT
 def createTable(db)
     dbdef = db.dbDef()
     td = Transactd::Tabledef.new()
+    # Set table schema codepage to UTF-8
+    #       - codepage for field NAME and tableNAME
+    td.schemaCodePage = Transactd::CP_UTF8
     td.setTableName('user')
     td.setFileName('user.dat')
+    # Set table default charaset index
+    #        - default charset for field VALUE
+    td.charsetIndex = Transactd::charsetIndex(Transactd::CP_UTF8)
     td.id = 1
     td.pageSize = 2048
     dbdef.insertTable(td)
-    td = dbdef.tableDefs(td.id)
-    
-    fd = dbdef.insertField(td.id, 0)
+    # id
+    fd = dbdef.insertField(td.id, FN_ID)
     fd.setName('id')
     fd.type = Transactd::Ft_integer
     fd.len = 4
     dbdef.updateTableDef(1)
-    
-    fd = dbdef.insertField(td.id, 1)
+    # name
+    fd = dbdef.insertField(td.id, FN_NAME)
     fd.setName('name')
     fd.type = Transactd::Ft_myvarchar
     fd.len = 100
     dbdef.updateTableDef(td.id)
-    
+    # key
     kd = dbdef.insertKey(td.id, 0)
     kd.segment(0).fieldNum = 0
     kd.segment(0).flags.bit8 = 1 # extend key type
     kd.segment(0).flags.bit1 = 1 # changeable
     kd.segmentCount = 1
-    
     td.primaryKeyNum = 0
     dbdef.updateTableDef(td.id)
 end
@@ -107,9 +110,9 @@ def main(argv)
         end
     end
     
-    db = Transactd::Database.createObject()
+    db = Transactd::Database.new()
     
-    if !db.open(uri, TYPE_SCHEMA_BDF, Transactd::TD_OPEN_NORMAL, '', '')
+    if !db.open(uri, Transactd::TYPE_SCHEMA_BDF, Transactd::TD_OPEN_NORMAL, '', '')
         db.create(uri)
         if db.stat() != 0
             puts("create database error No #{db.stat()}")
@@ -118,7 +121,7 @@ def main(argv)
         end
     end
     
-    if !db.open(uri, TYPE_SCHEMA_BDF, Transactd::TD_OPEN_NORMAL, '', '')
+    if !db.open(uri, Transactd::TYPE_SCHEMA_BDF, Transactd::TD_OPEN_NORMAL, '', '')
         puts("open table erorr No #{db.stat().to_s}")
         db.close()
         return
@@ -158,8 +161,8 @@ def main(argv)
     
     if functionNumber == 2
         db.beginTrn(TRANS_BIAS)
-        tb.clearBuffer()
         for i in rangeStart..rangeEnd do
+            tb.clearBuffer()
             tb.setFV(FN_ID, i)
             tb.seek()
             if (tb.stat() == 0)

data/source/bzs/test/tdclrb/transactd_blob_spec.rb

@@ -38,8 +38,6 @@ FDI_USER_ID = 1
 FDI_BODY = 2
 FDI_IMAGE = 3
 
-TYPE_SCHEMA_BDF = 0
-
 def dropDatabase(db)
   db.open(URL)
   expect(db.stat()).to eq 0
@@ -57,7 +55,7 @@ def createDatabase(db)
 end
 
 def openDatabase(db)
-  db.open(URL, TYPE_SCHEMA_BDF, Transactd::TD_OPEN_NORMAL)
+  db.open(URL, Transactd::TYPE_SCHEMA_BDF, Transactd::TD_OPEN_NORMAL)
   expect(db.stat()).to eq 0
 end
 
@@ -128,26 +126,20 @@ def getTestBinary()
 end
 
 describe Transactd, 'blob' do
-  before :each do
-    @db = Transactd::Database.createObject()
-  end
-  after :each do
-    @db.close()
-    @db = nil
-  end
-  
   it 'create' do
-    createDatabase(@db)
-    openDatabase(@db)
-    createTable(@db)
-    tb = openTable(@db)
-    tb.close()
+    db = Transactd::Database.new()
+    createDatabase(db)
+    openDatabase(db)
+    createTable(db)
+    tb = openTable(db)
+    db.close()
   end
   
   it 'insert' do
+    db = Transactd::Database.new()
     image = getTestBinary()
-    openDatabase(@db)
-    tb = openTable(@db)
+    openDatabase(db)
+    tb = openTable(db)
     expect(tb).not_to be nil
     # 1
     tb.clearBuffer()
@@ -172,13 +164,14 @@ describe Transactd, 'blob' do
     tb.setFV(FDI_IMAGE, str, str.bytesize)
     tb.insert()
     expect(tb.stat()).to eq 0
-    tb.close()
+    db.close()
   end
   
   it 'seek' do
+    db = Transactd::Database.new()
     image = getTestBinary()
-    openDatabase(@db)
-    tb = openTable(@db)
+    openDatabase(db)
+    tb = openTable(db)
     expect(tb).not_to be nil
     # 1
     tb.clearBuffer()
@@ -210,13 +203,14 @@ describe Transactd, 'blob' do
     expect(tb.getFVint(FDI_USER_ID)).to eq 1
     expect(tb.getFVstr(FDI_BODY)).to eq "2\ntest\nテスト\n\nあいうえおあいうえお"
     expect(tb.getFVbin(FDI_IMAGE).force_encoding('UTF-8')).to eq "2\ntest\nテスト\n\nあいうえおあいうえお"
-    tb.close()
+    db.close()
   end
   
   it 'find' do
+    db = Transactd::Database.new()
     image = getTestBinary()
-    openDatabase(@db)
-    tb = openTable(@db)
+    openDatabase(db)
+    tb = openTable(db)
     expect(tb).not_to be nil
     # 1
     tb.setKeyNum(0)
@@ -243,13 +237,14 @@ describe Transactd, 'blob' do
     # 2... but changing seek-direction is not allowed
     tb.findPrev(true)
     expect(tb.stat()).to eq Transactd::STATUS_PROGRAM_ERROR
-    tb.close()
+    db.close()
   end
   
   it 'update' do
+    db = Transactd::Database.new()
     image = getTestBinary()
-    openDatabase(@db)
-    tb = openTable(@db)
+    openDatabase(db)
+    tb = openTable(db)
     expect(tb).not_to be nil
     # select 1
     tb.clearBuffer()
@@ -289,13 +284,14 @@ describe Transactd, 'blob' do
     expect(tb.getFVint(FDI_USER_ID)).to eq 1
     expect(tb.getFVstr(FDI_BODY)).to eq "2\nテスト\ntest\n\nABCDEFG"
     expect(tb.getFVbin(FDI_IMAGE).force_encoding('UTF-8')).to eq "2\ntest\nテスト\n\nあいうえおあいうえお"
-    tb.close()
+    db.close()
   end
   
   it 'delete' do
+    db = Transactd::Database.new()
     image = getTestBinary()
-    openDatabase(@db)
-    tb = openTable(@db)
+    openDatabase(db)
+    tb = openTable(db)
     expect(tb).not_to be nil
     # delete 2
     tb.clearBuffer()
@@ -323,10 +319,11 @@ describe Transactd, 'blob' do
     # eof
     tb.seekNext()
     expect(tb.stat()).to eq Transactd::STATUS_EOF
-    tb.close()
+    db.close()
   end
   
   it 'drop' do
-    dropDatabase(@db)
+    db = Transactd::Database.new()
+    dropDatabase(db)
   end
 end

data/source/bzs/test/tdclrb/transactd_datetime_spec.rb

@@ -32,14 +32,11 @@ describe Transactd, 'datetime' do
     nowdate.i = i_nowdate               # get today as BtrDate
     s_nowdate  = Transactd::btrdtoa(nowdate)
     s_nowdate2 = Transactd::btrdtoa(nowdate, true)
-    cs_nowdate = Transactd::c_str(nowdate)
     #p nowdate
     #p s_nowdate + ' ' + s_nowdate.encoding.to_s
     #p s_nowdate2 + ' ' + s_nowdate2.encoding.to_s
-    #p cs_nowdate + ' ' + cs_nowdate.encoding.to_s
     expect(s_i_nowdate).to eq s_nowdate
     expect(s_i_nowdate2).to eq s_nowdate2
-    expect(cs_nowdate).to eq s_nowdate
   end
   
   it 'get BtrTime' do
@@ -53,14 +50,11 @@ describe Transactd, 'datetime' do
     nowtime.i = i_nowtime                 # get now time as BtrTime
     s_nowtime  = Transactd::btrttoa(nowtime)
     s_nowtime2 = Transactd::btrttoa(nowtime, true)
-    cs_nowtime = Transactd::c_str(nowtime)
     #p nowtime
     #p s_nowtime + ' ' + s_nowtime.encoding.to_s
     #p s_nowtime2 + ' ' + s_nowtime2.encoding.to_s
-    #p cs_nowtime + ' ' + cs_nowtime.encoding.to_s
     expect(s_i_nowtime).to eq s_nowtime
     expect(s_i_nowtime2).to eq s_nowtime2
-    expect(cs_nowtime).to eq s_nowtime
   end
   
   it 'get BtrDateTime' do
@@ -88,29 +82,6 @@ describe Transactd, 'datetime' do
     #p s_datetime_d + ' ' + s_datetime_t
   end
   
-  it 'get Bdate' do
-    date = Transactd::atobtrd('2012-08-22')
-    bdate  = Transactd::Bdate.new(date.i)
-    bdate2 = Transactd::Bdate.new(Transactd::btrdtoa(date))
-    #p bdate,bdate2
-    btrdate  = bdate.btr_date()
-    btrdate2 = bdate2.btr_date()
-    #p btrdate, btrdate2
-    s_bdate  = bdate.c_str()
-    s_bdate2 = bdate2.c_str()
-    expect(s_bdate).to eq s_bdate2
-    #p s_bdate + ' ' + s_bdate.encoding.to_s
-    #p s_bdate2 + ' ' + s_bdate2.encoding.to_s
-    expect(bdate.year()).to eq 2012
-    expect(bdate.month()).to eq 8
-    expect(bdate.date()).to eq 22
-    expect(bdate.year_str()).to eq '2012'
-    expect(bdate.month_str()).to eq '8'
-    expect(bdate.date_str()).to eq '22'
-    #p bdate.year(), bdate.month(), bdate.date()
-    #p bdate.year_str(), bdate.month_str(), bdate.date_str()
-  end
-  
   it 'get BtrTimeStamp from string' do
     date = Transactd::atobtrd('2012-08-22')
     time = Transactd::atobtrt('15:37:00')

data/source/bzs/test/tdclrb/transactd_kanjischema_spec.rb

@@ -41,8 +41,6 @@ FDI_NAME = 1
 FDN_NAME = '名前'.encode('UTF-8')
 
 
-TYPE_SCHEMA_BDF = 0
-
 def testDropDatabase(db, url)
   db.open(url)
   expect(db.stat()).to eq 0
@@ -50,17 +48,19 @@ def testDropDatabase(db, url)
   expect(db.stat()).to eq 0
 end
 
-def testCreateDatabase(db, url)
+def testCreateDatabase(url)
+  db = Transactd::Database.new()
   db.create(url)
   if db.stat() == Transactd::STATUS_TABLE_EXISTS_ERROR
     testDropDatabase(db, url)
     db.create(url)
   end
   expect(db.stat()).to eq 0
+  db.close()
 end
 
 def testOpenDatabase(db, url)
-  db.open(url, TYPE_SCHEMA_BDF, Transactd::TD_OPEN_NORMAL)
+  db.open(url, Transactd::TYPE_SCHEMA_BDF, Transactd::TD_OPEN_NORMAL)
   expect(db.stat()).to eq 0
 end
 
@@ -162,7 +162,8 @@ def testFind(db, tablename)
   tb.close()
 end
 
-def testWhole(db, tableid, tablename, url)
+def testWhole(tableid, tablename, url)
+  db = Transactd::Database.new()
   tablename = tablename.encode('UTF-8') # table name must be UTF-8
   testOpenDatabase(db, url)
   testCreateTable(db, tableid, tablename)
@@ -170,39 +171,37 @@ def testWhole(db, tableid, tablename, url)
   testInsert(db, tablename)
   testGetEqual(db, tablename)
   testFind(db, tablename)
+  db.close()
 end
 
 
 describe Transactd do
-  before :each do
-    @db = Transactd::Database.createObject()
-  end
-  after :each do
-    @db.close()
-    @db = nil
-  end
-  
   it 'create database' do
-    testCreateDatabase(@db, URL.encode('UTF-8'))
+    testCreateDatabase(URL.encode('UTF-8'))
   end
   
   it 'table which has kanji-named field' do
-    testWhole(@db, 1, 'kanji-field', URL.encode('UTF-8'))
+    testWhole(1, 'kanji-field', URL.encode('UTF-8'))
   end
   
   it 'kanji-named table' do
-    testWhole(@db, 2, '漢字テーブル', URL)
+    testWhole(2, '漢字テーブル', URL)
   end
   
   it 'create kanji-named database' do
-    testCreateDatabase(@db, URL_KANJI.encode('UTF-8')) # URL must be UTF-8
+    testCreateDatabase(URL_KANJI.encode('UTF-8')) # URL must be UTF-8
   end
  
   it 'table which has kanji-named field' do
-    testWhole(@db, 1, 'kanji-field', URL_KANJI.encode('UTF-8'))
+    testWhole(1, 'kanji-field', URL_KANJI.encode('UTF-8'))
   end
  
   it 'kanji-named table' do
-    testWhole(@db, 2, '漢字テーブル', URL_KANJI.encode('UTF-8'))
+    testWhole(2, '漢字テーブル', URL_KANJI.encode('UTF-8'))
+  end
+  
+  it 'drop database' do
+    db = Transactd::Database.new()
+    testDropDatabase(db, URL_KANJI.encode('UTF-8'))
   end
 end

data/source/bzs/test/tdclrb/transactd_pool_spec.rb

@@ -0,0 +1,107 @@
+# coding : utf-8
+=begin ============================================================
+   Copyright (C) 2014 BizStation Corp All rights reserved.
+
+   This program is free software; you can redistribute it and/or
+   modify it under the terms of the GNU General Public License
+   as published by the Free Software Foundation; either version 2
+   of the License, or (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software 
+   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  
+   02111-1307, USA.
+===================================================================
+=end
+require 'transactd'
+require 'thwait'
+
+def getHost()
+  hostname = '127.0.0.1/'
+  if (ENV['TRANSACTD_RSPEC_HOST'] != nil && ENV['TRANSACTD_RSPEC_HOST'] != '')
+    hostname = ENV['TRANSACTD_RSPEC_HOST']
+  end
+  hostname = hostname + '/' unless (hostname =~ /\/$/)
+  return hostname
+end
+
+PROTOCOL = 'tdap'
+HOSTNAME = getHost().sub(/\/$/, '')
+DBNAME = 'querytest'
+SCHEMANAME = 'test'
+BDFNAME = '?dbfile=' + SCHEMANAME + '.bdf'
+URL = PROTOCOL + '://' + HOSTNAME + '/' + DBNAME + BDFNAME
+TABLENAME = 'user'
+
+describe Transactd, 'pool' do
+  it 'create ConnectParams' do
+    cp = Transactd::ConnectParams.new(URL)
+    expect(cp.uri()).to eq URL
+    cp = Transactd::ConnectParams.new(PROTOCOL, HOSTNAME, DBNAME, SCHEMANAME)
+    expect(cp.uri()).to eq URL
+  end
+  
+  it 'use connections' do
+    Transactd::PooledDbManager::setMaxConnections(3)
+    cp = Transactd::ConnectParams.new(URL)
+    expect(cp.uri()).to eq URL
+    dbm1 = Transactd::PooledDbManager.new(cp)
+    dbm2 = Transactd::PooledDbManager.new(cp)
+    dbm3 = Transactd::PooledDbManager.new(cp)
+    dbm1.unUse()
+    dbm4 = Transactd::PooledDbManager.new(cp)
+    dbm3.unUse()
+    dbm5 = Transactd::PooledDbManager.new(cp)
+    Transactd::PooledDbManager::setMaxConnections(5)
+    dbm1 = Transactd::PooledDbManager.new(cp)
+    dbm3 = Transactd::PooledDbManager.new(cp)
+    dbm1.unUse()
+    dbm2.unUse()
+    dbm3.unUse()
+    dbm4.unUse()
+    dbm5.unUse()
+  end
+  
+  it 'connect to table' do
+    Transactd::PooledDbManager::setMaxConnections(3)
+    cp = Transactd::ConnectParams.new(URL)
+    expect(cp.uri()).to eq URL
+    dbm = Transactd::PooledDbManager.new(cp)
+    atu = Transactd::ActiveTable.new(dbm, 'user')
+    q = Transactd::Query.new()
+    atu.alias('名前', 'name')
+    q.select('id', 'name', 'group').where('id', '<=', '15000')
+    rs = atu.index(0).keyValue(1).read(q)
+    expect(rs.size()).to eq 15000
+    expect(rs[0]['id']).to eq 1
+    expect(rs[0][0]).to eq 1
+    expect(rs[0]['name']).to eq '1 user'
+    expect(rs[0][1]).to eq '1 user'
+    expect(rs[0][2]).to eq 1
+    atu.release()
+    dbm.unUse()
+  end
+  
+  it 'can be used in MultiThreads' do
+    Transactd::PooledDbManager::setMaxConnections(5)
+    threads = [];
+    for i in 1..12 do
+      threads.push(Thread.new(i) { |i|
+        #puts('... waiting to get dbm' + i.to_s + ' ...')
+        Thread.pass
+        dbm = Transactd::PooledDbManager.new(Transactd::ConnectParams.new(URL))
+        #puts('GOT dbm' + i.to_s + ' !')
+        sleep(rand(3) + 1)
+        #puts('end dbm' + i.to_s)
+        dbm.unUse()
+      })
+    end
+    tw = ThreadsWait.new(*threads)
+    tw.all_waits()
+  end
+end