"{ Package: 'stx:goodies/regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#Widgets
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'tests-Regression-UI'
!


!Widgets class methodsFor:'queries'!

coveredClassNames
    "should be redefined to return a collection of classes which are tested by
     this suite/case.
     If not redefined, coveredPackageNames should be.

     These classes can be instrumented for coverage analysis,
     before running the suite to provide coverage analysis/report"

    ^ #( EditTextView )

    "Created: / 06-07-2011 / 21:27:03 / cg"
    "Modified: / 21-03-2019 / 13:02:41 / Claus Gittinger"
! !

!Widgets methodsFor:'tests'!

test10_editTextView
    |editWidget rslt|

    editWidget := EditTextView new.
    editWidget contents:c'line1\nline2\nline3'.

    "/ notice the additional newline at the end
    self assert:(editWidget contents = c'line1\nline2\nline3\n').

    self assert:(editWidget cursorLine == 1).
    self assert:(editWidget cursorCol == 1).

    rslt := editWidget lineStringBeforeCursor.
    self assert:(rslt = '').
    
    editWidget cursorLine:2 col:1.
    rslt := editWidget lineStringBeforeCursor.
    self assert:(rslt = '').
    
    editWidget cursorLine:2 col:3.
    rslt := editWidget lineStringBeforeCursor.
    self assert:(rslt = 'li').

    editWidget cursorLine:2 col:20.
    rslt := editWidget lineStringBeforeCursor.
    self assert:(rslt = 'line2').

    "
     self new test10_editTextView
    "

    "Created: / 21-03-2019 / 13:02:23 / Claus Gittinger"
! !

!Widgets class methodsFor:'documentation'!

version_CVS
    ^ '$Header$'
! !