cashier implementado

09-TusLibros.com/TusLibros-Entrega2.st

+!classDefinition: #CartTest category: #TusLibros!
+TestCase subclass: #CartTest
+	instanceVariableNames: ''
+	classVariableNames: ''
+	poolDictionaries: ''
+	category: 'TusLibros'!
+
+!CartTest methodsFor: 'tests' stamp: 'HernanWilkinson 6/17/2013 17:08'!
+test01NewCartsAreCreatedEmpty
+
+	self assert: self createCart isEmpty! !
+
+!CartTest methodsFor: 'tests' stamp: 'HernanWilkinson 6/17/2013 17:45'!
+test02CanNotAddItemsThatDoNotBelongToStore
+
+	| cart |
+	
+	cart := self createCart.
+	
+	self 
+		should: [ cart add: self itemNotSellByTheStore ]
+		raise: Error - MessageNotUnderstood
+		withExceptionDo: [ :anError |
+			self assert: anError messageText = cart invalidItemErrorMessage.
+			self assert: cart isEmpty ]! !
+
+!CartTest methodsFor: 'tests' stamp: 'HernanWilkinson 6/17/2013 17:43'!
+test03AfterAddingAnItemTheCartIsNotEmptyAnymore
+
+	| cart |
+	
+	cart := self createCart.
+	
+	cart add: self itemSellByTheStore.
+	self deny: cart isEmpty ! !
+
+!CartTest methodsFor: 'tests' stamp: 'HernanWilkinson 6/17/2013 17:43'!
+test04CanNotAddNonPositiveNumberOfItems
+
+	| cart |
+	
+	cart := self createCart.
+	
+	self 
+		should: [cart add: 0 of: self itemSellByTheStore ]
+		raise: Error - MessageNotUnderstood
+		withExceptionDo: [ :anError |
+			self assert: anError messageText = cart invalidQuantityErrorMessage.
+			self assert: cart isEmpty ]! !
+
+!CartTest methodsFor: 'tests' stamp: 'HernanWilkinson 6/17/2013 17:45'!
+test05CanNotAddMoreThanOneItemNotSellByTheStore
+
+	| cart |
+	
+	cart := self createCart.
+	
+	self 
+		should: [cart add: 2 of: self itemNotSellByTheStore  ]
+		raise: Error - MessageNotUnderstood
+		withExceptionDo: [ :anError |
+			self assert: anError messageText = cart invalidItemErrorMessage.
+			self assert: cart isEmpty ]! !
+
+!CartTest methodsFor: 'tests' stamp: 'HernanWilkinson 6/17/2013 17:43'!
+test06CartRemembersAddedItems
+
+	| cart |
+	
+	cart := self createCart.
+	
+	cart add: self itemSellByTheStore.
+	self assert: (cart includes: self itemSellByTheStore)! !
+
+!CartTest methodsFor: 'tests' stamp: 'HernanWilkinson 6/17/2013 17:43'!
+test07CartDoesNotHoldNotAddedItems
+
+	| cart |
+	
+	cart := self createCart.
+	
+	self deny: (cart includes: self itemSellByTheStore)! !
+
+!CartTest methodsFor: 'tests' stamp: 'HernanWilkinson 6/17/2013 17:45'!
+test08CartRemembersTheNumberOfAddedItems
+
+	| cart |
+	
+	cart := self createCart.
+	
+	cart add: 2 of: self itemSellByTheStore.
+	self assert: (cart occurrencesOf: self itemSellByTheStore) = 2! !
+
+
+!CartTest methodsFor: 'support' stamp: 'HernanWilkinson 6/17/2013 17:48'!
+createCart
+	
+	^Cart acceptingItemsOf: self defaultCatalog! !
+
+!CartTest methodsFor: 'support' stamp: 'HernanWilkinson 6/17/2013 17:43'!
+defaultCatalog
+	
+	^ Array with: self itemSellByTheStore! !
+
+!CartTest methodsFor: 'support' stamp: 'HernanWilkinson 6/17/2013 17:44'!
+itemNotSellByTheStore
+	
+	^'invalidBook'! !
+
+!CartTest methodsFor: 'support' stamp: 'HernanWilkinson 6/17/2013 17:43'!
+itemSellByTheStore
+	
+	^ 'validBook'! !
+
+
+!classDefinition: #CashierTest category: #TusLibros!
+TestCase subclass: #CashierTest
+	instanceVariableNames: ''
+	classVariableNames: ''
+	poolDictionaries: ''
+	category: 'TusLibros'!
+
+!CashierTest methodsFor: 'as yet unclassified' stamp: 'ig 6/7/2018 20:15:36'!
+test01CashierCanNotCheckoutEmptyCart
+
+	| catalog cart cashier creditCard |
+	
+	catalog := Bag new.
+	cart := Cart acceptingItemsOf: catalog.
+	cashier := Cashier acceptingItemsOf: catalog onTheDateOf: Date today.
+	creditCard := CreditCard withId: '123123123' andExpirationDate: Date tomorrow.
+	
+	self
+		should: [cashier checkout: cart payingWith: creditCard]
+		raise: Error - MessageNotUnderstood 
+		withExceptionDo: [ :anError |
+			self assert: anError messageText = Cashier canNotCheckoutEmptyCart.
+		].! !
+
+!CashierTest methodsFor: 'as yet unclassified' stamp: 'ig 6/7/2018 20:15:57'!
+test02CashierCountsMoneyOnCheckout
+
+	| catalog cart cashier product1 product2 creditCard totalPrice |
+	
+	product1 := Object new.
+	product2 := Object new.
+	
+	catalog := Dictionary new.
+	catalog add: product1->3.
+	catalog add: product2->7.3.
+
+	cart := Cart acceptingItemsOf: catalog.
+	cart add: product1.
+	cart add: product2.
+	cashier := Cashier acceptingItemsOf: catalog onTheDateOf: Date today.
+	creditCard := CreditCard withId: '123123123' andExpirationDate: Date tomorrow.
+
+	totalPrice := cashier checkout: cart payingWith: creditCard.
+	
+	self assert: totalPrice = 10.3.! !
+
+!CashierTest methodsFor: 'as yet unclassified' stamp: 'ig 6/7/2018 20:19:08'!
+test03CashierFialsWhileValidatingExpiredCreditCard
+
+	| catalog cart cashier product1 product2 creditCard |
+	
+	product1 := Object new.
+	product2 := Object new.
+	
+	catalog := Dictionary new.
+	catalog add: product1->3.
+	catalog add: product2->7.3.
+
+	cart := Cart acceptingItemsOf: catalog.
+	cart add: product1.
+	cart add: product2.
+	cashier := Cashier acceptingItemsOf: catalog onTheDateOf: Date today.
+	creditCard := CreditCard withId: '123123123' andExpirationDate: Date yesterday.
+
+	self 
+	should: [cashier checkout: cart payingWith: creditCard]
+	raise: Error - MessageNotUnderstood
+	withExceptionDo: [ :anError |
+			self assert: anError messageText = Cashier canNotCheckoutWithExpiredCreditCard.
+		]! !
+
+
+!classDefinition: #Cart category: #TusLibros!
+Object subclass: #Cart
+	instanceVariableNames: 'catalog items'
+	classVariableNames: ''
+	poolDictionaries: ''
+	category: 'TusLibros'!
+
+!Cart methodsFor: 'error messages' stamp: 'HernanWilkinson 6/17/2013 17:45'!
+invalidItemErrorMessage
+	
+	^'Item is not in catalog'! !
+
+!Cart methodsFor: 'error messages' stamp: 'HernanWilkinson 6/17/2013 17:45'!
+invalidQuantityErrorMessage
+	
+	^'Invalid number of items'! !
+
+
+!Cart methodsFor: 'assertions' stamp: 'ig 6/7/2018 19:31:34'!
+assertIsValidItem: anItem
+
+	(catalog keys includes: anItem) ifFalse: [ self error: self invalidItemErrorMessage ]! !
+
+!Cart methodsFor: 'assertions' stamp: 'HernanWilkinson 6/17/2013 17:51'!
+assertIsValidQuantity: aQuantity
+
+	aQuantity strictlyPositive ifFalse: [ self error: self invalidQuantityErrorMessage ]! !
+
+
+!Cart methodsFor: 'initialization' stamp: 'HernanWilkinson 6/17/2013 17:48'!
+initializeAcceptingItemsOf: aCatalog
+
+	catalog := aCatalog.
+	items := OrderedCollection new.! !
+
+
+!Cart methodsFor: 'queries' stamp: 'HernanWilkinson 6/17/2013 17:45'!
+occurrencesOf: anItem
+
+	^items occurrencesOf: anItem  ! !
+
+!Cart methodsFor: 'queries' stamp: 'ig 6/7/2018 19:23:56'!
+products
+
+	^items copy! !
+
+
+!Cart methodsFor: 'testing' stamp: 'HernanWilkinson 6/17/2013 17:44'!
+includes: anItem
+
+	^items includes: anItem ! !
+
+!Cart methodsFor: 'testing' stamp: 'HernanWilkinson 6/17/2013 17:44'!
+isEmpty
+	
+	^items isEmpty ! !
+
+
+!Cart methodsFor: 'adding' stamp: 'HernanWilkinson 6/17/2013 17:44'!
+add: anItem
+
+	^ self add: 1 of: anItem ! !
+
+!Cart methodsFor: 'adding' stamp: 'ig 6/7/2018 18:42:49'!
+add: aQuantity of: anItem
+
+	self assertIsValidQuantity: aQuantity.
+	self assertIsValidItem: anItem.
+
+	aQuantity timesRepeat: [ items add: anItem ]! !
+
+"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!
+
+!classDefinition: 'Cart class' category: #TusLibros!
+Cart class
+	instanceVariableNames: ''!
+
+!Cart class methodsFor: 'instance creation' stamp: 'HernanWilkinson 6/17/2013 17:48'!
+acceptingItemsOf: aCatalog
+
+	^self new initializeAcceptingItemsOf: aCatalog ! !
+
+
+!classDefinition: #Cashier category: #TusLibros!
+Object subclass: #Cashier
+	instanceVariableNames: 'catalog date'
+	classVariableNames: ''
+	poolDictionaries: ''
+	category: 'TusLibros'!
+
+!Cashier methodsFor: 'as yet unclassified' stamp: 'ig 6/7/2018 20:25:19'!
+cashinWithRest! !
+
+!Cashier methodsFor: 'as yet unclassified' stamp: 'ig 6/7/2018 20:25:12'!
+checkout: aCart payingWith: aCreditCard
+
+	| totalPrice |
+
+	(aCart isEmpty) ifTrue: [self error: self class canNotCheckoutEmptyCart].
+	
+	(aCreditCard isExpiredFrom: date) ifTrue: [^self error: self class canNotCheckoutWithExpiredCreditCard].
+	
+	totalPrice := 0.
+	(aCart products) do: [ :product | totalPrice := totalPrice + catalog at: product].
+	
+	self cashinWithRest.
+	
+	^totalPrice! !
+
+!Cashier methodsFor: 'as yet unclassified' stamp: 'ig 6/7/2018 20:02:21'!
+initializeAcceptingItemsOf: aCatalog withDate: aDate
+
+	catalog := aCatalog.
+	date := aDate.! !
+
+"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!
+
+!classDefinition: 'Cashier class' category: #TusLibros!
+Cashier class
+	instanceVariableNames: ''!
+
+!Cashier class methodsFor: 'as yet unclassified' stamp: 'ig 6/7/2018 20:02:02'!
+acceptingItemsOf: aCatalog onTheDateOf: aDate
+
+	^self new initializeAcceptingItemsOf: aCatalog withDate: aDate.! !
+
+!Cashier class methodsFor: 'as yet unclassified' stamp: 'ig 6/7/2018 19:15:21'!
+canNotCheckoutEmptyCart
+
+	^'No se puede hacer checkout de un carrito vacio'! !
+
+!Cashier class methodsFor: 'as yet unclassified' stamp: 'ig 6/7/2018 20:08:15'!
+canNotCheckoutWithExpiredCreditCard
+
+	^'La tarjeta de credito esta expirada'! !
+
+
+!classDefinition: #CreditCard category: #TusLibros!
+Object subclass: #CreditCard
+	instanceVariableNames: 'id expirationDate'
+	classVariableNames: ''
+	poolDictionaries: ''
+	category: 'TusLibros'!
+
+!CreditCard methodsFor: 'as yet unclassified' stamp: 'ig 6/7/2018 19:56:08'!
+initializeWithId: anId andExpirationDate: anExpirationDate
+
+	id := anId.
+	expirationDate := anExpirationDate.! !
+
+!CreditCard methodsFor: 'as yet unclassified' stamp: 'ig 6/7/2018 20:09:12'!
+isExpiredFrom: aDate
+
+	^expirationDate < aDate! !
+
+"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!
+
+!classDefinition: 'CreditCard class' category: #TusLibros!
+CreditCard class
+	instanceVariableNames: ''!
+
+!CreditCard class methodsFor: 'as yet unclassified' stamp: 'ig 6/7/2018 19:55:16'!
+initliazeWithId: anId andExpirationDate: anExpirationDate! !
+
+!CreditCard class methodsFor: 'as yet unclassified' stamp: 'ig 6/7/2018 19:55:42'!
+withId: anId andExpirationDate: anExpirationDate
+
+	^self new initializeWithId: anId andExpirationDate: anExpirationDate! !