'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'! !