Squeak-dev October 2009

squeak-dev@lists.squeakfoundation.org

84 participants
353 discussions

The Trunk: CollectionsTests-nice.101.mcz
by commits＠source.squeak.org 05 Oct '09

05 Oct '09

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-nice.101.mcz ==================== Summary ==================== Name: CollectionsTests-nice.101 Author: nice Time: 5 October 2009, 12:26:49 pm UUID: 43a48a6e-6a25-418f-a9e5-d11b780b1615 Ancestors: CollectionsTests-dtl.100 Add tests from http://bugs.squeak.org/view.php?id=6535 keyBlock and sortBlock are lost when creating a collection of the same species. =============== Diff against CollectionsTests-dtl.100 =============== Item was added: + ClassTestCase subclass: #KeyedSetTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'CollectionsTests-Unordered'! + + !KeyedSetTest commentStamp: 'nice 5/22/2008 14:12' prior: 0! + KeyedSetTest hold sunit tests for class KeyedSet! Item was added: + ----- Method: SortedCollectionTest>>testSpeciesLooseSortBlock (in category 'basic') ----- + testSpeciesLooseSortBlock + "This is a non regression test for http://bugs.squeak.org/view.php?id=6535" + + | numbers reverseOrder firstThree | + numbers := #(1 2 3 4 5). + reverseOrder := SortedCollection sortBlock: [:x :y | x > y]. + reverseOrder addAll: numbers. + + "The elements are inverted" + self assert: [reverseOrder asArray = #(5 4 3 2 1)]. + + "Copy the first 3 elements" + firstThree := reverseOrder copyFrom: 1 to: 3. + + "It appears to work" + self assert: [firstThree asArray = #(5 4 3)]. + + "but we have lost the sort block" + firstThree add: 1. + + " firstThree is now #(1 5 4 3)!! " + self assert: [firstThree asArray = #(5 4 3 1)] "fails"! Item was added: + ----- Method: KeyedSetTest>>testSelect (in category 'tests') ----- + testSelect + "this is a non regression test for http://bugs.squeak.org/view.php?id=6535" + + | ks ks2 | + + "Creare a KeyedSet" + ks := KeyedSet keyBlock: [:e | e asInteger \\ 4]. + ks addAll: #(1.2 1.5 3.8 7.7 9.1 12.4 13.25 14.0 19.2 11.4). + + "There is non more than 4 possible keys (0 1 2 3)" + self assert: ks size <= 4. + + "Select some elements" + ks2 := ks select: [:e | e fractionPart > 0.5]. + + "If keyBlock was preserved, then still no more than 4 keys..." + ks2 addAll: #(1.2 1.5 3.8 7.7 9.1 12.4 13.25 14.0 19.2 11.4). + self assert: ks2 size <= 4.!

1 0

source.squeak.org deadly slow
by Nicolas Cellier 05 Oct '09

05 Oct '09

It's a nightmare to publish tonight and a check of http://source.squeak.org/trunk/ thru firefox gives me 502 Proxy Error The proxy server received an invalid response from an upstream server. The proxy server could not handle the request GET /trunk/. Reason: Error reading from remote server ping source.squeak.org PING source.squeak.org (85.10.195.197) 56(84) bytes of data. 64 bytes from box2.squeakfoundation.org (85.10.195.197): icmp_seq=1 ttl=56 time=59.3 ms 64 bytes from box2.squeakfoundation.org (85.10.195.197): icmp_seq=2 ttl=56 time=53.6 ms 64 bytes from box2.squeakfoundation.org (85.10.195.197): icmp_seq=3 ttl=56 time=53.0 ms 64 bytes from box2.squeakfoundation.org (85.10.195.197): icmp_seq=4 ttl=56 time=53.9 ms Nicolas

1 0

The Trunk: Kernel-nice.258.mcz
by commits＠source.squeak.org 04 Oct '09

04 Oct '09

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.258.mcz ==================== Summary ==================== Name: Kernel-nice.258 Author: nice Time: 4 October 2009, 11:38:54 am UUID: 0a436e14-7e47-4bbd-a5fd-1bc9f8b405c0 Ancestors: Kernel-nice.257 Patch for http://bugs.squeak.org/view.php?id=7401 Float negativeZero shallowCopy loose its negative sign. self assert: Float negativeZero copy hex = Float negativeZero hex. =============== Diff against Kernel-nice.257 =============== Item was changed: ----- Method: Float>>shallowCopy (in category 'copying') ----- shallowCopy + ^self - 0.0! - ^self + 0.0!

1 0

The Trunk: KernelTests-nice.98.mcz
by commits＠source.squeak.org 04 Oct '09

04 Oct '09

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.98.mcz ==================== Summary ==================== Name: KernelTests-nice.98 Author: nice Time: 4 October 2009, 11:30:05 am UUID: 23bf607a-e737-45a2-9486-ecebd3c4c343 Ancestors: KernelTests-nice.97 Test for http://bugs.squeak.org/view.php?id=7401 Float negativeZero shallowCopy loose its negative sign. self assert: Float negativeZero copy hex = Float negativeZero hex. =============== Diff against KernelTests-nice.97 =============== Item was added: + ----- Method: FloatTest>>testCopy (in category 'testing') ----- + testCopy + "Elementary tests" + self assert: 2.0 copy = 2.0. + self assert: -0.5 copy = -0.5. + + "Are exceptional Floats preserved by the copy ?" + self assert: Float nan copy isNaN. + self assert: Float infinity copy = Float infinity. + self assert: Float infinity negated copy = Float infinity negated. + + "Is the sign of zero preserved by the copy ?" + self assert: 0.0 copy hex = 0.0 hex. + self assert: Float negativeZero copy hex = Float negativeZero hex.!

1 0

The Trunk: Kernel-nice.257.mcz
by commits＠source.squeak.org 04 Oct '09

04 Oct '09

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.257.mcz ==================== Summary ==================== Name: Kernel-nice.257 Author: nice Time: 4 October 2009, 10:29:43 am UUID: 8c32510e-ff6a-4c4c-a134-d2885ca2f4d4 Ancestors: Kernel-nice.256 Fix red tests related to ScaledDecimal raisedToInteger: =============== Diff against Kernel-nice.256 =============== Item was added: + ----- Method: ScaledDecimal>>raisedToInteger: (in category 'mathematical functions') ----- + raisedToInteger: aNumber + ^self class newFromNumber: (fraction raisedToInteger: aNumber) scale: scale! Item was removed: - ----- Method: ScaledDecimal class>>one (in category 'constants') ----- - one - "Answer the receiver's representation of one." - ^ self newFromNumber: 1 scale: 0!

1 0

The Trunk: KernelTests-nice.97.mcz
by commits＠source.squeak.org 04 Oct '09

04 Oct '09

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.97.mcz ==================== Summary ==================== Name: KernelTests-nice.97 Author: nice Time: 4 October 2009, 10:15:29 am UUID: c1724359-077f-45e4-8252-d181bce38f4b Ancestors: KernelTests-nice.96 Tests from http://bugs.squeak.org/view.php?id=6781 plus additional tests for license clean #reciprocal #/ etc... =============== Diff against KernelTests-nice.96 =============== Item was added: + ----- Method: NumberTest>>testOne (in category 'tests') ----- + testOne + + self + assert: Integer one = 1; + assert: Float one = 1.0; + assert: Fraction one = 1! Item was added: + ----- Method: FloatTest>>testRaisedTo (in category 'testing - arithmetic') ----- + testRaisedTo + "this is a test related to http://bugs.squeak.org/view.php?id=6781" + + self should: [0.0 raisedTo: -1] raise: ZeroDivide. + self should: [0.0 raisedTo: -1.0] raise: ZeroDivide.! Item was added: + ----- Method: ScaledDecimalTest>>testZeroRaisedToInteger (in category 'tests') ----- + testZeroRaisedToInteger + "Zero might be handle specially" + + self should: [0.0s1 raisedToInteger: -1] raise: Error. + self assert: (0.0s1 raisedToInteger: 0) = 1. + self assert: (0.0s1 raisedToInteger: 0) scale = 1. + self assert: (0.0s1 raisedToInteger: 1) = 0. + self assert: (0.0s1 raisedToInteger: 1) scale = 1. + self assert: (0.0s1 raisedToInteger: 2) = 0. + self assert: (0.0s1 raisedToInteger: 2) scale = 1.! Item was added: + ----- Method: NumberTest>>testRaisedToIntegerWithFloats (in category 'tests') ----- + testRaisedToIntegerWithFloats + + self + assert: (2.0 raisedToInteger: 0) = 1.0; + assert: (2.0 raisedToInteger: 1) = 2.0; + assert: (2.0 raisedToInteger: 4) = 16.0; + assert: (0.0 raisedToInteger: 0) = 1.0; + assert: (0.0 raisedToInteger: 2) = 0.0; + assert: (2.0 raisedToInteger: -1) = 0.5; + assert: (2.0 raisedToInteger: -4) = 0.0625. + + self + assert: (-3.0 raisedTo: 0) = 1.0; + assert: (-3.0 raisedTo: 1) = -3.0; + assert: (-3.0 raisedTo: 2) = 9.0; + assert: (-3.0 raisedTo: 3) = -27.0; + assert: (-2.0 raisedTo: -2) = 0.25; + assert: (-2.0 raisedTo: -3) = -0.125. + + self should: [ 0.0 raisedTo: -1 ] raise: ZeroDivide! Item was added: + ----- Method: ScaledDecimalTest>>testScaleExtension (in category 'tests') ----- + testScaleExtension + "The scale is extended to the larger one in case of arithmetic operation" + + #( #* #+ #- #/) do: [:op | + self assert: (2.5s1 perform: op with: 1.000s3) scale = 3. + self assert: (3.5000s4 perform: op with: 1.0s1) scale = 4.]! Item was added: + ----- Method: NumberTest>>testReciprocal (in category 'tests') ----- + testReciprocal + + self + assert: 1 reciprocal = 1; + assert: 2 reciprocal = (1/2); + assert: -1 reciprocal = -1; + assert: -3 reciprocal = (-1/3). + + self should: [ 0 reciprocal ] raise: ZeroDivide! Item was added: + ----- Method: NumberTest>>testRaisedTo (in category 'tests') ----- + testRaisedTo + "this is a test related to http://bugs.squeak.org/view.php?id=6781" + + self should: [0 raisedTo: -1] raise: ZeroDivide. + self should: [0 raisedTo: -1.0] raise: ZeroDivide.! Item was added: + ----- Method: ScaledDecimalTest>>testRaisedToInteger (in category 'tests') ----- + testRaisedToInteger + "Raising to integer should preserve class and scale" + + self assert: (3.0s1 raisedToInteger: -1) scale = 1. + self assert: (3.0s1 raisedToInteger: -1) = (1/3). + self assert: (3.0s1 raisedToInteger: 0) scale = 1. + self assert: (3.0s1 raisedToInteger: 0) = 1. + self assert: (3.0s1 raisedToInteger: 1) scale = 1. + self assert: (3.0s1 raisedToInteger: 1) = 3. + self assert: (3.0s1 raisedToInteger: 2) scale = 1. + self assert: (3.0s1 raisedToInteger: 2) = 9.! Item was added: + ----- Method: FractionTest>>testReciprocal (in category 'tests - sinuses') ----- + testReciprocal + + self + assert: (1/2) reciprocal = 2; + assert: (3/4) reciprocal = (4/3); + assert: (-1/3) reciprocal = -3; + assert: (-3/5) reciprocal = (-5/3)! Item was changed: ----- Method: FloatTest>>testDivide (in category 'testing - arithmetic') ----- testDivide + + self assert: 1.5 / 2.0 = 0.75. + + self assert: 2.0 / 1 = 2.0. + + self should: [ 2.0 / 0 ] raise: ZeroDivide. + self should: [ 2.0 / 0.0 ] raise: ZeroDivide. + self should: [ 1.2 / Float negativeZero ] raise: ZeroDivide. + self should: [ 1.2 / (1.3 - 1.3) ] raise: ZeroDivide + ! - self assert: 2.0 / 1 = 2. - self should: [ 2.0 / 0 ] raise: ZeroDivide.! Item was added: + ----- Method: NumberTest>>testFractionPart (in category 'tests') ----- + testFractionPart + + self + assert: 2 fractionPart = 0; + assert: (1/2) fractionPart = (1/2); + assert: (4/3) fractionPart = (1/3); + assert: 2.0 fractionPart = 0.0; + assert: 0.5 fractionPart = 0.5; + assert: 2.5 fractionPart = 0.5 + ! Item was added: + ----- Method: NumberTest>>testIntegerPart (in category 'tests') ----- + testIntegerPart + + self + assert: 2 integerPart = 2; + assert: (1/2) integerPart = 0; + assert: (4/3) integerPart = 1; + assert: 2.0 integerPart = 2.0; + assert: 0.5 integerPart = 0.0; + assert: 2.5 integerPart = 2.0 + ! Item was added: + ----- Method: ScaledDecimalTest>>testOneRaisedToInteger (in category 'tests') ----- + testOneRaisedToInteger + "One might be handled specially" + + self assert: (1.0s1 raisedToInteger: -1) scale = 1. + self assert: (1.0s1 raisedToInteger: -1) = 1. + self assert: (1.0s1 raisedToInteger: 0) scale = 1. + self assert: (1.0s1 raisedToInteger: 0) = 1. + self assert: (1.0s1 raisedToInteger: 1) scale = 1. + self assert: (1.0s1 raisedToInteger: 1) = 1. + self assert: (1.0s1 raisedToInteger: 2) scale = 1. + self assert: (1.0s1 raisedToInteger: 2) = 1.! Item was added: + ----- Method: FloatTest>>testReciprocal (in category 'NaN behavior') ----- + testReciprocal + + self + assert: 1.0 reciprocal = 1.0; + assert: 2.0 reciprocal = 0.5; + assert: -1.0 reciprocal = -1.0; + assert: -2.0 reciprocal = -0.5. + + self should: [ 0.0 reciprocal ] raise: ZeroDivide! Item was added: + ----- Method: NumberTest>>testRaisedToInteger (in category 'tests') ----- + testRaisedToInteger + + self + assert: (2 raisedToInteger: 0) = 1; + assert: (2 raisedToInteger: 1) = 2; + assert: (2 raisedToInteger: 4) = 16; + assert: (0 raisedToInteger: 0) = 1; + assert: (0 raisedToInteger: 2) = 0; + assert: (2 raisedToInteger: -1) = (1/2); + assert: (2 raisedToInteger: -4) = (1/16). + + self + assert: (-3 raisedTo: 0) = 1; + assert: (-3 raisedTo: 1) = -3; + assert: (-3 raisedTo: 2) = 9; + assert: (-3 raisedTo: 3) = -27; + assert: (-3 raisedTo: -2) = (1/9); + assert: (-3 raisedTo: -3) = (-1/27). + + self should: [ 0 raisedTo: -1 ] raise: ZeroDivide!

1 0

The Trunk: Exceptions-nice.13.mcz
by commits＠source.squeak.org 04 Oct '09

04 Oct '09

Nicolas Cellier uploaded a new version of Exceptions to project The Trunk: http://source.squeak.org/trunk/Exceptions-nice.13.mcz ==================== Summary ==================== Name: Exceptions-nice.13 Author: nice Time: 4 October 2009, 10:12:46 am UUID: 1997a445-0428-4bb1-9551-ee9f8d9cab35 Ancestors: Exceptions-eem.12 Add signalWithDividend: method needed by license clean #reciprocal #/ =============== Diff against Exceptions-eem.12 =============== Item was added: + ----- Method: ZeroDivide class>>signalWithDividend: (in category 'signaling') ----- + signalWithDividend: aDividend + + ^(self dividend: aDividend) signal!

1 0

Re: [squeak-dev] The Trunk: Morphic-ar.195.mcz
by Hans-Martin Mosner 04 Oct '09

04 Oct '09

commits(a)source.squeak.org schrieb: > Andreas Raab uploaded a new version of Morphic to project The Trunk: > http://source.squeak.org/trunk/Morphic-ar.195.mcz > The method LayoutFrame>>minExtentFrom: in that version raises a division by zero exception if leftFraction=rightFraction or topFraction=bottomFraction. The following version avoids this. Cheers, Hans-Martin minExtentFrom: minExtent "Return the minimal extent the given bounds can be represented in" | width height left right top bottom | left := leftFraction ifNil: [0.0]. right := rightFraction ifNil: [1.0]. width := left = right ifTrue: [0] ifFalse: [minExtent x / (right - left)]. top := topFraction ifNil: [0.0]. bottom := bottomFraction ifNil: [1.0]. height := top = bottom ifTrue: [0] ifFalse: [minExtent y / (bottom - top)]. leftOffset ifNotNil:[width := width + leftOffset]. rightOffset ifNotNil:[width := width + rightOffset]. topOffset ifNotNil:[height := height + topOffset]. bottomOffset ifNotNil:[height := height + bottomOffset]. ^width truncated @ height truncated

1 0

The Trunk: Kernel-nice.256.mcz
by commits＠source.squeak.org 04 Oct '09

04 Oct '09

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.256.mcz ==================== Summary ==================== Name: Kernel-nice.256 Author: nice Time: 4 October 2009, 9:50:10 am UUID: a9171183-4c69-4fea-9279-058519685204 Ancestors: Kernel-nice.255 Fix for http://bugs.squeak.org/view.php?id=6781 self should: [0.0 raisedTo: -1.0] raise: ZeroDivide. I used the license clean fix from Pharo here and also introduce license clean #raisedToInteger: #/ #reciprocal #one by GabrielOmarCotelli This code is MIT as Gabriel signed the pharo agreement. =============== Diff against Kernel-nice.255 =============== Item was changed: + ----- Method: Fraction>>reciprocal (in category 'private') ----- - ----- Method: Fraction>>reciprocal (in category 'arithmetic') ----- reciprocal + + numerator abs = 1 ifTrue: [^denominator * numerator]. + ^self class numerator: denominator denominator: numerator! - "Refer to the comment in Number|reciprocal." - #Numeric. - "Changed 200/01/19 For ANSI <number> support." - numerator = 0 ifTrue: [^ (ZeroDivide dividend: self) signal"<- Chg"]. - numerator = 1 ifTrue: [^ denominator]. - numerator = -1 ifTrue: [^ denominator negated]. - ^ Fraction numerator: denominator denominator: numerator! Item was added: + ----- Method: Number class>>one (in category 'constants') ----- + one + + ^1! Item was changed: ----- Method: Number>>reciprocal (in category 'arithmetic') ----- reciprocal + "Returns the reciprocal of self. + In case self is 0 the / signals ZeroDivide" + + ^1 / self! - "Answer 1 divided by the receiver. Create an error notification if the - receiver is 0." - #Numeric. - "Changed 200/01/19 For ANSI <number> support." - self = 0 ifTrue: [^ (ZeroDivide dividend: self) signal"<- Chg"]. - ^ 1 / self! Item was changed: ----- Method: Float class>>one (in category 'constants') ----- one + + ^1.0! - #Numeric. - "add 200/01/19 For <number> protocol support." - ^ 1.0! Item was changed: ----- Method: Float>>reciprocal (in category 'arithmetic') ----- reciprocal + + "Returns the reciprocal. + If self is 0.0 the / signals a ZeroDivide" + + ^1.0 / self! - #Numeric. - "Changed 200/01/19 For ANSI <number> support." - self = 0 ifTrue: ["<- Chg" - ^ (ZeroDivide dividend: self) signal"<- Chg"]. - "<- Chg" - ^ 1.0 / self! Item was changed: ----- Method: Float>>/ (in category 'arithmetic') ----- / aNumber "Primitive. Answer the result of dividing receiver by aNumber. Fail if the argument is not a Float. Essential. See Object documentation whatIsAPrimitive." <primitive: 50> + aNumber = 0.0 ifTrue: [ ZeroDivide signalWithDividend: self]. + ^aNumber adaptToFloat: self andSend: #/! - aNumber isZero ifTrue: [^(ZeroDivide dividend: self) signal]. - ^ aNumber adaptToFloat: self andSend: #/! Item was changed: ----- Method: Number>>raisedToInteger: (in category 'mathematical functions') ----- + raisedToInteger: anInteger + + "The 0 raisedToInteger: 0 is an special case. In some contexts must be 1 and in others must + be handled as an indeterminate form. + I take the first context because that's the way that was previously handled. + Maybe further discussion is required on this topic." + + |bitProbe result| + + anInteger negative ifTrue: [^(self raisedToInteger: anInteger negated) reciprocal]. + bitProbe := 1 bitShift: anInteger highBit - 1. + result := self class one. + [ + (anInteger bitAnd: bitProbe) = 0 ifFalse: [result := result * self]. + bitProbe := bitProbe bitShift: -1. + bitProbe > 0 ] + whileTrue: [result := result * result]. + + ^result! - raisedToInteger: operand - "Answer the receiver raised to the power operand, an Integer." - | count result | - #Numeric. - "Changed 200/01/19 For ANSI <number> support." - operand isInteger ifFalse: [^ ArithmeticError signal: 'parameter is not an Integer'"<- Chg"]. - operand = 0 ifTrue: [^ self class one]. - operand = 1 ifTrue: [^ self]. - operand < 0 ifTrue: [^ (self raisedToInteger: operand negated) reciprocal]. - count := 1. - [(count := count + count) < operand] whileTrue. - result := self class one. - [count > 0] - whileTrue: - [result := result * result. - (operand bitAnd: count) - = 0 ifFalse: [result := result * self]. - count := count bitShift: -1]. - ^ result! Item was changed: ----- Method: SmallInteger>>/ (in category 'arithmetic') ----- / aNumber "Primitive. This primitive (for /) divides the receiver by the argument and returns the result if the division is exact. Fail if the result is not a whole integer. Fail if the argument is 0 or is not a SmallInteger. Optional. No Lookup. See Object documentation whatIsAPrimitive." <primitive: 10> aNumber isZero ifTrue: [^(ZeroDivide dividend: self) signal]. + ^(aNumber isMemberOf: SmallInteger) + ifTrue: [(Fraction numerator: self denominator: aNumber) reduced] + ifFalse: [super / aNumber]! - (aNumber isMemberOf: SmallInteger) - ifTrue: [^(Fraction numerator: self denominator: aNumber) reduced] - ifFalse: [^super / aNumber]! Item was changed: ----- Method: Number>>integerPart (in category 'truncation and round off') ----- integerPart + "Added for ANSI compatibility" + ^self truncated! - "Answer the integer part of the receiver." - #Numeric. - "2000/03/04 Harmon R. Added ANSI <number> protocol" - ^ self truncated! Item was changed: ----- Method: Number>>fractionPart (in category 'truncation and round off') ----- fractionPart + + "Added for ANSI compatibility" + + ^self - self integerPart! - "Answer the fractional part of the receiver." - #Numeric. - "2000/03/04 Harmon R. Added ANSI <number> protocol" - ^ self - self truncated! Item was changed: ----- Method: Number>>raisedTo: (in category 'mathematical functions') ----- raisedTo: aNumber "Answer the receiver raised to aNumber." aNumber isInteger ifTrue: ["Do the special case of integer power" ^ self raisedToInteger: aNumber]. self < 0 ifTrue: [ self error: self printString, ' raised to a non-integer power' ]. + 0 = aNumber ifTrue: [^ self class one]. "Special case of exponent=0" + 1 = aNumber ifTrue: [^ self]. "Special case of exponent=1" + 0 = self ifTrue: [ "Special case of self = 0" + aNumber < 0 + ifTrue: [^ (ZeroDivide dividend: self) signal] + ifFalse: [^ self]]. - aNumber = 0 ifTrue: [^ 1]. "Special case of exponent=0" - (self = 0) | (aNumber = 1) ifTrue: - [^ self]. "Special case of exponent=1" ^ (aNumber * self ln) exp "Otherwise use logarithms"! Item was removed: - ----- Method: Float>>raisedTo: (in category 'mathematical functions') ----- - raisedTo: aNumber - "Answer the receiver raised to aNumber." - - aNumber isInteger ifTrue: - ["Do the special case of integer power" - ^ self raisedToInteger: aNumber]. - self < 0.0 ifTrue: - [ ArithmeticError signal: ' raised to a non-integer power' ]. - 0.0 = aNumber ifTrue: [^ 1.0]. "special case for exponent = 0.0" - (self= 0.0) | (aNumber = 1.0) ifTrue: [^ self]. "special case for self = 1.0" - ^ (self ln * aNumber asFloat) exp "otherwise use logarithms" - ! Item was removed: - ----- Method: Integer class>>one (in category 'constants') ----- - one - #Numeric. - "add 200/01/19 For <number> protocol support." - ^ 1! Item was removed: - ----- Method: Fraction class>>one (in category 'constants') ----- - one - #Numeric. - "add 200/01/19 For <number> protocol support." - ^ self numerator: 1 denominator: 1!

1 0

The Trunk: MultilingualTests-nice.1.mcz
by commits＠source.squeak.org 04 Oct '09

04 Oct '09

Nicolas Cellier uploaded a new version of MultilingualTests to project The Trunk: http://source.squeak.org/trunk/MultilingualTests-nice.1.mcz ==================== Summary ==================== Name: MultilingualTests-nice.1 Author: nice Time: 4 October 2009, 8:57:57 am UUID: 2102586c-e118-48bd-813d-c7c8b3612255 Ancestors: Put tests from http://bugs.squeak.org/view.php?id=6933 in this package. ==================== Snapshot ==================== SystemOrganization addCategory: #'MultilingualTests-TextConversion'! TestCase subclass: #MultiByteFileStreamTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'MultilingualTests-TextConversion'! ----- Method: MultiByteFileStreamTest>>testBinaryUpTo (in category 'testing') ----- testBinaryUpTo "This is a non regression test for bug http://bugs.squeak.org/view.php?id=6933" | foo | foo := MultiByteFileStream forceNewFileNamed: 'foobug6933'. [foo binary. foo nextPutAll: #(1 2 3 4) asByteArray] ensure: [foo close]. foo := MultiByteFileStream oldFileNamed: 'foobug6933'. [foo binary. self assert: (foo upTo: 3) = #(1 2 ) asByteArray] ensure: [foo close]!

1 0

Jump to page: