"{ Encoding: utf8 }"

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

"{ NameSpace: Smalltalk }"

TestCase subclass:#ResourcePackTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression-UI'

!

!ResourcePackTests class methodsFor:'queries'!

coveredClassNames

    "These classes can be instrumented for coverage analysis,

     before running the suite to provide coverage analysis/report"

    ^ #( ResourcePack )

! !

!ResourcePackTests methodsFor:'tests'!

test01_lineParsing

    |p|

    p := ResourcePack new.

    ResourcePack processResourceLine:'''foo1'' ''xlation_of_foo1''' encoding:nil file:'dummy.rc' printErrorWith:[:err | Logger warn:err] for:p keepUselessTranslations:false.

    self assert:(p at:'foo1') = 'xlation_of_foo1'.

    "/ c-strings?

    ResourcePack processResourceLine:'c''foo2\tfoo'' ''xlation_of_foo2''' encoding:nil file:'dummy.rc' printErrorWith:[:err | Logger warn:err] for:p keepUselessTranslations:false.

    ResourcePack processResourceLine:'c''foo3\tfoo'' c''xlation_\t_foo3''' encoding:nil file:'dummy.rc' printErrorWith:[:err | Logger warn:err] for:p keepUselessTranslations:false.

    self assert:(p at:c'foo2\tfoo') = 'xlation_of_foo2'.

    self assert:(p at:c'foo3\tfoo') = c'xlation_\t_foo3'.

    "

     self run:#test01_lineParsing

     self new test01_lineParsing

    "

! !

!ResourcePackTests class methodsFor:'documentation'!

version_CVS

    ^ '$Header$'

! !