"{ 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 := Win32OperatingSystem::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$'
! !