'From Pharo1.3 of 16 June 2011 [Latest update: #13269] on 16 August 2011 at 9:32:27 pm'!
Smalltalk renameClassNamed: #DBXNullsTest as: #DBXNullsTest!
DBXBaseTest subclass: #DBXNullsTest
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Stargom-Tests'!

!DBXNullsTest methodsFor: 'running' stamp: 'AlainRastoul 8/15/2011 21:22'!
runDDLSetUpScript: aConnection 
	aConnection execute: 'drop table  if exists foo'.
	aConnection execute: 'create table foo (id int not null, name varchar(64) null )'.
! !

!DBXNullsTest methodsFor: 'running' stamp: 'AlainRastoul 8/16/2011 21:31'!
runDDLTearDownScript: aConnection
	aConnection execute:  'drop table foo'.
! !

!DBXNullsTest methodsFor: 'running' stamp: 'AlainRastoul 8/16/2011 21:25'!
runDMLSetUpScript: aConnection 
	aConnection execute: 'insert into foo values(1,  null  )'.
	aConnection execute:  'insert into foo values(2, ''riptobe'' )'.
! !

!DBXNullsTest methodsFor: 'tests' stamp: 'AlainRastoul 8/16/2011 21:26'!
testReadTableWithNull
" test reading of a null value in first line."
"In an inspector on the DBXRow:
OpenDBX current apiQueryColumns: (self resultSet handle)

self resultSet connection platform 
 descriptionForColumn: 2
 handle: (self resultSet handle)
 on: (self resultSet connection ).

"
	| conn stmt resultSet coll rows |
	conn := self doConnectAndOpen.
	[resultSet  := conn execute: 'SELECT id, name FROM foo'.
	coll := OrderedCollection new.
	rows := resultSet rows.
	rows  do: [ :r | coll add: r values ].
	self assert: (((coll at: 2) at: 2) isString).
	] ensure: [ conn disconnect ].
! !

DBXNullsTest removeSelector: #initialize!
DBXNullsTest removeSelector: #platform!
DBXNullsTest removeSelector: #readTableWithNull!
DBXNullsTest removeSelector: #setUp!
DBXNullsTest removeSelector: #settings!
DBXNullsTest removeSelector: #tearDown!

!DBXNullsTest reorganize!
('running' runDDLSetUpScript: runDDLTearDownScript: runDMLSetUpScript:)
('tests' testReadTableWithNull)
!