RegressionTests__ImageReaderTest.st
author Claus Gittinger <cg@exept.de>
Tue, 02 Dec 2008 14:32:56 +0100
changeset 356 3f420735d670
child 357 01c5f0c27106
permissions -rw-r--r--
initial checkin
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
356
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'exept:regression' }"
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
"{ NameSpace: RegressionTests }"
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
TestCase subclass:#ImageReaderTest
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	instanceVariableNames:''
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	classVariableNames:''
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
	poolDictionaries:''
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
	category:'tests-Regression'
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
!
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
!ImageReaderTest class methodsFor:'documentation'!
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
documentation
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
"
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
    documentation to be added.
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
    [author:]
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
        cg (cg@AQUA-DUO)
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
    [instance variables:]
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
    [class variables:]
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
    [see also:]
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
"
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
!
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
history
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
    "Created: / 02-12-2008 / 14:24:54 / cg"
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
! !
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
!ImageReaderTest methodsFor:'initialize / release'!
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
setUp
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
    "common setup - invoked before testing."
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
    super setUp
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
!
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
tearDown
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
    "common cleanup - invoked after testing."
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
    super tearDown
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
! !
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
!ImageReaderTest methodsFor:'tests'!
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
test01
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
    |img|
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
    img := Image fromFile:(self class packageDirectory construct:'testData/test1.bmp').
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
    img := Image fromFile:(self class packageDirectory construct:'testData/test4.bmp').
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
    img := Image fromFile:(self class packageDirectory construct:'testData/test8.bmp').
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
    img := Image fromFile:(self class packageDirectory construct:'testData/test16.bmp').
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
    img := Image fromFile:(self class packageDirectory construct:'testData/test24.bmp').
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
    img := Image fromFile:(self class packageDirectory construct:'testData/test32.bmp').
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
    img := Image fromFile:(self class packageDirectory construct:'testData/testcompressed4.bmp').
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
    img := Image fromFile:(self class packageDirectory construct:'testData/testcompressed8.bmp').
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
    "
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
     self run:#test01
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
     self new test01
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
    "
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
! !
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
!ImageReaderTest class methodsFor:'documentation'!
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
version
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
    ^ '$Header$'
3f420735d670 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
! !