RegressionTests__OS_OLE_Tests.st
author Claus Gittinger <cg@exept.de>
Tue, 07 Feb 2006 13:01:11 +0100
changeset 305 7977ecd7d5f3
parent 304 35d41f29f588
child 306 a92346e4f3c4
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
302
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'exept:regression' }"
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
"{ NameSpace: RegressionTests }"
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
TestCase subclass:#OS_OLE_Tests
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	instanceVariableNames:''
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	classVariableNames:''
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
	poolDictionaries:''
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
	category:'OS-Testing'
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
!
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
!OS_OLE_Tests class methodsFor:'documentation'!
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
documentation
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
"
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
    documentation to be added.
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
    [author:]
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
        cg (cg@FUSI)
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
    [instance variables:]
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
    [class variables:]
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
    [see also:]
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
"
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
!
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
history
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
    "Created: / 06-02-2006 / 16:53:36 / cg"
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
! !
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
!OS_OLE_Tests methodsFor:'tests'!
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
305
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    36
test01_loadTypeLib
302
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
    "This is a demonstration testCase - it is meant to be removed eventually.
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
     This testCase will PASS.
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
     Double click on the TestCase class or open a TestRunner to see me checking...
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
     - please add more methods like this..."
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
    |handle|
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
304
35d41f29f588 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 303
diff changeset
    44
    handle := Win32OperatingSystem::Win32TypeLibraryHandle 
35d41f29f588 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 303
diff changeset
    45
                loadTypeLib:'C:\WINDOWS\system32\stdole32.tlb'.
35d41f29f588 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 303
diff changeset
    46
    self assert: ( handle notNil ).
35d41f29f588 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 303
diff changeset
    47
    handle close.
35d41f29f588 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 303
diff changeset
    48
35d41f29f588 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 303
diff changeset
    49
    handle := Win32OperatingSystem::Win32TypeLibraryHandle 
35d41f29f588 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 303
diff changeset
    50
                loadTypeLib:'c:\WINDOWS\system32\Macromed\Flash\swflash.ocx'.
302
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
    self assert: ( handle notNil ).
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
    handle close.
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
    "
305
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    55
     self run:#test01_loadTypeLib
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    56
     self new test01_loadTypeLib
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    57
    "
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    58
!
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    59
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    60
test02_getTypeInfoCount
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    61
    "This is a demonstration testCase - it is meant to be removed eventually.
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    62
     This testCase will PASS.
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    63
     Double click on the TestCase class or open a TestRunner to see me checking...
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    64
     - please add more methods like this..."
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    65
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    66
    |handle numInfo|
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    67
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    68
    handle := Win32OperatingSystem::Win32TypeLibraryHandle 
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    69
                loadTypeLib:'C:\WINDOWS\system32\stdole32.tlb'.
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    70
    self assert: ( handle notNil ).
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    71
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    72
    numInfo := handle getTypeInfoCount.
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    73
    self assert: ( numInfo > 0 ).
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    74
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    75
    handle close.
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    76
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    77
    "
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    78
     self run:#test02_getTypeInfoCount
7977ecd7d5f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    79
     self new test02_getTypeInfoCount
302
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
    "
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
! !
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
!OS_OLE_Tests class methodsFor:'documentation'!
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
version
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
    ^ '$Header$'
20e3b5826f86 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
! !