-
Notifications
You must be signed in to change notification settings - Fork 5
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Merge branch 'development' into coverage
- Loading branch information
Showing
82 changed files
with
282 additions
and
313 deletions.
There are no files selected for viewing
12 changes: 12 additions & 0 deletions
12
packages/AlgernonTests.package/ALGTest.class/instance/assert.opensNewDialog..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,12 @@ | ||
testing | ||
assert: aBlock opensNewDialog: windowName | ||
|
||
| browsers newBrowsers | | ||
|
||
browsers := self findDialogWindowsByLabel: windowName. | ||
|
||
aBlock value. | ||
|
||
newBrowsers := self findNewDialogWindowsByLabel: windowName old: browsers. | ||
self assert: 1 equals: newBrowsers size. | ||
^ newBrowsers first |
12 changes: 12 additions & 0 deletions
12
packages/AlgernonTests.package/ALGTest.class/instance/assert.opensNewWindow..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,12 @@ | ||
testing | ||
assert: aBlock opensNewWindow: windowName | ||
|
||
| browsers newBrowsers | | ||
|
||
browsers := self findSystemWindowsByLabel: windowName. | ||
|
||
aBlock value. | ||
|
||
newBrowsers := self findNewSystemWindowsByLabel: windowName old: browsers. | ||
self assert: 1 equals: newBrowsers size. | ||
^ newBrowsers first |
16 changes: 5 additions & 11 deletions
16
packages/AlgernonTests.package/ALGTest.class/instance/assertQuery.opensNewWindow..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,14 +1,8 @@ | ||
testing | ||
assertQuery: query opensNewWindow: windowName | ||
|
||
| browsers newBrowsers | | ||
|
||
browsers := self findSystemWindowsByLabel: windowName. | ||
|
||
self runQuery: query. | ||
self activateCurrentItemAction. | ||
|
||
World doOneCycle. | ||
|
||
newBrowsers := self findNewSystemWindowsByLabel: windowName old: browsers. | ||
self assert: 1 equals: newBrowsers size | ||
^ self assert: | ||
[ self runQuery: query. | ||
self activateCurrentItemAction. | ||
World doOneCycle ] | ||
opensNewWindow: windowName |
8 changes: 8 additions & 0 deletions
8
.../AlgernonTests.package/ALGTest.class/instance/assertQuery.withCursorAt.opensNewWindow..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,8 @@ | ||
testing | ||
assertQuery: query withCursorAt: aCategory opensNewWindow: windowName | ||
|
||
^ self assert: | ||
[ self runQuery: query withCursorAt: aCategory. | ||
self activateCurrentItemAction. | ||
World doOneCycle ] | ||
opensNewWindow: windowName |
3 changes: 3 additions & 0 deletions
3
packages/AlgernonTests.package/ALGTest.class/instance/currentDialogWindows.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,3 @@ | ||
helpers | ||
currentDialogWindows | ||
^ DialogWindow allInstances |
11 changes: 11 additions & 0 deletions
11
packages/AlgernonTests.package/ALGTest.class/instance/deny.opensNewWindow..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,11 @@ | ||
testing | ||
deny: aBlock opensNewWindow: windowName | ||
|
||
| browsers newBrowsers | | ||
|
||
browsers := self findSystemWindowsByLabel: windowName. | ||
|
||
aBlock value. | ||
|
||
newBrowsers := self findNewSystemWindowsByLabel: windowName old: browsers. | ||
self assert: 0 equals: newBrowsers size |
8 changes: 8 additions & 0 deletions
8
packages/AlgernonTests.package/ALGTest.class/instance/denyQuery.opensNewWindow..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,8 @@ | ||
testing | ||
denyQuery: query opensNewWindow: windowName | ||
|
||
self deny: | ||
[ self runQuery: query. | ||
self activateCurrentItemAction. | ||
World doOneCycle ] | ||
opensNewWindow: windowName |
8 changes: 8 additions & 0 deletions
8
...es/AlgernonTests.package/ALGTest.class/instance/denyQuery.withCursorAt.opensNewWindow..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,8 @@ | ||
testing | ||
denyQuery: query withCursorAt: aCategory opensNewWindow: windowName | ||
|
||
self deny: | ||
[ self runQuery: query withCursorAt: aCategory. | ||
self activateCurrentItemAction. | ||
World doOneCycle ] | ||
opensNewWindow: windowName |
3 changes: 3 additions & 0 deletions
3
packages/AlgernonTests.package/ALGTest.class/instance/findDialogWindowsByLabel..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,3 @@ | ||
helpers | ||
findDialogWindowsByLabel: aString | ||
^ self currentDialogWindows select: [:each | each title asString asLowercase includesSubstring: aString asLowercase ] |
4 changes: 4 additions & 0 deletions
4
packages/AlgernonTests.package/ALGTest.class/instance/findNewDialogWindowsByLabel.old..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,4 @@ | ||
helpers | ||
findNewDialogWindowsByLabel: aString old: oldWindows | ||
^ ((self findDialogWindowsByLabel: aString) | ||
select: [:each | (oldWindows includes: each) not]) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
4 changes: 4 additions & 0 deletions
4
packages/AlgernonTests.package/ALGTestClassReload.class/instance/className.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,4 @@ | ||
running | ||
className | ||
|
||
^ #ALGDummyClass |
4 changes: 2 additions & 2 deletions
4
packages/AlgernonTests.package/ALGTestClassReload.class/instance/createClass.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,9 +1,9 @@ | ||
helpers | ||
createClass | ||
Object subclass: className | ||
Object subclass: self className | ||
instanceVariableNames: '' | ||
classVariableNames: '' | ||
poolDictionaries: '' | ||
category: self categoryNameForTemporaryClasses. | ||
#('foo' 'bar self foo' 'baz self bar') do: | ||
[:s| (Smalltalk at: className) compileSilently: s] | ||
[:s | (Smalltalk at: self className) compileSilently: s] |
4 changes: 2 additions & 2 deletions
4
packages/AlgernonTests.package/ALGTestClassReload.class/instance/deleteCategory.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,4 +1,4 @@ | ||
helpers | ||
deleteCategory | ||
(Smalltalk organization listAtCategoryNamed: self categoryNameForTemporaryClasses) isEmpty | ||
ifTrue: [Smalltalk organization removeCategory: self categoryNameForTemporaryClasses] | ||
(Smalltalk organization listAtCategoryNamed: self categoryNameForTemporaryClasses) | ||
ifEmpty: [Smalltalk organization removeCategory: self categoryNameForTemporaryClasses] |
2 changes: 1 addition & 1 deletion
2
packages/AlgernonTests.package/ALGTestClassReload.class/instance/deleteClass.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,5 +1,5 @@ | ||
helpers | ||
deleteClass | ||
| cl | | ||
cl := Smalltalk at: className ifAbsent: [^self]. | ||
cl := Smalltalk at: self className ifAbsent: [^self]. | ||
cl removeFromChanges; removeFromSystemUnlogged |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
|
@@ -2,5 +2,4 @@ running | |
setUp | ||
|
||
super setUp. | ||
className := #ALGDummyClass. | ||
self deleteClass |
6 changes: 3 additions & 3 deletions
6
packages/AlgernonTests.package/ALGTestClassReload.class/instance/testCreateAndDeleteClass.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,8 +1,8 @@ | ||
testing | ||
testCreateAndDeleteClass | ||
|
||
self deny: (self existsInResults: className). | ||
self deny: (self existsInResults: self className). | ||
self createClass. | ||
self assert: (self existsInResults: className). | ||
self assert: (self existsInResults: self className). | ||
self deleteClass. | ||
self deny: (self existsInResults: className) | ||
self deny: (self existsInResults: self className) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
7 changes: 1 addition & 6 deletions
7
packages/AlgernonTests.package/ALGTestGeneral.class/instance/testClassAction.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,8 +1,3 @@ | ||
testing interaction with tools | ||
testClassAction | ||
| oldBrowsers newBrowser | | ||
self runQuery: 'ALGCore' withCursorAt: 'Class'. | ||
oldBrowsers := self findSystemWindowsByLabel: 'System Browser'. | ||
self activateCurrentItemAction. | ||
newBrowser := (self findNewSystemWindowsByLabel: 'System Browser' old: oldBrowsers) first. | ||
self assert: (newBrowser label includesSubstring: 'ALGCore') | ||
self assertQuery: 'ALGCore' withCursorAt: 'Class' opensNewWindow: 'System Browser: ALGCore' |
9 changes: 4 additions & 5 deletions
9
...stDynamicItemsOnlyOnDefaultSearchLevel.st → ...testDynamicItemsNotInForeignChildLists.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,15 +1,14 @@ | ||
testing dynamic items | ||
testDynamicItemsOnlyOnDefaultSearchLevel | ||
testDynamicItemsNotInForeignChildLists | ||
|
||
self runQuery: 'Transcript clear'. | ||
self assert: ((self itemMorphs | ||
reject: [:each | each item isNil]) | ||
anySatisfy: [:each | each item algerType isKindOf: ALGDockingBarType ]). | ||
|
||
"increase search level" | ||
|
||
self runQuery: 'Monticello' withCursorAt: 'Package'. | ||
self algInstance showChildList. | ||
|
||
self deny: ((self itemMorphs | ||
reject: [:each | each item isNil]) | ||
anySatisfy: [:each | each item algerType isKindOf: ALGDockingBarType ]). | ||
anySatisfy: [:each | each item algerType isKindOf: ALGDockingBarType ]) |
6 changes: 1 addition & 5 deletions
6
packages/AlgernonTests.package/ALGTestGeneral.class/instance/testMethodAction.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,7 +1,3 @@ | ||
testing interaction with tools | ||
testMethodAction | ||
| oldWindows | | ||
self runQuery: 'testMethodAction' withCursorAt: 'Method'. | ||
oldWindows := (self findSystemWindowsByLabel: 'Implementors of testMethodAction'). | ||
self activateCurrentItemAction. | ||
self assert: (self findNewSystemWindowsByLabel: 'Implementors of testMethodAction' old: oldWindows) size equals: 1. | ||
self assertQuery: 'testMethodAction' withCursorAt: 'Method' opensNewWindow: 'Implementors of testMethodAction' |
8 changes: 1 addition & 7 deletions
8
packages/AlgernonTests.package/ALGTestGeneral.class/instance/testSettingsAction.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,9 +1,3 @@ | ||
testing interaction with tools | ||
testSettingsAction | ||
| oldSettings oldSettingsNumber | | ||
self runQuery: 'Algernon' withCursorAt: 'Setting'. | ||
oldSettings := self findSystemWindowsByLabel: 'Preference Browser'. | ||
oldSettingsNumber := PreferenceBrowser allInstances size. | ||
self activateCurrentItemAction. | ||
self assert: PreferenceBrowser allInstances size equals: oldSettingsNumber + 1. | ||
self deleteNewSystemWindowsByLabel: 'Preference Browser' old: oldSettings | ||
self assertQuery: 'Algernon' withCursorAt: 'Setting' opensNewWindow: 'Preference Browser' |
8 changes: 1 addition & 7 deletions
8
...ges/AlgernonTests.package/ALGTestGeneral.class/instance/testStaticDockingBarTypeAction.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,9 +1,3 @@ | ||
testing interaction with tools | ||
testStaticDockingBarTypeAction | ||
| oldProcessBrowsers oldProcessBrowserNumber | | ||
self runQuery: 'Process Browser' withCursorAt: 'Docking Bar Item'. | ||
oldProcessBrowsers := self findSystemWindowsByLabel: 'Process Browser'. | ||
oldProcessBrowserNumber := ProcessBrowser allInstances size. | ||
self activateCurrentItemAction. | ||
self assert: ProcessBrowser allInstances size equals: oldProcessBrowserNumber + 1. | ||
self deleteNewSystemWindowsByLabel: 'Process Browser' old: oldProcessBrowsers | ||
self assertQuery: 'Process Browser' withCursorAt: 'Docking Bar Item' opensNewWindow: 'Process Browser' |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
3 changes: 1 addition & 2 deletions
3
...rnonTests.package/ALGTestItemList.class/instance/testSelectedListItemWhenTitleSelected.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,9 +1,8 @@ | ||
testing | ||
testSelectedListItemWhenTitleSelected | ||
| item selectedItem | | ||
self algInstance activate. | ||
item := ALGResultItemMorph newWithContents: 'Test Title' in: self algInstance itemList. | ||
self algInstance itemList selectedItem: item. | ||
"A title item is not selectable, so selectedItemList should be NullItem" | ||
selectedItem := self algInstance itemList selectedListItem. | ||
self assert: selectedItem class equals: ALGNullItem. | ||
self assert: selectedItem class equals: ALGNullItem |
13 changes: 2 additions & 11 deletions
13
...nonTests.package/ALGTestItemList.class/instance/testTabDoesNotExecuteMultiActionResult.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,15 +1,6 @@ | ||
testing | ||
testTabDoesNotExecuteMultiActionResult | ||
|
||
| browserCount browsers | | ||
|
||
ALGCore executeOnTab: true. | ||
|
||
browserCount := (self findSystemWindowsByLabel: 'System Browser') size. | ||
|
||
self | ||
runQuery: 'ALGIconFactory'; | ||
keyTab. | ||
|
||
browsers := self findSystemWindowsByLabel: 'System Browser'. | ||
self assert: browsers size = browserCount | ||
deny: [self runQuery: 'ALGIconFactory'; keyTab] | ||
opensNewWindow: 'System Browser' |
13 changes: 2 additions & 11 deletions
13
...AlgernonTests.package/ALGTestItemList.class/instance/testTabExecutesSingleActionResult.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,15 +1,6 @@ | ||
testing | ||
testTabExecutesSingleActionResult | ||
|
||
| browserCount browsers | | ||
|
||
ALGCore executeOnTab: true. | ||
|
||
browserCount := (self findSystemWindowsByLabel: 'Preference Browser') size. | ||
|
||
self | ||
runQuery: 'Preferences'; | ||
keyTab. | ||
|
||
browsers := self findSystemWindowsByLabel: 'Preference Browser'. | ||
self assert: browsers size > browserCount | ||
assert: [self runQuery: 'Preferences'; keyTab] | ||
opensNewWindow: 'Preference Browser' |
11 changes: 2 additions & 9 deletions
11
....package/ALGTestItemList.class/instance/testTabExecutesSingleActionResultCanBeDisabled.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,15 +1,8 @@ | ||
testing | ||
testTabExecutesSingleActionResultCanBeDisabled | ||
|
||
| browserCount browsers | | ||
|
||
ALGCore executeOnTab: false. | ||
|
||
browserCount := (self findSystemWindowsByLabel: 'Preference Browser') size. | ||
|
||
self | ||
runQuery: 'Preferences'; | ||
keyTab. | ||
|
||
browsers := self findSystemWindowsByLabel: 'Preference Browser'. | ||
self assert: browsers size = browserCount | ||
deny: [self runQuery: 'Preferences'; keyTab] | ||
opensNewWindow: 'Preference Browser' |
Oops, something went wrong.