Add an initial test working

Author: certik

CMakeLists.txt

@@ -1,4 +1,5 @@
 cmake_minimum_required(VERSION 2.8)
+enable_language(C Fortran)
 project(symengine.f90)
 
 set(CMAKE_PREFIX_PATH ${SymEngine_DIR} ${CMAKE_PREFIX_PATH})
@@ -64,4 +65,6 @@ message("HAVE_SYMENGINE_PIRANHA  : ${HAVE_SYMENGINE_PIRANHA}")
 message("HAVE_SYMENGINE_FLINT    : ${HAVE_SYMENGINE_FLINT}")
 message("HAVE_SYMENGINE_LLVM     : ${HAVE_SYMENGINE_LLVM}")
 
+enable_testing()
+
 add_subdirectory(src)

src/CMakeLists.txt

@@ -3,7 +3,7 @@ set(SRC
     basic.f90
     )
 
-include_directories(BEFORE ${python_wrapper_BINARY_DIR}/symengine/lib)
-
 add_library(symengine_f90 ${SRC})
 target_link_libraries(symengine_f90 ${SYMENGINE_LIBRARIES})
+
+add_subdirectory(tests)

src/basic.f90

@@ -1,6 +1,19 @@
 module basic
+use iso_c_binding, only: c_int
 implicit none
 
+interface
+    subroutine f_c(i) bind(c, name="f")
+    import :: c_int
+    integer(c_int), value, intent(in) :: i
+    end subroutine
+end interface
+
 contains
 
+subroutine f(i)
+integer, intent(in) :: i
+call f_c(i)
+end subroutine
+
 end module

src/tests/CMakeLists.txt

@@ -0,0 +1,11 @@
+include_directories(${PROJECT_BINARY_DIR}/src)
+
+macro(ADDTEST name)
+    add_executable(${name} ${name}.f90)
+    target_link_libraries(${name} symengine_f90)
+    add_test(${name} ${PROJECT_BINARY_DIR}/${name})
+endmacro(ADDTEST)
+
+project(tests)
+
+ADDTEST(test_basic)

src/tests/test_basic.f90

@@ -0,0 +1,9 @@
+program test_basic
+use basic, only: f
+implicit none
+
+call f(1)
+call f(2)
+call f(3)
+
+end program

src/wrapper.c

@@ -14,6 +14,10 @@ void f(int i)
     basic_mul(e, n, x);
     basic_add(e, e, y);
     s = basic_str(e);
-    printf("Result: %s", s);
+    printf("Result: %s\n", s);
     basic_str_free(s);
+    basic_free_stack(x);
+    basic_free_stack(y);
+    basic_free_stack(e);
+    basic_free_stack(n);
 }