hg/stx-goodies-regression: changeset 304:35d41f29f588

author	Claus Gittinger <cg@exept.de>
	Mon, 06 Feb 2006 22:34:39 +0100
changeset 304	35d41f29f588
parent 303	6664313f12a8
child 305	7977ecd7d5f3

*** empty log message ***

--- a/RegressionTests__OS_OLE_Tests.st	Mon Feb 06 16:57:17 2006 +0100
+++ b/RegressionTests__OS_OLE_Tests.st	Mon Feb 06 22:34:39 2006 +0100
@@ -41,7 +41,13 @@
 
     |handle|
 
-    handle := Win32OperatingSystem::Win32TypeLibraryHandle loadTypeLib:'C:\WINDOWS\system32\stdole32.tlb'.
+    handle := Win32OperatingSystem::Win32TypeLibraryHandle 
+                loadTypeLib:'C:\WINDOWS\system32\stdole32.tlb'.
+    self assert: ( handle notNil ).
+    handle close.
+
+    handle := Win32OperatingSystem::Win32TypeLibraryHandle 
+                loadTypeLib:'c:\WINDOWS\system32\Macromed\Flash\swflash.ocx'.
     self assert: ( handle notNil ).
     handle close.