hg/stx-goodies-regression: RegressionTests__UTF8TestClass.st@9fab806f93ee (annotated)

237 9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Encoding: utf8 }"
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	"{ Package: 'exept:regression' }"
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	Object subclass:#UTF8TestClass
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	instanceVariableNames:''
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	classVariableNames:''
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	poolDictionaries:''
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9	category:'tests'
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	!
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	!UTF8TestClass methodsFor:'tests'!
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	someJapaneseButton
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	(Button label:'日本') open
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	"
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	self new someJapaneseButton
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	"
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	!
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	someJapaneseString
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24	^ '日本'
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	! !
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	!UTF8TestClass class methodsFor:'documentation'!
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	version
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	^ '$Header$'
9fab806f93ee initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 03 Mar 2004 22:55:42 +0100
changeset 237	9fab806f93ee
child 271	fd8a67bb1e22
permissions	-rw-r--r--