transactd 1.0.1

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

@@ -0,0 +1,172 @@
+# coding : utf-8
+=begin ============================================================
+   Copyright (C) 2013 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'
+
+describe Transactd, 'datetime' do
+  it 'get BtrDate' do
+    i_nowdate = Transactd::getNowDate() # get today as integer
+    s_i_nowdate  = Transactd::btrdtoa(i_nowdate)
+    s_i_nowdate2 = Transactd::btrdtoa(i_nowdate, true)
+    #p i_nowdate
+    #p s_i_nowdate + ' ' + s_i_nowdate.encoding.to_s
+    #p s_i_nowdate2 + ' ' + s_i_nowdate2.encoding.to_s
+    nowdate = Transactd::BtrDate.new()
+    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
+    i_nowtime = Transactd::getNowTime()   # get now time as integer
+    s_i_nowtime  = Transactd::btrttoa(i_nowtime)
+    s_i_nowtime2 = Transactd::btrttoa(i_nowtime, true)
+    #p i_nowtime
+    #p s_i_nowtime + ' ' + s_i_nowtime.encoding.to_s
+    #p s_i_nowtime2 + ' ' + s_i_nowtime2.encoding.to_s
+    nowtime = Transactd::BtrTime.new()
+    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
+    date = Transactd::atobtrd('2012-08-22')
+    s_date = Transactd::btrdtoa(date)
+    expect(s_date).to eq '2012/08/22'
+    #p date
+    #p s_date + ' ' + s_date.encoding.to_s
+    time = Transactd::atobtrt('15:37:00')
+    s_time = Transactd::btrttoa(time)
+    expect(s_time).to eq '15:37:00'
+    #p time
+    #p s_time + ' ' + s_time.encoding.to_s
+    datetime = Transactd::atobtrs('2012-08-22 15:37:00')
+    s_datetime  = Transactd::btrstoa(datetime)
+    s_datetime2 = Transactd::btrstoa(datetime, true)
+    expect(s_datetime).to eq '2012/08/22 15:37:00'
+    expect(s_datetime2).to eq '2012-08-22T15:37:00'
+    #p datetime
+    #p s_datetime + ' ' + s_datetime.encoding.to_s
+    #p s_datetime2 + ' ' + s_datetime2.encoding.to_s
+    s_datetime_d = Transactd::btrdtoa(datetime.date)
+    s_datetime_t = Transactd::btrttoa(datetime.time)
+    expect(s_datetime_d + ' ' + s_datetime_t).to eq '2012/08/22 15:37:00'
+    #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')
+    btrts  = Transactd::BtrTimeStamp.new('2012-08-22 15:37:00')
+    btrts2 = Transactd::BtrTimeStamp.new(date, time)
+    s_btrts  = btrts.toString()
+    s_btrts2 = btrts2.toString()
+    #p btrts, btrts2
+    #p s_btrts, s_btrts2
+    expect(s_btrts).to eq s_btrts2
+    expect(s_btrts).to eq '2012/08/22 15:37:00'
+  end
+  
+  it 'get BtrTimeStamp from BtrDate and BtrTime' do
+    i_nowdate = Transactd::getNowDate()
+    nowdate = Transactd::BtrDate.new()
+    nowdate.i = i_nowdate
+    i_nowtime = Transactd::getNowTime()
+    nowtime = Transactd::BtrTime.new()
+    nowtime.i = i_nowtime
+    nowdatetime = Transactd::BtrTimeStamp.new(nowdate, nowtime)
+    s_nowdate  = Transactd::btrdtoa(nowdate)
+    s_nowtime  = Transactd::btrttoa(nowtime)
+    s_nowdatetime = nowdatetime.toString()
+    expect(s_nowdatetime).to eq s_nowdate + ' ' + s_nowtime
+    #p nowdatetime
+    #p s_nowdatetime + ' ' + s_nowdatetime.encoding.to_s()
+    #p s_nowdate + ' ' + s_nowtime
+  end
+  
+  it 'get last year' do
+    i_nowdate = Transactd::getNowDate()
+    nowdate = Transactd::BtrDate.new()
+    nowdate.i = i_nowdate
+    nowyear_yy = nowdate.yy
+    i_nowtime = Transactd::getNowTime()
+    nowtime = Transactd::BtrTime.new()
+    nowtime.i = i_nowtime
+    nowdatetime = Transactd::BtrTimeStamp.new(nowdate, nowtime)
+    s_nowdatetime = nowdatetime.toString()
+    lastyear = nowdate
+    lastyear.yy = lastyear.yy - 1
+    lastyear_yy = lastyear.yy
+    s_lastyear = Transactd::btrdtoa(lastyear)
+    lastyeardatetime = Transactd::BtrTimeStamp.new(lastyear, nowtime)
+    s_lastyeardatetime = lastyeardatetime.toString()
+    expect(nowyear_yy - 1).to eq lastyear_yy
+    expect(s_nowdatetime.sub(nowyear_yy.to_s, lastyear_yy.to_s)).to eq s_lastyeardatetime
+    #p lastyeardatetime
+    #p s_lastyear + ' ' + s_lastyear.encoding.to_s()
+    #p s_lastyeardatetime + ' ' + s_lastyeardatetime.encoding.to_s()
+  end
+  
+  it 'get typename' do
+    typename = Transactd::getTypeName(Transactd::Ft_integer)
+    #p typename + ' ' + typename.encoding.to_s
+    expect(typename).to eq 'Integer'
+  end
+end

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

@@ -0,0 +1,208 @@
+# coding : utf-8
+=begin ============================================================
+   Copyright (C) 2013 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 'rbconfig'
+IS_WINDOWS = (RbConfig::CONFIG['host_os'] =~ /mswin|mingw|cygwin/)
+
+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
+
+HOSTNAME = getHost()
+URL = 'tdap://' + HOSTNAME + 'test?dbfile=test.bdf'
+URL_KANJI = 'tdap://' + HOSTNAME + 'テスト?dbfile=構成.bdf'
+FDI_ID = 0
+FDN_ID = '番号'.encode('UTF-8')
+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
+  db.drop()
+  expect(db.stat()).to eq 0
+end
+
+def testCreateDatabase(db, url)
+  db.create(url)
+  if db.stat() == Transactd::STATUS_TABLE_EXISTS_ERROR
+    testDropDatabase(db, url)
+    db.create(url)
+  end
+  expect(db.stat()).to eq 0
+end
+
+def testOpenDatabase(db, url)
+  db.open(url, TYPE_SCHEMA_BDF, Transactd::TD_OPEN_NORMAL)
+  expect(db.stat()).to eq 0
+end
+
+def testCreateTable(db, tableid, tablename)
+  dbdef = db.dbDef()
+  expect(dbdef).not_to be nil
+  td = Transactd::Tabledef.new()
+  ### Set table schema codepage to UTF-8
+  #     - codepage for field NAME and tableNAME
+  td.schemaCodePage = Transactd::CP_UTF8
+  td.setTableName(tablename.encode('UTF-8'))
+  td.setFileName((tablename + '.dat').encode('UTF-8'))
+  ### Set table default charaset index
+  #     - default charset for field VALUE
+  td.charsetIndex = Transactd::charsetIndex(Transactd::CP_UTF8)
+  ###
+  td.id = tableid
+  td.pageSize = 2048
+  dbdef.insertTable(td)
+  expect(dbdef.stat()).to eq 0
+  fd = dbdef.insertField(tableid, FDI_ID)
+  fd.setName(FDN_ID)
+  fd.type = Transactd::Ft_integer
+  fd.len = 4
+  dbdef.updateTableDef(tableid)
+  expect(dbdef.stat()).to eq 0
+  fd = dbdef.insertField(tableid, FDI_NAME)
+  fd.setName(FDN_NAME)
+  fd.type = Transactd::Ft_zstring
+  fd.len = 33
+  ### Set field charset index
+  #     - charset for each field VALUE
+  # fd.setCharsetIndex(Transactd::charsetIndex(Transactd::CP_UTF8))
+  dbdef.updateTableDef(tableid)
+  expect(dbdef.stat()).to eq 0
+  kd = dbdef.insertKey(tableid, 0)
+  kd.segment(0).fieldNum = 0
+  kd.segment(0).flags.bit8 = 1
+  kd.segment(0).flags.bit1 = 1
+  kd.segmentCount = 1
+  dbdef.updateTableDef(tableid)
+  expect(dbdef.stat()).to eq 0
+end
+
+def testOpenTable(db, tablename)
+  tb = db.openTable(tablename.encode('UTF-8'))
+  expect(db.stat()).to eq 0
+  return tb
+end
+
+def testInsert(db, tablename)
+  tb = testOpenTable(db, tablename)
+  expect(tb).not_to be nil
+  tb.clearBuffer()
+  tb.setFV(FDN_ID, 1)
+  tb.setFV(FDN_NAME, '小坂'.encode('UTF-8'))
+  tb.insert()
+  expect(tb.stat()).to eq 0
+  tb.clearBuffer()
+  tb.setFV(FDN_ID, 2)
+  tb.setFV(FDN_NAME, '矢口'.encode('UTF-8'))
+  tb.insert()
+  expect(tb.stat()).to eq 0
+  tb.clearBuffer()
+  tb.setFV(FDN_ID, 3)
+  tb.setFV(FDN_NAME, 'ビズステーション'.encode('UTF-8'))
+  tb.insert()
+  expect(tb.stat()).to eq 0
+  tb.close()
+end
+
+def testGetEqual(db, tablename)
+  tb = testOpenTable(db, tablename)
+  expect(tb).not_to be nil
+  tb.clearBuffer()
+  tb.setFV(FDN_ID, 1)
+  tb.seek()
+  expect(tb.getFVstr(FDN_NAME)).to eq '小坂'.encode('UTF-8')
+  tb.close()
+end
+
+def testFind(db, tablename)
+  tb = testOpenTable(db, tablename)
+  expect(tb).not_to be nil
+  tb.setKeyNum(0)
+  tb.clearBuffer()
+  tb.setFilter('番号 >= 1 and 番号 < 3'.encode('UTF-8'), 1, 0)
+  tb.setFV(FDN_ID, 1)
+  tb.find(Transactd::Table::FindForword)
+  expect(tb.stat()).to eq 0
+  expect(tb.getFVint(FDN_ID)).to eq 1
+  expect(tb.getFVstr(FDN_NAME)).to eq '小坂'.encode('UTF-8')
+  tb.findNext(true)
+  expect(tb.stat()).to eq 0
+  expect(tb.getFVint(FDN_ID)).to eq 2
+  expect(tb.getFVstr(FDN_NAME)).to eq '矢口'.encode('UTF-8')
+  tb.findNext(true)
+  expect(tb.stat()).to eq Transactd::STATUS_EOF
+  tb.close()
+end
+
+def testWhole(db, tableid, tablename, url)
+  tablename = tablename.encode('UTF-8') # table name must be UTF-8
+  testOpenDatabase(db, url)
+  testCreateTable(db, tableid, tablename)
+  testOpenTable(db, tablename)
+  testInsert(db, tablename)
+  testGetEqual(db, tablename)
+  testFind(db, tablename)
+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'))
+  end
+  
+  it 'table which has kanji-named field' do
+    testWhole(@db, 1, 'kanji-field', URL.encode('UTF-8'))
+  end
+  
+  it 'kanji-named table' do
+    testWhole(@db, 2, '漢字テーブル', URL)
+  end
+  
+  it 'create kanji-named database' do
+    testCreateDatabase(@db, 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'))
+  end
+ 
+  it 'kanji-named table' do
+    testWhole(@db, 2, '漢字テーブル', URL_KANJI.encode('UTF-8'))
+  end
+end