equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 "{ Package: 'exept:regression' }" |
1 "{ Package: 'exept:regression' }" |
4 |
2 |
5 "{ NameSpace: RegressionTests }" |
3 "{ NameSpace: RegressionTests }" |
6 |
4 |
7 TestCase subclass:#Win32OLETests |
5 TestCase subclass:#Win32OLETests |
45 self assert:(iid_IEnum printString = '{2AE64960-CDDD-101C-9029-040224007802}'). |
43 self assert:(iid_IEnum printString = '{2AE64960-CDDD-101C-9029-040224007802}'). |
46 |
44 |
47 " |
45 " |
48 self new test00_loadOLE |
46 self new test00_loadOLE |
49 " |
47 " |
|
48 ! |
|
49 |
|
50 test01_SysAllocString |
|
51 |ole rslt bstr| |
|
52 |
|
53 ole := OLEAutomationDLL current. |
|
54 rslt := ole SysAllocString: 'hello World'. |
|
55 |
|
56 self assert:(rslt notNil). |
|
57 bstr := BSTR atAddress:rslt. |
|
58 self halt. |
|
59 |
|
60 " |
|
61 self new test01_SysAllocString |
|
62 " |
50 ! ! |
63 ! ! |
51 |
64 |
52 !Win32OLETests class methodsFor:'documentation'! |
65 !Win32OLETests class methodsFor:'documentation'! |
53 |
66 |
54 version |
67 version |