[squeak-dev] The Trunk: Chronology-Tests-ct.29.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Jan 31 19:38:51 UTC 2022


Christoph Thiede uploaded a new version of Chronology-Tests to project The Trunk:
http://source.squeak.org/trunk/Chronology-Tests-ct.29.mcz

==================== Summary ====================

Name: Chronology-Tests-ct.29
Author: ct
Time: 31 January 2022, 8:38:49.347214 pm
UUID: daa1b1f9-290a-6d40-8a6d-60e77610a83a
Ancestors: Chronology-Tests-bp.28

Complements SUnit-ct.130 (deprecation of TestResult error) and SUnit-ct.138 (new convenience #shouldRaiseError:).

=============== Diff against Chronology-Tests-bp.28 ===============

Item was changed:
  ----- Method: MonthTest>>testIndexOfMonth (in category 'Tests') -----
  testIndexOfMonth
  
  	| m |
  	m := #(#January #February #March #April #May #June #July #August #September #October #November #December).
  	
  	m withIndexDo: [:item :index | self assert: (Month indexOfMonth: item) = index].
  	
+ 	self shouldRaiseError: [Month indexOfMonth: 1].
+ 	self shouldRaiseError: [Month indexOfMonth: #'1'].
+ 	self shouldRaiseError: [Month indexOfMonth: #Marsh]. "notice the misspell!!"
+ 	self shouldRaiseError: [Month indexOfMonth: #UnexistingMonth].!
- 	self should: [Month indexOfMonth: 1] raise: TestResult error.
- 	self should: [Month indexOfMonth: #'1'] raise: TestResult error.
- 	self should: [Month indexOfMonth: #Marsh] raise: TestResult error. "notice the misspell!!"
- 	self should: [Month indexOfMonth: #UnexistingMonth] raise: TestResult error.!

Item was changed:
  ----- Method: MonthTest>>testNameOfMonth (in category 'Tests') -----
  testNameOfMonth
  
  	| m |
  	m := #(#January #February #March #April #May #June #July #August #September #October #November #December).
  	
  	m withIndexDo: [:item :index | self assert: (Month nameOfMonth: index) = item].
  	
+ 	self shouldRaiseError: [Month nameOfMonth: 0].
+ 	self shouldRaiseError: [Month nameOfMonth: 13].
+ 	self shouldRaiseError: [Month nameOfMonth: #January].!
- 	self should: [Month nameOfMonth: 0] raise: TestResult error.
- 	self should: [Month nameOfMonth: 13] raise: TestResult error.
- 	self should: [Month nameOfMonth: #January] raise: TestResult error.!



More information about the Squeak-dev mailing list