RegressionTests__Win32OLETests.st
changeset 1375 7be5753688a8
parent 1374 caed36c1303d
child 1376 d2973f7acf8c
--- 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