| 1 | "{ Encoding: utf8 }" !
|
|---|
| 2 | !Tools::NewSystemBrowserTests methodsFor:'tests'!
|
|---|
| 3 |
|
|---|
| 4 | test_issue_246_a
|
|---|
| 5 | | codeView codeViewInteractor mthdView mthdViewInteractor |
|
|---|
| 6 |
|
|---|
| 7 | Class withoutUpdatingChangesDo:[
|
|---|
| 8 | self class compile: 'qux \^ self foo' withCRs classified: 'mocks - dynamic'.
|
|---|
| 9 | self class compile: 'baz \^ self qux' withCRs classified: 'mocks - dynamic'.
|
|---|
| 10 | ].
|
|---|
| 11 |
|
|---|
| 12 | self assert: (self class >> #qux) mclass == self class.
|
|---|
| 13 | self assert: (self class >> #baz) mclass == self class.
|
|---|
| 14 |
|
|---|
| 15 | browserInteractor do:[ browser switchToClass: self class selector: #qux ].
|
|---|
| 16 | self assert: browser theSingleSelectedMethod == (self class >> #qux).
|
|---|
| 17 |
|
|---|
| 18 | codeView := browser codeView.
|
|---|
| 19 | codeViewInteractor := codeView interactor.
|
|---|
| 20 | mthdView := (browser builder findComponentAt:#MethodList) application builder componentAt:#List.
|
|---|
| 21 | mthdViewInteractor := mthdView interactor.
|
|---|
| 22 | self assert: mthdView selection = #(2).
|
|---|
| 23 |
|
|---|
| 24 | self error: 'Unfinished test, how to intercept the dialog?'.
|
|---|
| 25 |
|
|---|
| 26 | codeViewInteractor do:[ codeView textView deleteLine: 2 ].
|
|---|
| 27 | mthdViewInteractor do:[ mthdView selectFirst ].
|
|---|
| 28 |
|
|---|
| 29 | "Created: / 11-10-2018 / 08:35:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|---|
| 30 | ! !
|
|---|
| 31 |
|
|---|
