cleanup trade model

pharo-rdbms · Jun 26, 2023 · 08a4ff4 · 08a4ff4
1 parent 030d85c
commit 08a4ff4
Show file tree

Hide file tree

Showing 4 changed files with 23 additions and 6 deletions.
diff --git a/src/Glorp-Unit-Tests/GlorpAccount.class.st b/src/Glorp-Unit-Tests/GlorpAccount.class.st
@@ -1,3 +1,6 @@
+"
+An account in the Trade model
+"
 Class {
 	#name : #GlorpAccount,
 	#superclass : #GlorpTestModelClass,

diff --git a/src/Glorp-Unit-Tests/GlorpTestModelClass.class.st b/src/Glorp-Unit-Tests/GlorpTestModelClass.class.st
@@ -6,3 +6,9 @@ Class {
 	#superclass : #TestAsserter,
 	#category : #'Glorp-Unit-Tests-Models - Trade'
 }
+
+{ #category : #testing }
+GlorpTestModelClass class >> isAbstract [
+
+	^ self == GlorpTestModelClass
+]
diff --git a/src/Glorp-Unit-Tests/GlorpTrade.class.st b/src/Glorp-Unit-Tests/GlorpTrade.class.st
@@ -1,3 +1,6 @@
+"
+A trade in the Trade model
+"
 Class {
 	#name : #GlorpTrade,
 	#superclass : #GlorpTestModelClass,

diff --git a/src/Glorp-Unit-Tests/GlorpTradeDescriptorSystem.class.st b/src/Glorp-Unit-Tests/GlorpTradeDescriptorSystem.class.st
@@ -1,3 +1,6 @@
+"
+A glorp descriptor system for the trade model
+"
 Class {
 	#name : #GlorpTradeDescriptorSystem,
 	#superclass : #GlorpTestDescriptorSystem,
@@ -13,23 +16,25 @@ GlorpTradeDescriptorSystem >> allTableNames [
 { #category : #accessing }
 GlorpTradeDescriptorSystem >> classModelForGlorpAccount: aClassModel [
 
-	aClassModel newAttributeNamed: #id type: Integer.
-	aClassModel newAttributeNamed: #name type: String
+	aClassModel
+		newAttributeNamed: #id type: Integer;
+		newAttributeNamed: #name type: String
 ]
 
 { #category : #accessing }
 GlorpTradeDescriptorSystem >> classModelForGlorpTrade: aClassModel [
 
-	aClassModel newAttributeNamed: #id type: Integer.
-	aClassModel newAttributeNamed: #account type: GlorpAccount
+	aClassModel
+		newAttributeNamed: #id type: Integer;
+	 	newAttributeNamed: #account type: GlorpAccount
 ]
 
-{ #category : #accessing }
+{ #category : #initialization }
 GlorpTradeDescriptorSystem >> constructAllClasses [
 
 	^(super constructAllClasses)
 		add: GlorpAccount;
-		add: GlorpTrade; 
+		add: GlorpTrade;
 		yourself
 ]