--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/LLVMModuleTests.st	Thu Sep 03 07:41:41 2015 +0100
@@ -0,0 +1,70 @@
+"
+    Copyright (C) 2015-now Jan Vrany
+
+    This code is not an open-source (yet). You may use this code
+    for your own experiments and projects, given that:
+
+    * all modification to the code will be sent to the
+      original author for inclusion in future releases
+    * this is not used in any commercial software
+
+    This license is provisional and may (will) change in
+    a future.
+"
+"{ Package: 'jv:llvm_s' }"
+
+"{ NameSpace: Smalltalk }"
+
+TestCase subclass:#LLVMModuleTests
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'LLVM-S-Core-Tests'
+!
+
+!LLVMModuleTests class methodsFor:'documentation'!
+
+copyright
+"
+    Copyright (C) 2015-now Jan Vrany
+
+    This code is not an open-source (yet). You may use this code
+    for your own experiments and projects, given that:
+
+    * all modification to the code will be sent to the
+      original author for inclusion in future releases
+    * this is not used in any commercial software
+
+    This license is provisional and may (will) change in
+    a future.
+"
+! !
+
+!LLVMModuleTests methodsFor:'tests'!
+
+test_functions_01
+    | module function |
+
+    module := LLVMModule new.
+    module addFunctionNamed: 'xxx'  type: (LLVMType function: { LLVMType int8 } returning: LLVMType int8).
+    function := module getFunctionNamed: 'xxx'.
+
+    self assert: function notNil.
+    self assert: function isLLVMFunction.
+
+    "Created: / 03-09-2015 / 06:48:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_intrinsics_01
+    | module intrinsic |
+
+    module := LLVMModule new.
+    intrinsic := module getIntrinsicNamed: 'llvm.trap'.
+
+    self assert: intrinsic notNil.
+    self assert: intrinsic isLLVMFunction.
+
+    "Created: / 02-09-2015 / 22:29:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-09-2015 / 06:31:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+