GARowTest
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
testAccessRowByIndex
self debug: #testCursoredResult
testAccessRowByIndex| result catRow |
conn execute: 'CREATE TABLE CATS (
name varchar(50),
owner varchar(50))'.
conn execute: 'INSERT INTO CATS(name,owner) VALUES('lutz','julien')'.
result := conn execute: 'SELECT name AS catname, owner FROM CATS'.
catRow := result first.
self assert: (catRow atIndex: 1) equals: 'lutz'.
self assert: (catRow atIndex: 2) equals: 'julien'
testAccessRowByNameString
self debug: #testCursoredResult
testAccessRowByNameString| result catRow |
conn execute: 'CREATE TABLE CATS (
name varchar(50),
owner varchar(50))'.
conn execute: 'INSERT INTO CATS(name,owner) VALUES('lutz','julien')'.
result := conn execute: 'SELECT name AS catname, owner FROM CATS'.
catRow := result first.
self assert: (catRow atName: 'catname') equals: 'lutz'.
self assert: (catRow atName: 'owner') equals: 'julien'
testAccessRowByNameSymbol
self debug: #testCursoredResult
testAccessRowByNameSymbol| result catRow |
conn execute: 'CREATE TABLE CATS (
name varchar(50),
owner varchar(50))'.
conn execute: 'INSERT INTO CATS(name,owner) VALUES('lutz','julien')'.
result := conn execute: 'SELECT name AS catname, owner FROM CATS'.
catRow := result first.
self assert: (catRow atName: #'catname') equals: 'lutz'.
self assert: (catRow atName: #'owner') equals: 'julien'
testAccessUnamedFunctionsByName
self debug: #testCursoredResult
testAccessUnamedFunctionsByName