--- a/RegressionTests__Win32OLETests.st Tue Mar 29 18:33:14 2016 +0200
+++ b/RegressionTests__Win32OLETests.st Tue Mar 29 21:40:55 2016 +0200
@@ -69,10 +69,18 @@
test02_GuidFromProgID
|guid|
- guid := (GUID clsidFromProgID:'AcroPDF.PDF').
-
- self assert:(guid notNil).
- self assert:(guid printString = '').
+ OLEError handle:[:ex |
+ ex hresult = (OLEStatusCodeConstants at:#CO_E_CLASSSTRING) ifTrue:[
+ "/ kind of expected - you machin has no AcroPDF installed...
+ Transcript showCR:'OLE: class not found: AcroPDF.PDF'
+ ] ifFalse:[
+ self assert:false description:'unexpected error code'.
+ ]
+ ] do:[
+ guid := (GUID clsidFromProgID:'AcroPDF.PDF').
+ self assert:(guid notNil).
+ self assert:(guid printString = '').
+ ].
"
self new test02_GuidFromProgID