Mercurial Mercurial > hg > stx-goodies-regression / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
RegressionTests__ScaledDecimalTest.st
branchjv
changeset 1500 d406a10b2965
parent 1499 26a16a04219b
parent 1447 2351db93aa5b 
--- a/RegressionTests__ScaledDecimalTest.st	Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__ScaledDecimalTest.st	Thu Jun 30 09:02:08 2016 +0100
@@ -36,209 +36,209 @@
 !
 
 test02_AsNumber
-        "Ensure no loss of precision"
+	"Ensure no loss of precision"
 
-        | sd |
-        sd := '1.40s2' asNumber.
-        self assert: (ScaledDecimal ? FixedPoint) == sd class.
-        self assert: sd scale == 2.
+	| sd |
+	sd := '1.40s2' asNumber.
+	self assert: (ScaledDecimal ? FixedPoint) == sd class.
+	self assert: sd scale == 2.
 
-        Smalltalk isSmalltalkX ifTrue:[
-            self assert: '1.40' = sd printString.
-            self assert: '1.40s2' = sd storeString.
-        ] ifFalse:[
-            self assert: '1.40s2' = sd printString.
-        ]
+	Smalltalk isSmalltalkX ifTrue:[
+	    self assert: '1.40' = sd printString.
+	    self assert: '1.40s2' = sd storeString.
+	] ifFalse:[
+	    self assert: '1.40s2' = sd printString.
+	]
 
     "Created: / 09-08-2011 / 21:25:31 / cg"
 !
 
 test03_AsNumberNegatedWithoutDecimalPoint
 
-        | sd |
-        sd := '-123s0' asNumber.
-        self assert: (ScaledDecimal ? FixedPoint) == sd class.
-        self assert: sd scale == 0.
+	| sd |
+	sd := '-123s0' asNumber.
+	self assert: (ScaledDecimal ? FixedPoint) == sd class.
+	self assert: sd scale == 0.
 
-        Smalltalk isSmalltalkX ifTrue:[
-            self assert: '-123' = sd printString.
-            self assert: '-123s0' = sd storeString.
-        ] ifFalse:[
-            self assert: '-123s0' = sd printString.
-        ]
+	Smalltalk isSmalltalkX ifTrue:[
+	    self assert: '-123' = sd printString.
+	    self assert: '-123s0' = sd storeString.
+	] ifFalse:[
+	    self assert: '-123s0' = sd printString.
+	]
 
     "Created: / 09-08-2011 / 21:25:43 / cg"
 !
 
 test04_AsNumberNegatedWithoutDecimalPoint2
 
-        | sd |
-        sd := '-123s2' asNumber.
-        self assert: (ScaledDecimal ? FixedPoint) == sd class.
-        self assert: sd scale == 2.
+	| sd |
+	sd := '-123s2' asNumber.
+	self assert: (ScaledDecimal ? FixedPoint) == sd class.
+	self assert: sd scale == 2.
 
-        Smalltalk isSmalltalkX ifTrue:[
-            self assert: '-123.00' = sd printString.
-            self assert: '-123.00s2' = sd storeString.
-        ] ifFalse:[
-            self assert: '-123.00s2' = sd printString.
-        ]
+	Smalltalk isSmalltalkX ifTrue:[
+	    self assert: '-123.00' = sd printString.
+	    self assert: '-123.00s2' = sd storeString.
+	] ifFalse:[
+	    self assert: '-123.00s2' = sd printString.
+	]
 
     "Created: / 09-08-2011 / 21:25:54 / cg"
 !
 
 test05_AsNumberWithExtendedScale
 
-        | sd |
-        sd := '123s2' asNumber.
-        self assert: (ScaledDecimal ? FixedPoint) == sd class.
-        self assert: sd scale == 2.
+	| sd |
+	sd := '123s2' asNumber.
+	self assert: (ScaledDecimal ? FixedPoint) == sd class.
+	self assert: sd scale == 2.
 
-        Smalltalk isSmalltalkX ifTrue:[
-            self assert: '123.00' = sd printString.
-            self assert: '123.00s2' = sd storeString.
-        ] ifFalse:[
-            self assert: '123.00s2' = sd printString.
-        ]
+	Smalltalk isSmalltalkX ifTrue:[
+	    self assert: '123.00' = sd printString.
+	    self assert: '123.00s2' = sd storeString.
+	] ifFalse:[
+	    self assert: '123.00s2' = sd printString.
+	]
 
     "Created: / 09-08-2011 / 21:25:59 / cg"
 !
 
 test06_AsNumberWithRadix
-        | sd oldSetting |
+	| sd oldSetting |
 
-        Smalltalk isSmalltalkX ifTrue:[
-            oldSetting := ParserFlags allowFixedPointLiterals.
-            ParserFlags allowFixedPointLiterals:true.
-            [
-                sd := Number readSmalltalkSyntaxFrom:'10r-22.2s5'.
-            ] ensure:[
-                ParserFlags allowFixedPointLiterals:oldSetting.
-            ]
-        ] ifFalse:[
-            sd := '10r-22.2s5' asNumber.
-        ].
+	Smalltalk isSmalltalkX ifTrue:[
+	    oldSetting := ParserFlags allowFixedPointLiterals.
+	    ParserFlags allowFixedPointLiterals:true.
+	    [
+		sd := Number readSmalltalkSyntaxFrom:'10r-22.2s5'.
+	    ] ensure:[
+		ParserFlags allowFixedPointLiterals:oldSetting.
+	    ]
+	] ifFalse:[
+	    sd := '10r-22.2s5' asNumber.
+	].
 
-        self assert: (ScaledDecimal ? FixedPoint) == sd class.
-        self assert: sd scale == 5.
+	self assert: (ScaledDecimal ? FixedPoint) == sd class.
+	self assert: sd scale == 5.
 
-        Smalltalk isSmalltalkX ifTrue:[
-            self assert: '-22.20000' = sd printString.
-            self assert: '-22.20000s5' = sd storeString.
-        ] ifFalse:[
-            self assert: '-22.20000s5' = sd printString.
-        ]
+	Smalltalk isSmalltalkX ifTrue:[
+	    self assert: '-22.20000' = sd printString.
+	    self assert: '-22.20000s5' = sd storeString.
+	] ifFalse:[
+	    self assert: '-22.20000s5' = sd printString.
+	]
 
     "Created: / 09-08-2011 / 21:26:05 / cg"
 !
 
 test07_AsNumberWithSuperfluousDecimalPoint
 
-        | sd |
-        sd := '123.s2' asNumber.
-        self assert: (ScaledDecimal ? FixedPoint) == sd class.
-        self assert: sd scale == 2.
+	| sd |
+	sd := '123.s2' asNumber.
+	self assert: (ScaledDecimal ? FixedPoint) == sd class.
+	self assert: sd scale == 2.
 
-        Smalltalk isSmalltalkX ifTrue:[
-            self assert: '123.00' = sd printString.
-            self assert: '123.00s2' = sd storeString.
-        ] ifFalse:[
-            self assert: '123.00s2' = sd printString.
-        ]
+	Smalltalk isSmalltalkX ifTrue:[
+	    self assert: '123.00' = sd printString.
+	    self assert: '123.00s2' = sd storeString.
+	] ifFalse:[
+	    self assert: '123.00s2' = sd printString.
+	]
 
     "Created: / 09-08-2011 / 21:26:20 / cg"
 !
 
 test08_AsNumberWithoutDecimalPoint
 
-        | sd |
-        sd := '123s0' asNumber.
-        self assert: (ScaledDecimal ? FixedPoint) == sd class.
-        self assert: sd scale == 0.
+	| sd |
+	sd := '123s0' asNumber.
+	self assert: (ScaledDecimal ? FixedPoint) == sd class.
+	self assert: sd scale == 0.
 
-        Smalltalk isSmalltalkX ifTrue:[
-            self assert: '123' = sd printString.
-            self assert: '123s0' = sd storeString.
-        ] ifFalse:[
-            self assert: '123s0' = sd printString.
-        ]
+	Smalltalk isSmalltalkX ifTrue:[
+	    self assert: '123' = sd printString.
+	    self assert: '123s0' = sd storeString.
+	] ifFalse:[
+	    self assert: '123s0' = sd printString.
+	]
 
     "Created: / 09-08-2011 / 21:26:25 / cg"
 !
 
 test09_AsNumberWithoutDecimalPoint2
 
-        | sd |
-        sd := '123s2' asNumber.
-        self assert: (ScaledDecimal ? FixedPoint) == sd class.
-        self assert: sd scale == 2.
+	| sd |
+	sd := '123s2' asNumber.
+	self assert: (ScaledDecimal ? FixedPoint) == sd class.
+	self assert: sd scale == 2.
 
-        Smalltalk isSmalltalkX ifTrue:[
-            self assert: '123.00' = sd printString.
-            self assert: '123.00s2' = sd storeString.
-        ] ifFalse:[
-            self assert: '123.00s2' = sd printString.
-        ]
+	Smalltalk isSmalltalkX ifTrue:[
+	    self assert: '123.00' = sd printString.
+	    self assert: '123.00s2' = sd storeString.
+	] ifFalse:[
+	    self assert: '123.00s2' = sd printString.
+	]
 
     "Created: / 09-08-2011 / 21:26:30 / cg"
 !
 
 test10_ConvertFromFloat
 
-        | aFloat sd f2 diff |
-        aFloat := 11/13 asFloat.
-        sd := aFloat asScaledDecimal: 2.
-        self assert: 2 == sd scale.
-        Smalltalk isSmalltalkX ifTrue:[
-            self assert: '0.85' = sd printString.
-        ] ifFalse:[
-            self assert: '0.84s2' = sd printString.
-        ].
-        f2 := sd asFloat.
-        diff := f2 - aFloat.
-        self assert: diff < 1.0e-9. "actually, f = f2, but this is not a requirement"
+	| aFloat sd f2 diff |
+	aFloat := 11/13 asFloat.
+	sd := aFloat asScaledDecimal: 2.
+	self assert: 2 == sd scale.
+	Smalltalk isSmalltalkX ifTrue:[
+	    self assert: '0.85' = sd printString.
+	] ifFalse:[
+	    self assert: '0.84s2' = sd printString.
+	].
+	f2 := sd asFloat.
+	diff := f2 - aFloat.
+	self assert: diff < 1.0e-9. "actually, f = f2, but this is not a requirement"
 
     "Created: / 09-08-2011 / 21:26:38 / cg"
 !
 
 test11_ConvertFromFraction
 
-        | sd |
-        sd := (13 / 11) asScaledDecimal: 6.
-        self assert: (ScaledDecimal ? FixedPoint) == sd class.
-        Smalltalk isSmalltalkX ifTrue:[
-            self assert: ('1.181818' = sd printString).
-        ] ifFalse:[
-            self assert: ('1.181818s6' = sd printString).
-        ].
-        self assert: 6 == sd scale
+	| sd |
+	sd := (13 / 11) asScaledDecimal: 6.
+	self assert: (ScaledDecimal ? FixedPoint) == sd class.
+	Smalltalk isSmalltalkX ifTrue:[
+	    self assert: ('1.181818' = sd printString).
+	] ifFalse:[
+	    self assert: ('1.181818s6' = sd printString).
+	].
+	self assert: 6 == sd scale
 
     "Created: / 09-08-2011 / 21:26:43 / cg"
 !
 
 test12_ConvertFromInteger
-        "Converting an Integer to a ScaledDecimal yields a ScaledDecimal with
-        scale 0, regardless of the scale specified in the #asScaledDecimal: message."
+	"Converting an Integer to a ScaledDecimal yields a ScaledDecimal with
+	scale 0, regardless of the scale specified in the #asScaledDecimal: message."
 
-        | sd |
+	| sd |
 
-        Smalltalk isSmalltalkX ifTrue:[
-            "/ I think this behavior is wrong.
-            ^ self.
-        ].
+	Smalltalk isSmalltalkX ifTrue:[
+	    "/ I think this behavior is wrong.
+	    ^ self.
+	].
 
-        sd := 13 asScaledDecimal: 6.
-        self assert: 0 = sd scale.
-        self assert: ('13s0' = sd printString).
-        sd := -13 asScaledDecimal: 6.
-        self assert: 0 = sd scale.
-        self assert: ('-13s0' = sd printString).
-        sd := 130000000013 asScaledDecimal: 6.
-        self assert: 0 = sd scale.
-        self assert: ('130000000013s0' = sd printString).
-        sd := -130000000013 asScaledDecimal: 6.
-        self assert: 0 = sd scale.
-        self assert: ('-130000000013s0' = sd printString)
+	sd := 13 asScaledDecimal: 6.
+	self assert: 0 = sd scale.
+	self assert: ('13s0' = sd printString).
+	sd := -13 asScaledDecimal: 6.
+	self assert: 0 = sd scale.
+	self assert: ('-13s0' = sd printString).
+	sd := 130000000013 asScaledDecimal: 6.
+	self assert: 0 = sd scale.
+	self assert: ('130000000013s0' = sd printString).
+	sd := -130000000013 asScaledDecimal: 6.
+	self assert: 0 = sd scale.
+	self assert: ('-130000000013s0' = sd printString)
 
     "Created: / 09-08-2011 / 21:26:46 / cg"
 !
@@ -246,25 +246,25 @@
 test13_Literal1
     "s2 is not a message to be sent to a float"
 
-    self 
-        shouldnt:[ self literal_helper1 ] 
-        raise:MessageNotUnderstood
+    self
+	shouldnt:[ self literal_helper1 ]
+	raise:MessageNotUnderstood
 
     "Created: / 09-08-2011 / 21:26:55 / cg"
 !
 
 test14_Literal2
-        | sd |
+	| sd |
 
-        sd := 1.40s2.
-        self assert: (ScaledDecimal ? FixedPoint) == sd class.
-        self assert: sd scale == 2.
-        Smalltalk isSmalltalkX ifTrue:[
-            self assert: '1.40' = sd printString.
-            self assert: '1.40s2' = sd storeString.
-        ] ifFalse:[
-            self assert: '1.40s2' = sd printString.
-        ].
+	sd := 1.40s2.
+	self assert: (ScaledDecimal ? FixedPoint) == sd class.
+	self assert: sd scale == 2.
+	Smalltalk isSmalltalkX ifTrue:[
+	    self assert: '1.40' = sd printString.
+	    self assert: '1.40s2' = sd storeString.
+	] ifFalse:[
+	    self assert: '1.40s2' = sd printString.
+	].
 
     "Created: / 09-08-2011 / 21:27:01 / cg"
 !
@@ -273,19 +273,19 @@
     |value|
 
     Class withoutUpdatingChangesDo:[
-        self class
-            compile:
+	self class
+	    compile:
 'literal_helper2
     ^ 1.40s2.
 '
-            classified:'temporary'.
+	    classified:'temporary'.
 
-        Compiler stcCompileMethod:(self class compiledMethodAt:#literal_helper2).
+	Compiler stcCompileMethod:(self class compiledMethodAt:#literal_helper2).
     ].
 
-    self 
-        shouldnt:[ self literal_helper2 ] 
-        raise:MessageNotUnderstood.
+    self
+	shouldnt:[ self literal_helper2 ]
+	raise:MessageNotUnderstood.
 
     value := self literal_helper2.
     self assert:( value isFixedPoint ).
@@ -296,33 +296,33 @@
 !
 
 test16_PrintString
-        "The printed representation of a ScaledDecimal is truncated, not rounded.
-        Not sure if this is right, so this test describes the current Squeak implementation.
-        If someone knows a reason that rounding would be preferable, then update
-        this test."
+	"The printed representation of a ScaledDecimal is truncated, not rounded.
+	Not sure if this is right, so this test describes the current Squeak implementation.
+	If someone knows a reason that rounding would be preferable, then update
+	this test."
 
-        | sd |
+	| sd |
 
-        sd := (13 / 11) asScaledDecimal: 6.
-        Smalltalk isSmalltalkX ifTrue:[
-            self assert: ('1.181818' = sd printString).
-        ] ifFalse:[
-            self assert: ('1.181818s6' = sd printString).
-        ].
+	sd := (13 / 11) asScaledDecimal: 6.
+	Smalltalk isSmalltalkX ifTrue:[
+	    self assert: ('1.181818' = sd printString).
+	] ifFalse:[
+	    self assert: ('1.181818s6' = sd printString).
+	].
 
-        sd := (13 / 11) asScaledDecimal: 5.
-        Smalltalk isSmalltalkX ifTrue:[
-            self assert: ('1.18182' = sd printString).
-        ] ifFalse:[
-            self deny: ('1.18182s5' = sd printString).
-        ].
+	sd := (13 / 11) asScaledDecimal: 5.
+	Smalltalk isSmalltalkX ifTrue:[
+	    self assert: ('1.18182' = sd printString).
+	] ifFalse:[
+	    self deny: ('1.18182s5' = sd printString).
+	].
 
-        sd := (13 / 11) asScaledDecimal: 5.
-        Smalltalk isSmalltalkX ifTrue:[
-            self deny: ('1.18181' = sd printString).
-        ] ifFalse:[
-            self assert: ('1.18181s5' = sd printString).
-        ].
+	sd := (13 / 11) asScaledDecimal: 5.
+	Smalltalk isSmalltalkX ifTrue:[
+	    self deny: ('1.18181' = sd printString).
+	] ifFalse:[
+	    self assert: ('1.18181s5' = sd printString).
+	].
 
     "Created: / 09-08-2011 / 21:27:49 / cg"
 !
@@ -331,11 +331,11 @@
     |check|
 
     check := [:originalNum |
-        |s readNum|
+	|s readNum|
 
-        s := originalNum storeString.
-        readNum := Number readFrom:s.
-        self assert:readNum = originalNum.
+	s := originalNum storeString.
+	readNum := Number readFrom:s.
+	self assert:readNum = originalNum.
     ].
 
     check value:((FixedPoint fromString:'0.66666666')                   ).
hg/stx-goodies-regression