remove useless collect message send in SQLite3Table>>#rows. fix: #71 (#72)

and add some tests.

Author: vonbecmann

Diff for: src/SQLite3-Core-Tests/SQLite3TableTest.class.st

@@ -74,6 +74,36 @@ SQLite3TableTest >> testPrintString [
 	self assert: table printString equals: 'a SQLite3Table("SAMPLE")'
 ]
 
+{ #category : #'tests - sample' }
+SQLite3TableTest >> testRows [
+
+	self assert: table rows isEmpty
+]
+
+{ #category : #'tests - sample' }
+SQLite3TableTest >> testRowsHasOneRow [
+
+	| rows |
+	db execute: 'INSERT INTO SAMPLE(NAME) VALUES (''first example'');'.
+	rows := table rows.
+	self deny: rows isEmpty.
+	self assert: rows size equals: 1.
+	self assert: (rows first at: 'NAME') equals: 'first example'
+]
+
+{ #category : #'tests - sample' }
+SQLite3TableTest >> testRowsHasTwoRows [
+
+	| rows |
+	db execute:
+		'INSERT INTO SAMPLE(NAME) VALUES (''first example''), (''second example'');'.
+	rows := table rows.
+	self deny: rows isEmpty.
+	self assert: rows size equals: 2.
+	self assert: (rows first at: 'NAME') equals: 'first example'.
+	self assert: (rows second at: 'NAME') equals: 'second example'
+]
+
 { #category : #'tests - sample' }
 SQLite3TableTest >> testSampleTable [
 

Diff for: src/SQLite3-Core/SQLite3Table.class.st

@@ -84,11 +84,9 @@ SQLite3Table >> properties: anObject [
 { #category : #accessing }
 SQLite3Table >> rows [
 
-	^ self database
-		  execute: 'SELECT *
-			FROM ', self name, '
-			LIMIT 1000;'
-		  doing: [ :result | result rows collect: [ :each | each ] ]
+	^ (self database execute: 'SELECT *
+			FROM ' , self name , '
+			LIMIT 1000;') rows
 ]
 
 { #category : #accessing }