equal
deleted
inserted
replaced
35 Double click on the TestCase class or open a TestRunner to see me checking... |
35 Double click on the TestCase class or open a TestRunner to see me checking... |
36 - please add more methods like this..." |
36 - please add more methods like this..." |
37 |
37 |
38 |handle| |
38 |handle| |
39 |
39 |
|
40 "/ Only implemented on Windows (adjust if this is ever ported to macOS, OS/2, ...) |
|
41 OperatingSystem isMSWINDOWSlike ifFalse:[ |
|
42 self skip. |
|
43 ]. |
|
44 |
40 handle := OleCom::ITypeLib loadTypeLib:'C:\WINDOWS\system32\stdole32.tlb'. |
45 handle := OleCom::ITypeLib loadTypeLib:'C:\WINDOWS\system32\stdole32.tlb'. |
41 self assert: ( handle notNil ). |
46 self assert: ( handle notNil ). |
42 "/ handle release. |
47 "/ handle release. |
43 |
48 |
44 handle := OleCom::ITypeLib loadTypeLib:'c:\WINDOWS\system32\Macromed\Flash\swflash.ocx'. |
49 handle := OleCom::ITypeLib loadTypeLib:'c:\WINDOWS\system32\Macromed\Flash\swflash.ocx'. |
47 |
52 |
48 " |
53 " |
49 self run:#test01_loadTypeLib |
54 self run:#test01_loadTypeLib |
50 self new test01_loadTypeLib |
55 self new test01_loadTypeLib |
51 " |
56 " |
|
57 |
|
58 "Modified: / 13-09-2017 / 10:37:48 / mawalch" |
52 ! |
59 ! |
53 |
60 |
54 test02_getTypeInfoCount |
61 test02_getTypeInfoCount |
55 "This is a demonstration testCase - it is meant to be removed eventually. |
62 "This is a demonstration testCase - it is meant to be removed eventually. |
56 This testCase will PASS. |
63 This testCase will PASS. |
57 Double click on the TestCase class or open a TestRunner to see me checking... |
64 Double click on the TestCase class or open a TestRunner to see me checking... |
58 - please add more methods like this..." |
65 - please add more methods like this..." |
59 |
66 |
60 |handle numInfo| |
67 |handle numInfo| |
|
68 |
|
69 "/ Only implemented on Windows (adjust if this is ever ported to macOS, OS/2, ...) |
|
70 OperatingSystem isMSWINDOWSlike ifFalse:[ |
|
71 self skip. |
|
72 ]. |
61 |
73 |
62 handle := OleCom::ITypeLib loadTypeLib:'C:\WINDOWS\system32\stdole32.tlb'. |
74 handle := OleCom::ITypeLib loadTypeLib:'C:\WINDOWS\system32\stdole32.tlb'. |
63 self assert: ( handle notNil ). |
75 self assert: ( handle notNil ). |
64 |
76 |
65 numInfo := handle getTypeInfoCount. |
77 numInfo := handle getTypeInfoCount. |
69 |
81 |
70 " |
82 " |
71 self run:#test02_getTypeInfoCount |
83 self run:#test02_getTypeInfoCount |
72 self new test02_getTypeInfoCount |
84 self new test02_getTypeInfoCount |
73 " |
85 " |
|
86 |
|
87 "Modified: / 13-09-2017 / 10:38:18 / mawalch" |
74 ! |
88 ! |
75 |
89 |
76 test03_coInitialize |
90 test03_coInitialize |
|
91 |
|
92 "/ Only implemented on Windows (adjust if this is ever ported to macOS, OS/2, ...) |
|
93 OperatingSystem isMSWINDOWSlike ifFalse:[ |
|
94 self skip. |
|
95 ]. |
|
96 |
77 OleCom coInitialize. |
97 OleCom coInitialize. |
78 OleCom coUninitialize. |
98 OleCom coUninitialize. |
79 |
99 |
80 " |
100 " |
81 self run:#test03_coInitialize |
101 self run:#test03_coInitialize |
82 self new test03_coInitialize |
102 self new test03_coInitialize |
83 " |
103 " |
|
104 |
|
105 "Modified: / 13-09-2017 / 10:38:29 / mawalch" |
84 ! ! |
106 ! ! |
85 |
107 |
86 !OS_OLE_Tests class methodsFor:'documentation'! |
108 !OS_OLE_Tests class methodsFor:'documentation'! |
87 |
109 |
88 version |
110 version |
89 ^ '$Header$' |
111 ^ '$Header$' |
90 ! ! |
112 ! ! |
|
113 |