"
 COPYRIGHT (c) 2017 Jan Vrany
              All Rights Reserved

 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
"
"{ Package: 'stx:libtool/tests' }"

"{ NameSpace: Tools }"

TestCase subclass:#NewSystemBrowserTests
	instanceVariableNames:'browser browserInteractor'
	classVariableNames:''
	poolDictionaries:''
	category:'Interface-Browsers-New-Tests'
!

!NewSystemBrowserTests class methodsFor:'documentation'!

copyright
"
 COPYRIGHT (c) 2017 Jan Vrany
              All Rights Reserved

 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
"
! !

!NewSystemBrowserTests methodsFor:'mocks'!

foo
    ^ 1

    "Created: / 07-08-2017 / 16:07:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!NewSystemBrowserTests methodsFor:'running'!

setUp
    Screen current isNil ifTrue:[
    	Smalltalk openDisplay.
    ].
    self skipIf:Screen current isNil description:'No display connection'.
    Smalltalk loadPackage:'stx:goodies/sunit/ext/ui'.
    super setUp.

    browser := Tools::NewSystemBrowser new.
    browser open.
    browserInteractor := browser interactor.
    MessageTracer untraceMethod: (self class >> #foo)

    "Add your own code here..."

    "Modified: / 15-10-2017 / 21:54:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

tearDown
    browser closeDownViews.
    browser := browserInteractor := nil.
    MessageTracer untraceMethod: (self class >> #foo)


    "Add your own code here..."

    "Created: / 07-08-2017 / 16:25:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!NewSystemBrowserTests methodsFor:'tests'!

test_issue_108_a

    self assert: (self class >> #foo) mclass == self class.
    self assert: (self class >> #foo) isWrapped not.

    browserInteractor do:[ browser switchToClass: self class selector: #foo ].
    self assert: browser theSingleSelectedMethod == (self class >> #foo).
    "
    browser selectedMethods onChangeEvaluate: [ self halt ]
    "
    browserInteractor do:[ browser  debugMenuTrace ].
    self assert: (self class >> #foo) == (browser theSingleSelectedMethod).
    self assert: (self class >> #foo) mclass == self class.
    self assert: (self class >> #foo) isWrapped.
    self assert: (self class >> #foo) originalMethod isWrapped not.

    browserInteractor do:[ browser  debugMenuTraceSender ].
    self assert: (self class >> #foo) == (browser theSingleSelectedMethod).
    self assert: (self class >> #foo) mclass == self class.
    self assert: (self class >> #foo) isWrapped.
    self assert: (self class >> #foo) originalMethod isWrapped not.

    browserInteractor do:[ browser  debugMenuRemoveBreakOrTrace ].
    self assert: (self class >> #foo) == (browser theSingleSelectedMethod).
    self assert: (self class >> #foo) mclass == self class.
    self assert: (self class >> #foo) isWrapped not.

    "Created: / 07-08-2017 / 16:07:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    "Modified: / 15-10-2017 / 23:25:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

test_issue_108_b

    self assert: (self class >> #foo) mclass == self class.
    self assert: (self class >> #foo) isWrapped not.

    browserInteractor do:[ browser switchToClass: self class selector: #foo ].
    self assert: browser theSingleSelectedMethod == (self class >> #foo).
    "
    browser selectedMethods onChangeEvaluate: [ self halt ]
    (browser builder findComponentAt:#MethodList) application selectedMethodNameIndices onChangeEvaluate: [ self halt ].
    "
    browserInteractor do:[ browser  debugMenuBreakPoint ].
    self assert: (self class >> #foo) == (browser theSingleSelectedMethod).
    self assert: (self class >> #foo) mclass == self class.
    self assert: (self class >> #foo) isWrapped.
    self assert: (self class >> #foo) originalMethod isWrapped not.

    browserInteractor do:[ browser  debugMenuRemoveBreakOrTrace ].
    self assert: (self class >> #foo) == (browser theSingleSelectedMethod).
    self assert: (self class >> #foo) mclass == self class.
    self assert: (self class >> #foo) isWrapped not.

    "Created: / 15-10-2017 / 22:30:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!NewSystemBrowserTests class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'
! !