equal
deleted
inserted
replaced
67 ! |
67 ! |
68 |
68 |
69 test02_GuidFromProgID |
69 test02_GuidFromProgID |
70 |guid| |
70 |guid| |
71 |
71 |
|
72 self |
|
73 should:[ |
|
74 guid := (GUID clsidFromProgID:'Foo.Bar'). |
|
75 ] raise:OLEError. |
|
76 |
72 OLEError handle:[:ex | |
77 OLEError handle:[:ex | |
73 ex hresult = (OLEStatusCodeConstants at:#CO_E_CLASSSTRING) ifTrue:[ |
78 ex hresult = (OLEStatusCodeConstants at:#CO_E_CLASSSTRING) ifTrue:[ |
74 "/ kind of expected - you machin has no AcroPDF installed... |
79 "/ kind of expected - you machine has no AcroPDF installed... |
75 Transcript showCR:'OLE: class not found: AcroPDF.PDF' |
80 Transcript showCR:'OLE: class not found: AcroPDF.PDF' |
76 ] ifFalse:[ |
81 ] ifFalse:[ |
77 self assert:false description:'unexpected error code'. |
82 self assert:false description:'unexpected error code'. |
78 ] |
83 ] |
79 ] do:[ |
84 ] do:[ |