--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RegressionTests__ExternalInterfaceTests.st	Mon Apr 24 10:51:14 2006 +0200
@@ -0,0 +1,58 @@
+"{ Package: 'exept:regression' }"
+
+"{ NameSpace: RegressionTests }"
+
+TestCase subclass:#ExternalInterfaceTests
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'tests-Regression'
+!
+
+!ExternalInterfaceTests class methodsFor:'documentation'!
+
+documentation
+"
+    documentation to be added.
+
+    [author:]
+        cg (cg@FUSI)
+
+    [instance variables:]
+
+    [class variables:]
+
+    [see also:]
+
+"
+!
+
+history
+    "Created: / 23-04-2006 / 08:13:27 / cg"
+! !
+
+!ExternalInterfaceTests methodsFor:'tests'!
+
+test_call_01
+    |fn|
+
+    fn := ExternalLibraryFunction
+            name:'Beep' 
+            module:'kernel32.dll' 
+            callType:(ExternalLibraryFunction callTypeAPI)
+            returnType:(CType bool)
+            argumentTypes:(Array with:(CType unsignedLong) with:(CType unsignedLong)).
+
+    fn invokeWith:440 with:1.
+
+    "
+     self run:#test_call_01
+     self new test_call_01
+    "
+! !
+
+!ExternalInterfaceTests class methodsFor:'documentation'!
+
+version
+    ^ '$Header$'
+! !