Added tests

packages/ChangesReloaded-Tests.package/CRBrowserTest.class/instance/testHasButtons.st

@@ -0,0 +1,5 @@
+testing-after-crash
+testHasButtons
+	self assert: #(( 'Recover unsnapshoted (lost) changes' #recoverChanges #alwaysEnabled 'Recovers all changes that were saved but not included in any Snapshot with for e.g. a Worldmenu save. These changes will not currently be in the Image. Click to recover them')
+		( 'Browse changes' #browseChanges #alwaysEnabled 
+		'Brows the changes that were made to the image')) equals: CRAfterCrashHelper new buttons

packages/ChangesReloaded-Tests.package/CRBrowserTest.class/instance/testOpensChangesBrowserAndCloses.st

@@ -0,0 +1,10 @@
+testing-after-crash
+testOpensChangesBrowserAndCloses
+	|window achelper|
+	window := CRAfterCrashHelper open.
+	self assert:  (World submorphs contains: [:a | (a model class) = CRAfterCrashHelper]).
+	achelper := window model.
+	achelper browseChanges.
+	self assert:  (World submorphs contains: [:a | (a model class) = CRAfterCrashHelper]) not.
+	self assert:  (World submorphs contains: [:a | (a model class) = CRBrowser]). 
+	(World submorphs do: [:a | ((a model class) = CRBrowser) ifTrue: [a closeBoxHit]]). 

packages/ChangesReloaded-Tests.package/CRBrowserTest.class/instance/testOpensInWorld.st

@@ -0,0 +1,7 @@
+testing-after-crash
+testOpensInWorld
+	|window|
+	window :=	CRAfterCrashHelper open.
+	self assert: (World submorphs contains: [:a | (a model class) = CRAfterCrashHelper]).
+	window delete.
+	self assert:  (World submorphs contains: [:a | (a model class) = CRAfterCrashHelper]) not.

packages/ChangesReloaded-Tests.package/CRBrowserTest.class/instance/testTokenFileExists.st

@@ -0,0 +1,3 @@
+testing-after-crash
+testTokenFileExists
+	self assert: (FileDirectory default fileOrDirectoryExists: 'unSnapshotedChanges.cb')

packages/ChangesReloaded-Tests.package/CRBrowserTest.class/methodProperties.json

@@ -32,12 +32,15 @@
 		"testCorrectGroupIndexSelectedWhenClicked" : "JA 7/1/2021 11:26",
 		"testCorrectSelectedIndicesOnInitialization" : "abd 7/2/2021 19:50",
 		"testGroupDescriptionAttributes" : "FK 7/12/2021 18:42",
+		"testHasButtons" : "valentindoering 7/17/2021 15:56",
 		"testHasSelectedChangeListItem" : "JA 7/1/2021 11:38",
 		"testIsLoadButtonEnabled" : "JA 7/1/2021 11:38",
 		"testIsPickButtonEnabled" : "JA 7/1/2021 11:38",
 		"testLoadButtonLabel" : "JA 7/1/2021 11:47",
 		"testNoChangesInfoText" : "TS 7/10/2021 14:33",
 		"testNumberOfPickedChangeListItems" : "JA 7/1/2021 11:47",
+		"testOpensChangesBrowserAndCloses" : "valentindoering 7/17/2021 15:55",
+		"testOpensInWorld" : "valentindoering 7/17/2021 15:54",
 		"testPickAllChangeListItems" : "SV 7/26/2020 11:33",
 		"testPickAllChangeListItemsWithPrepickedItem" : "JA 7/1/2021 11:44",
 		"testPickButtonLabel" : "FK 7/12/2021 17:59",
@@ -47,4 +50,5 @@
 		"testSelectedChangeListItemWhenNothingSelected" : "JA 7/1/2021 12:00",
 		"testSwitchingBetweenViews" : "mg 7/15/2020 19:58",
 		"testTogglePickStatus" : "FK 7/12/2021 18:14",
+		"testTokenFileExists" : "valentindoering 7/17/2021 15:53",
 		"world" : "mg 7/2/2020 14:01" } }