GADriverTestFixture

Object subclass: #'GADriverTestFixture' 
instanceVariableNames: 'setupConnection connection connectionString setupConnectionString options' 
classVariableNames: '' 
poolDictionaries: '' 
category: 'Garage-Tests'

Overview

I am a fixture setting up and tearing down the database and tables needed for running tests.

Each of my concrete subclasses implement the particular details of a database vendor. That is, for each driver flavor, one of me should be available.

For insight into my usage, look at the setup and teardown methods in DBXDriverTest

Class Method Details

setupConnectionString:connectionString:

setupConnectionString: setupConnectionString connectionString: connectionString 
| theConnectionString |
theConnectionString := GAConnectionString fromString: setupConnectionString.
^((GADriver driverAt: theConnectionString driverId) newFixtureForConnectionString: theConnectionString) 
setupConnectionString: setupConnectionString;
connectionString: connectionString;
yourself

Instance Method Details

connection

connection
^connection ifNil: [ connection := self newConnection ]

connectionString

connectionString
^connectionString

connectionString:

connectionString: aConnectionString 
connectionString := aConnectionString

createDatabase

createDatabase
self subclassResponsibility

createSetupConnection

createSetupConnection
setupConnection := GADriver connectToConnectionString: ((GAConnectionString fromString: setupConnectionString) addOptions: options)

createTables

createTables
self subclassResponsibility

driver

driver
^GADriver driverAt: (GAConnectionString fromString: setupConnectionString) driverId

dropDatabase

dropDatabase
self subclassResponsibility

dropTables

dropTables
self subclassResponsibility

newConnection

newConnection
^GADriver connectToConnectionString: ((GAConnectionString fromString: connectionString) addOptions: options)

setUp

We create the connection that will create the database. The other one will be created lazily

setUp
self setUp: Dictionary new

setUp:

We create the connection that will create the database. The other one will be created lazily

setUp: someOptions 
options := someOptions.
connection := setupConnection := nil.
self createSetupConnection
self dropDatabase
self createDatabase
self createTables

setupConnectionString:

setupConnectionString: aConnectionString 
setupConnectionString := aConnectionString

tearDown

tearDown
options := nil.
[ 
connection ifNotNil: [ 
connection close
connection := nil
 ]
 ] ensure: [ 
[ self dropDatabase ] ensure: [ 
setupConnection ifNotNil: [ 
setupConnection close
setupConnection := nil
 ]
 ]
 ]