--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RegressionTests__OS_OLE_Tests.st	Mon Feb 06 16:56:44 2006 +0100
@@ -0,0 +1,58 @@
+"{ Package: 'exept:regression' }"
+
+"{ NameSpace: RegressionTests }"
+
+TestCase subclass:#OS_OLE_Tests
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'OS-Testing'
+!
+
+!OS_OLE_Tests class methodsFor:'documentation'!
+
+documentation
+"
+    documentation to be added.
+
+    [author:]
+        cg (cg@FUSI)
+
+    [instance variables:]
+
+    [class variables:]
+
+    [see also:]
+
+"
+!
+
+history
+    "Created: / 06-02-2006 / 16:53:36 / cg"
+! !
+
+!OS_OLE_Tests methodsFor:'tests'!
+
+test1
+    "This is a demonstration testCase - it is meant to be removed eventually.
+     This testCase will PASS.
+     Double click on the TestCase class or open a TestRunner to see me checking...
+     - please add more methods like this..."
+
+    |handle|
+
+    handle := OperatingSystem::Win32TypeLibraryHandle loadTypeLib:'C:\WINDOWS\system32\stdole32.tlb'.
+    self assert: ( handle notNil ).
+    handle close.
+
+    "
+     self run:#test1
+     self new test1
+    "
+! !
+
+!OS_OLE_Tests class methodsFor:'documentation'!
+
+version
+    ^ '$Header$'
+! !