author | Jan Vrany <jan.vrany@labware.com> |
Fri, 18 Jun 2021 17:01:51 +0100 | |
branch | jv |
changeset 2598 | 5e6256e136d4 |
parent 1567 | e17701a073f9 |
permissions | -rwxr-xr-x |
1447 | 1 |
"{ Package: 'stx:goodies/regression' }" |
302 | 2 |
|
3 |
"{ NameSpace: RegressionTests }" |
|
4 |
||
5 |
TestCase subclass:#OS_OLE_Tests |
|
6 |
instanceVariableNames:'' |
|
7 |
classVariableNames:'' |
|
8 |
poolDictionaries:'' |
|
9 |
category:'OS-Testing' |
|
10 |
! |
|
11 |
||
12 |
!OS_OLE_Tests class methodsFor:'documentation'! |
|
13 |
||
14 |
documentation |
|
15 |
" |
|
16 |
documentation to be added. |
|
17 |
||
18 |
[author:] |
|
1447 | 19 |
cg (cg@FUSI) |
302 | 20 |
|
21 |
[instance variables:] |
|
22 |
||
23 |
[class variables:] |
|
24 |
||
25 |
[see also:] |
|
26 |
||
27 |
" |
|
28 |
! ! |
|
29 |
||
30 |
!OS_OLE_Tests methodsFor:'tests'! |
|
31 |
||
305 | 32 |
test01_loadTypeLib |
302 | 33 |
"This is a demonstration testCase - it is meant to be removed eventually. |
34 |
This testCase will PASS. |
|
35 |
Double click on the TestCase class or open a TestRunner to see me checking... |
|
36 |
- please add more methods like this..." |
|
37 |
||
38 |
|handle| |
|
39 |
||
319 | 40 |
handle := OleCom::ITypeLib loadTypeLib:'C:\WINDOWS\system32\stdole32.tlb'. |
304 | 41 |
self assert: ( handle notNil ). |
319 | 42 |
"/ handle release. |
304 | 43 |
|
319 | 44 |
handle := OleCom::ITypeLib loadTypeLib:'c:\WINDOWS\system32\Macromed\Flash\swflash.ocx'. |
302 | 45 |
self assert: ( handle notNil ). |
319 | 46 |
"/ handle release. |
302 | 47 |
|
48 |
" |
|
305 | 49 |
self run:#test01_loadTypeLib |
50 |
self new test01_loadTypeLib |
|
51 |
" |
|
52 |
! |
|
53 |
||
54 |
test02_getTypeInfoCount |
|
55 |
"This is a demonstration testCase - it is meant to be removed eventually. |
|
56 |
This testCase will PASS. |
|
57 |
Double click on the TestCase class or open a TestRunner to see me checking... |
|
58 |
- please add more methods like this..." |
|
59 |
||
60 |
|handle numInfo| |
|
61 |
||
319 | 62 |
handle := OleCom::ITypeLib loadTypeLib:'C:\WINDOWS\system32\stdole32.tlb'. |
305 | 63 |
self assert: ( handle notNil ). |
64 |
||
65 |
numInfo := handle getTypeInfoCount. |
|
66 |
self assert: ( numInfo > 0 ). |
|
67 |
||
319 | 68 |
"/ handle release. |
305 | 69 |
|
70 |
" |
|
71 |
self run:#test02_getTypeInfoCount |
|
72 |
self new test02_getTypeInfoCount |
|
302 | 73 |
" |
307 | 74 |
! |
75 |
||
76 |
test03_coInitialize |
|
1447 | 77 |
OleCom coInitialize. |
78 |
OleCom coUninitialize. |
|
307 | 79 |
|
80 |
" |
|
81 |
self run:#test03_coInitialize |
|
82 |
self new test03_coInitialize |
|
83 |
" |
|
302 | 84 |
! ! |
85 |
||
86 |
!OS_OLE_Tests class methodsFor:'documentation'! |
|
87 |
||
88 |
version |
|
89 |
^ '$Header$' |
|
90 |
! ! |
|
1567
e17701a073f9
Added abstract VMSpawningTestCase
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1500
diff
changeset
|
91 |