--- Begin Message ---
Hello,
I am unfortunately not able to register at https://pharo.fogbugz.com/
because "/issues-register-service not found".
This is why I post the following bug here:
I attached a test case and how that somebody can recreate it.
I just downloaded a Pharo 8.0 64Bit image with the pharolauncher to a
Windows 10 machine.
Depending on my actions within the dev environment the test case passes
or fails in the last two asserts.
What one has to do is just run the test and see if it fails the first time.
If it does not fail then:
1. Remove the comment in the test method.
2. Within the System Browser navigate to the ValueHolderTestClass and
back to ValueHolderTestCase again.
3. Rerun the test
With a little back and forth you will eventually see the last asserts
fails with
"TestFailure: Got '13' instead for 'Test3' "
It would be highly appreciated if somebody with access to
pharo.fogbugz.com would find the time to try this and upload the
information provided.
Here the full info about the image:
Pharo 8.0.0
Build information:
Pharo-8.0.0+build.1124.sha.0932da82f08175e906b0e2a8052120c823374e9f (64 Bit)
Thank you!
Cheers!
Sebastian
'From Pharo8.0.0 of 22 January 2020 [Build information:
Pharo-8.0.0+build.1124.sha.0932da82f08175e906b0e2a8052120c823374e9f (64 Bit)]
on 13 June 2020 at 10:20:33.617211 pm'!
TestCase subclass: #ValueHolderTestCase
instanceVariableNames: ''
classVariableNames: ''
package: 'Become-Test'!
!ValueHolderTestCase methodsFor: 'tests' stamp: 'SebastianHeidbrink 6/13/2020
22:20'!
testValueChangeBasicType
| holder1 holder2 string |
holder1 := ValueHolderTestClass new.
holder2 := ValueHolderTestClass new.
string := 'Test'.
holder1 value1: string.
holder2 value1: string.
self assert: holder1 value1 equals: 'Test'.
self assert: holder2 value1 equals: 'Test'.
string become: '1'.
self deny: holder1 value1 equals: '1'.
self deny: holder2 value1 equals: '1'.
string := '2'.
self deny: holder1 value1 equals: '2'.
self deny: holder2 value1 equals: '2'.
self deny: holder1 value1 equals: '1'.
self deny: holder2 value1 equals: '1'.
holder1 value1: holder1 value1 , '3'.
holder2 value1: holder2 value1 , '3'.
"remove or replace this comment with cr.
Switch to ValueHolderTestClass in same system browser and back.
Rerun this test
The following assert will fail with '13'
Reintroducing the comment may make this test pass again"
self assert: holder1 value1 equals: 'Test3'.
self assert: holder2 value1 equals: 'Test3'! !
'From Pharo8.0.0 of 22 January 2020 [Build information:
Pharo-8.0.0+build.1124.sha.0932da82f08175e906b0e2a8052120c823374e9f (64 Bit)]
on 13 June 2020 at 10:12:08.905211 pm'!
Object subclass: #ValueHolderTestClass
instanceVariableNames: 'holder1 holder2 holder3'
classVariableNames: ''
package: 'Become-Test'!
!ValueHolderTestClass methodsFor: 'accessing' stamp: 'SebastianHeidbrink
6/13/2020 20:10'!
value2: anObject
holder2 value: anObject! !
!ValueHolderTestClass methodsFor: 'accessing' stamp: 'SebastianHeidbrink
6/13/2020 21:33'!
value1
^holder1 value! !
!ValueHolderTestClass methodsFor: 'accessing' stamp: 'SebastianHeidbrink
6/13/2020 20:08'!
holder1: anObject
holder1 := anObject! !
!ValueHolderTestClass methodsFor: 'accessing' stamp: 'SebastianHeidbrink
6/13/2020 20:10'!
value1: anObject
holder1 value: anObject! !
!ValueHolderTestClass methodsFor: 'accessing' stamp: 'SebastianHeidbrink
6/13/2020 21:33'!
value2
^holder2 value! !
!ValueHolderTestClass methodsFor: 'accessing' stamp: 'SebastianHeidbrink
6/13/2020 21:33'!
value3
^holder3 value! !
!ValueHolderTestClass methodsFor: 'accessing' stamp: 'SebastianHeidbrink
6/13/2020 20:08'!
holder2: anObject
holder2 := anObject! !
!ValueHolderTestClass methodsFor: 'accessing' stamp: 'SebastianHeidbrink
6/13/2020 20:08'!
holder2
^ holder2! !
!ValueHolderTestClass methodsFor: 'accessing' stamp: 'SebastianHeidbrink
6/13/2020 20:08'!
holder1
^ holder1! !
!ValueHolderTestClass methodsFor: 'accessing' stamp: 'SebastianHeidbrink
6/13/2020 20:11'!
initialize
super initialize.
holder1 := NewValueHolder new.
holder2 := NewValueHolder new.
holder3 := NewValueHolder new.! !
!ValueHolderTestClass methodsFor: 'accessing' stamp: 'SebastianHeidbrink
6/13/2020 20:08'!
holder3
^ holder3! !
!ValueHolderTestClass methodsFor: 'accessing' stamp: 'SebastianHeidbrink
6/13/2020 20:08'!
holder3: anObject
holder3 := anObject! !
!ValueHolderTestClass methodsFor: 'accessing' stamp: 'SebastianHeidbrink
6/13/2020 20:10'!
value3: anObject
holder3 value: anObject! !
--- End Message ---
