diff --git a/src/NewTools-SettingsBrowser-Tests/StSettingsTrackerTest.class.st b/src/NewTools-SettingsBrowser-Tests/StSettingsTrackerTest.class.st index 9058021f..459aa395 100644 --- a/src/NewTools-SettingsBrowser-Tests/StSettingsTrackerTest.class.st +++ b/src/NewTools-SettingsBrowser-Tests/StSettingsTrackerTest.class.st @@ -8,26 +8,6 @@ Class { #package : 'NewTools-SettingsBrowser-Tests' } -{ #category : 'private' } -StSettingsTrackerTest >> newMockSetting: aMockSetting asSTON: stream [ - - ^ (STONWriter on: (ZnCharacterWriteStream on: stream)) - prettyPrint: true; - newLine: OSPlatform current lineEnding; - nextPut: aMockSetting - -] - -{ #category : 'private' } -StSettingsTrackerTest >> newMockSettingAsSTONString: aMockSetting [ - - ^ (ByteArray streamContents: [ :stream | - self - newMockSetting: aMockSetting - asSTON: stream ]) asString - -] - { #category : 'private' } StSettingsTrackerTest >> newMockSettingDeclaration: id [ @@ -53,11 +33,6 @@ StSettingsTrackerTest >> newSettingsTracker [ StSettingsTrackerTest >> setUp [ super setUp. - - self flag: #ToDo. - "This is wrong but CI is failing without it (needs more work)" - StSettingsTracker reset. - tracker := StSettingsTracker new. ] @@ -85,20 +60,6 @@ StSettingsTrackerTest >> tearDown [ super tearDown ] -{ #category : 'tests' } -StSettingsTrackerTest >> testBooleanSettingTracked [ - "Check if the updated setting was tracked" - - | settingItem numberOfUpdates | - - self skip: 'For some reason it does not pass in CI but in the image does'. - numberOfUpdates := tracker sessionLog size. - settingItem := true asSettingPresenter: (self newMockSettingDeclaration: 1). - settingItem value: false. - - "self assert: tracker sessionLog size equals: numberOfUpdates + 1" -] - { #category : 'tests' } StSettingsTrackerTest >> testBooleanSettingUpdated [ "Check if the updated setting was tracked" @@ -116,23 +77,6 @@ StSettingsTrackerTest >> testBooleanSettingUpdated [ ] -{ #category : 'tests' } -StSettingsTrackerTest >> testNumberSettingTracked [ - "Check if the updated setting was tracked" - - | settingItem numberOfUpdates | - - numberOfUpdates := tracker sessionLog size. - - settingItem := 10 asSettingPresenter: (self newMockSettingDeclaration: 2). - settingItem value: 20. - self submitPresenter: settingItem. - - self assert: tracker sessionLog size equals: numberOfUpdates + 1. - settingItem delete. - -] - { #category : 'tests' } StSettingsTrackerTest >> testNumberSettingUpdated [ "Check if the updated setting was tracked" @@ -151,22 +95,6 @@ StSettingsTrackerTest >> testNumberSettingUpdated [ ] -{ #category : 'tests' } -StSettingsTrackerTest >> testTextSettingTracked [ - "Check if the updated setting was tracked" - - | settingItem numberOfUpdates | - - numberOfUpdates := tracker sessionLog size. - - settingItem := 'Adios' asSettingPresenter: (self newMockSettingDeclaration: 3). - settingItem value: 'Hola'. - self submitPresenter: settingItem. - - self assert: tracker sessionLog size equals: numberOfUpdates + 1. - settingItem delete. -] - { #category : 'tests' } StSettingsTrackerTest >> testTextSettingUpdated [ "Check if the updated setting was tracked"