GAQueryTest

GADriverTest subclass: #'GAQueryTest' 
instanceVariableNames: '' 
classVariableNames: '' 
poolDictionaries: '' 
category: 'Garage-Tests'

Overview

Please comment me using the following template inspired by Class Responsibility Collaborator (CRC) design:

For the Class part: State the name of the class with one line description: For example, I'm xxx the root of the hierarchy of visitor objects.

For the Responsibility part: Three sentences about my main responsibility, what I'm doing, what services do I offer.

For the Collaborators Part: State my main collaborators and one line about how I interact with them.

Public API and Key Messages

  • label item

One simple example is simply gorgeous.

Internal Representation and Key Implementation Points.

Implementation Points

Instance Method Details

testInsert

self debug: #testInsert

testInsert
| result row |
conn execute: 'INSERT INTO student(id) VALUES (1)'.
conn execute: 'INSERT INTO signature(code, name, observations, id_student) VALUES (59, 'TADP', 'Tecnicas Av', 1)'.
result := conn execute: 'SELECT code, name, observations, id_student FROM signature'.
row := result first.
self assert: (row at: 1) equals: 59.
self assert: (row at: 2) equals: 'TADP'.
self assert: (row at: 3) equals: 'Tecnicas Av'.
self assert: (row at: 4) equals: 1

testQuery

testQuery
| select result |
select := 'SELECT * FROM signature'.
result := conn execute: select

testQueryResult

testQueryResult
| select result |
select := 'SELECT * FROM signature'.
result := conn execute: select.
self assert: result isEmpty

testResultIterateAt

testResultIterateAt
| select result |
conn execute: 'INSERT INTO student(id) VALUES (1)'.
conn execute: 'INSERT INTO student(id) VALUES (2)'.
conn execute: 'INSERT INTO signature(code, name, observations, id_student) VALUES (59, 'TADP', 'Tecnicas Av', 1)'.
conn execute: 'INSERT INTO signature(code, name, observations, id_student) VALUES (59, 'TADP', 'Tecnicas Av', 2)'.
select := 'SELECT code, name, observations, id_student FROM signature'.
result := conn execute: select.
self assert: ((result at: 2) atIndex: 4) equals: 2

testResultIterateCollect

testResultIterateCollect
| select result collected |
conn execute: 'INSERT INTO student(id) VALUES (1)'.
conn execute: 'INSERT INTO student(id) VALUES (2)'.
conn execute: 'INSERT INTO signature(code, name, observations, id_student) VALUES (59, 'TADP', 'Tecnicas Av', 1)'.
conn execute: 'INSERT INTO signature(code, name, observations, id_student) VALUES (59, 'TADP', 'Tecnicas Av', 2)'.
select := 'SELECT code, name, observations, id_student FROM signature'.
result := conn execute: select.
collected := result 
collect: [ :row | row atIndex: 4 ]
.
self assert: collected asArray equals: #(1 2)

testResultIterateDo

testResultIterateDo
| select result rows |
conn execute: 'INSERT INTO student(id) VALUES (1)'.
conn execute: 'INSERT INTO student(id) VALUES (2)'.
conn execute: 'INSERT INTO signature(code, name, observations, id_student) VALUES (59, 'TADP', 'Tecnicas Av', 1)'.
conn execute: 'INSERT INTO signature(code, name, observations, id_student) VALUES (59, 'TADP', 'Tecnicas Av', 2)'.
select := 'SELECT code, name, observations FROM signature'.
result := conn execute: select.
rows := 0.
result do: [ :row |
self assert: (row at: 1) equals: 59.
self assert: (row at: 2) equals: 'TADP'.
self assert: (row at: 3) equals: 'Tecnicas Av'.
rows := rows + 1
 ].
self assert: rows equals: 2

testResultIterateFirst

testResultIterateFirst
| select result |
conn execute: 'INSERT INTO student(id) VALUES (1)'.
conn execute: 'INSERT INTO student(id) VALUES (2)'.
conn execute: 'INSERT INTO signature(code, name, observations, id_student) VALUES (59, 'TADP', 'Tecnicas Av', 1)'.
conn execute: 'INSERT INTO signature(code, name, observations, id_student) VALUES (59, 'TADP', 'Tecnicas Av', 2)'.
select := 'SELECT code, name, observations, id_student FROM signature'.
result := conn execute: select.
self assert: (result first atIndex: 4) equals: 1

testResultIterateSelect

testResultIterateSelect
| select result selected |
conn execute: 'INSERT INTO student(id) VALUES (1)'.
conn execute: 'INSERT INTO student(id) VALUES (2)'.
conn execute: 'INSERT INTO signature(code, name, observations, id_student) VALUES (59, 'TADP', 'Tecnicas Av', 1)'.
conn execute: 'INSERT INTO signature(code, name, observations, id_student) VALUES (59, 'TADP', 'Tecnicas Av', 2)'.
select := 'SELECT code, name, observations, id_student FROM signature'.
result := conn execute: select.
selected := result select: [ :row | (row atIndex: 4) = 2 ].
self assert: selected size equals: 1

testResultIterateStream

testResultIterateStream
| select result row rows |
conn execute: 'INSERT INTO student(id) VALUES (1)'.
conn execute: 'INSERT INTO student(id) VALUES (2)'.
conn execute: 'INSERT INTO signature(code, name, observations, id_student) VALUES (59, 'TADP', 'Tecnicas Av', 1)'.
conn execute: 'INSERT INTO signature(code, name, observations, id_student) VALUES (59, 'TADP', 'Tecnicas Av', 2)'.
select := 'SELECT code, name, observations FROM signature'.
result := (conn execute: select) readStream.
rows := 0.
[ row := result next notNil ] whileTrue: [ 
self assert: (row at: 1) equals: 59.
self assert: (row at: 2) equals: 'TADP'.
self assert: (row at: 3) equals: 'Tecnicas Av'.
rows := rows + 1
 ].
self assert: rows equals: 2

testResultIterateStreamNextColonIsNilWhenEmpty

testResultIterateStreamNextColonIsNilWhenEmpty
| select result |
conn execute: 'INSERT INTO student(id) VALUES (1)'.
conn execute: 'INSERT INTO student(id) VALUES (2)'.
conn execute: 'INSERT INTO signature(code, name, observations, id_student) VALUES (59, 'TADP', 'Tecnicas Av', 1)'.
conn execute: 'INSERT INTO signature(code, name, observations, id_student) VALUES (59, 'TADP', 'Tecnicas Av', 2)'.
select := 'SELECT code, name, observations FROM signature'.
result := (conn execute: select) readStream.
result next: 2.
self assert: (result next: 1) equals: #()

testResultIterateStreamNextColonReturnsOnlyWhatItHas

testResultIterateStreamNextColonReturnsOnlyWhatItHas
| select result |
conn execute: 'INSERT INTO student(id) VALUES (1)'.
conn execute: 'INSERT INTO student(id) VALUES (2)'.
conn execute: 'INSERT INTO signature(code, name, observations, id_student) VALUES (59, 'TADP', 'Tecnicas Av', 1)'.
conn execute: 'INSERT INTO signature(code, name, observations, id_student) VALUES (59, 'TADP', 'Tecnicas Av', 2)'.
select := 'SELECT code, name, observations FROM signature'.
result := (conn execute: select) readStream.
self assert: (result next: 3) size equals: 2

testResultIterateStreamNextIsNilWhenEmpty

testResultIterateStreamNextIsNilWhenEmpty
| select result |
conn execute: 'INSERT INTO student(id) VALUES (1)'.
conn execute: 'INSERT INTO student(id) VALUES (2)'.
conn execute: 'INSERT INTO signature(code, name, observations, id_student) VALUES (59, 'TADP', 'Tecnicas Av', 1)'.
conn execute: 'INSERT INTO signature(code, name, observations, id_student) VALUES (59, 'TADP', 'Tecnicas Av', 2)'.
select := 'SELECT code, name, observations FROM signature'.
result := (conn execute: select) readStream.
result next: 2.
self assert: result next isNil

testResultIterateStreamNextN

testResultIterateStreamNextN
| select result rows |
conn execute: 'INSERT INTO student(id) VALUES (1)'.
conn execute: 'INSERT INTO student(id) VALUES (2)'.
conn execute: 'INSERT INTO signature(code, name, observations, id_student) VALUES (59, 'TADP', 'Tecnicas Av', 1)'.
conn execute: 'INSERT INTO signature(code, name, observations, id_student) VALUES (59, 'TADP', 'Tecnicas Av', 2)'.
select := 'SELECT code, name, observations FROM signature'.
result := (conn execute: select) readStream.
rows := result next: 1.
self assert: rows size equals: 1.
self assert: (rows first at: 1) equals: 59.
self assert: (rows first at: 2) equals: 'TADP'.
self assert: (rows first at: 3) equals: 'Tecnicas Av'.
rows := result next: 1.
self assert: rows size equals: 1.
self assert: (rows first at: 1) equals: 59.
self assert: (rows first at: 2) equals: 'TADP'.
self assert: (rows first at: 3) equals: 'Tecnicas Av'

testResultOfDDL

testResultOfDDL
| result |
result := conn execute: 'CREATE TABLE CATS ( name varchar(50), owner varchar(50))'.
self assert: result affectedRows = 0

testResultOfDelete

testResultOfDelete
| result |
conn execute: 'CREATE TABLE CATS ( name varchar(50), owner varchar(50))'.
conn execute: 'INSERT INTO CATS(name,owner) VALUES('lutz','julien')'.
conn execute: 'INSERT INTO CATS(name,owner) VALUES('camila','guille')'.
conn execute: 'INSERT INTO CATS(name,owner) VALUES('inuk','victor')'.
result := conn execute: 'DELETE FROM CATS'.
self assert: result affectedRows = 3

testResultOfDeleteWhere

testResultOfDeleteWhere
| result |
conn execute: 'CREATE TABLE CATS ( name varchar(50), owner varchar(50))'.
conn execute: 'INSERT INTO CATS(name,owner) VALUES('lutz','julien')'.
conn execute: 'INSERT INTO CATS(name,owner) VALUES('camila','guille')'.
conn execute: 'INSERT INTO CATS(name,owner) VALUES('inuk','victor')'.
result := conn execute: 'DELETE FROM CATS WHERE name != 'lutz''.
self assert: result affectedRows = 2

testResultOfInsert

testResultOfInsert
| result |
conn execute: 'CREATE TABLE CATS ( name varchar(50), owner varchar(50))'.
result := conn execute: 'INSERT INTO CATS(name,owner) VALUES('lutz','julien')'.
self assert: result affectedRows = 1

testResultOfUpdate

testResultOfUpdate
| result |
conn execute: 'CREATE TABLE CATS ( name varchar(50), owner varchar(50))'.
conn execute: 'INSERT INTO CATS(name,owner) VALUES('lutz','julien')'.
conn execute: 'INSERT INTO CATS(name,owner) VALUES('camila','guille')'.
conn execute: 'INSERT INTO CATS(name,owner) VALUES('inuk','victor')'.
result := conn execute: 'UPDATE CATS SET owner='guille''.

Mysql only affects rows that he has to update
conn affectsOnlyChangedRows 
ifTrue: [ self assert: result affectedRows = 2 ] 
ifFalse: [ self assert: result affectedRows = 3 ]

testResultOfUpdateWhere

testResultOfUpdateWhere
| result |
conn execute: 'CREATE TABLE CATS ( name varchar(50), owner varchar(50))'.
conn execute: 'INSERT INTO CATS(name,owner) VALUES('lutz','julien')'.
conn execute: 'INSERT INTO CATS(name,owner) VALUES('camila','guille')'.
conn execute: 'INSERT INTO CATS(name,owner) VALUES('inuk','victor')'.
result := conn execute: 'UPDATE CATS SET owner = 'guille' WHERE owner != 'guille''.
self assert: result affectedRows = 2