Ch.6 done

src/Example-TDD-Tests/MoneyTest.class.st

@@ -7,7 +7,9 @@ Class {
 { #category : #tests }
 MoneyTest >> testEquality [
 	self assert: (Dollar new amount: 5) equals: (Dollar new amount: 5).
-	self deny: (Dollar new amount: 5) equals: (Dollar new amount: 6)
+	self deny: (Dollar new amount: 5) equals: (Dollar new amount: 6).
+	self assert: (Franc new amount: 5) equals: (Franc new amount: 5).
+	self deny: (Franc new amount: 5) equals: (Franc new amount: 6)
 ]
 
 { #category : #tests }

src/Example-TDD/Dollar.class.st

@@ -1,17 +1,12 @@
 Class {
 	#name : #Dollar,
-	#superclass : #Object,
+	#superclass : #Money,
 	#instVars : [
 		'amount'
 	],
 	#category : #'Example-TDD'
 }
 
-{ #category : #comparing }
-Dollar >> = anObject [
-	^ self class = anObject class & (amount = anObject amount)
-]
-
 { #category : #'private-accessing' }
 Dollar >> amount [
 	^ amount

src/Example-TDD/Franc.class.st

@@ -1,17 +1,9 @@
 Class {
 	#name : #Franc,
-	#superclass : #Object,
-	#instVars : [
-		'amount'
-	],
+	#superclass : #Money,
 	#category : #'Example-TDD'
 }
 
-{ #category : #comparing }
-Franc >> = anObject [
-	^ self class = anObject class & (amount = anObject amount)
-]
-
 { #category : #'private-accessing' }
 Franc >> amount [
 	^ amount

src/Example-TDD/Money.class.st

@@ -0,0 +1,13 @@
+Class {
+	#name : #Money,
+	#superclass : #Object,
+	#instVars : [
+		'amount'
+	],
+	#category : #'Example-TDD'
+}
+
+{ #category : #comparing }
+Money >> = anObject [
+	^ self class = anObject class & (amount = anObject amount)
+]