"{ Encoding: utf8 }"

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

"{ NameSpace: RegressionTests }"

Object subclass:#UTF8TestClass

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression-Files and Encodings'

!

!UTF8TestClass class methodsFor:'others'!

version_CVS

    ^ '$Header$'

! !

!UTF8TestClass methodsFor:'tests'!

someJapaneseButton

    (Button label:'日本') open

    "

     self new someJapaneseButton

    "

!

someJapaneseString

    ^ '日本'

! !

!UTF8TestClass class methodsFor:'documentation'!

version

    ^ '$Header$'

! !