#QUALITY by cg
class: RegressionTests::TimeAndDateTest
added: #test_21_readingDateInVariousFormats
category of:
#test_01a_ReadingTimes
#test_01b_ReadingTimeDurations
#test_01c_ReadingTimeStamps
#test_01d_ReadingTimeStamps
#test_02_ReadingDates
#test_06_readingISO8601
#test_07_readingISO8601
#test_07b_readingISO8601UTC
#test_08_readingISO8601_date
#test_09_readingISO8601_edge
#test_10_readingISO8601_time
#test_11_readingISO8601_timezone
#test_16_readingOtherFormats
#test_17_readingBrokenStrings
"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
TestCase subclass:#AssociationTests
instanceVariableNames:'empty nonEmpty a b'
classVariableNames:''
poolDictionaries:''
category:'tests-Regression'
!
!AssociationTests class methodsFor:'others'!
version_CVS
^ '$Header$'
! !
!AssociationTests class methodsFor:'queries'!
coveredClassNames
^ #( Association )
"Created: / 06-07-2011 / 21:28:33 / cg"
! !
!AssociationTests methodsFor:'initialize / release'!
setUp
a := 1 -> 'one'.
b := 1 -> 'een'.
! !
!AssociationTests methodsFor:'tests-associations'!
testEquality
self
assert: (a key = b key);
deny: (a value = b value);
deny: (a = b)
!
testEquality2
|a1 a2|
a1 := 10->100.
a2 := 10->100.
self assert: (a1 = a2)
!
testHash
self
assert: (a hash = a copy hash);
deny: (a hash = b hash)
!
testPrinting
self assert:(a printString = '1->one').
"Created: / 06-07-2011 / 21:37:59 / cg"
! !
!AssociationTests class methodsFor:'documentation'!
version
^ '$Header$'
! !