ENH: Introduce ccaosdb version function and use in test

src/CaosDB.jl

@@ -29,7 +29,7 @@ export evaluate_return_code,
     CaosDBException, ClientException, GenericCaosDBException, CaosDBMessage
 
 # Exports from module Utility
-export get_env_fallback
+export get_ccaosdb_version, get_env_fallback
 
 # Export from module Connection
 export connect, connect_manually

src/Utility.jl

@@ -22,7 +22,7 @@
 #
 module Utility
 
-export get_env_fallback
+export get_ccaosdb_version, get_env_fallback
 
 using ..CaosDB
 
@@ -47,4 +47,22 @@ function get_env_fallback(var::AbstractString, default::AbstractString = "")
 
 end
 
+"""
+    function get_ccaosdb_version()
+
+Return the version of the CaosDB C interface that is used by
+CaosDB.jl.
+"""
+function get_ccaosdb_version()
+
+    major =
+        ccall((:caosdb_constants_LIBCAOSDB_VERSION_MAJOR, CaosDB.library_name), Cint, ())
+    minor =
+        ccall((:caosdb_constants_LIBCAOSDB_VERSION_MINOR, CaosDB.library_name), Cint, ())
+    patch =
+        ccall((:caosdb_constants_LIBCAOSDB_VERSION_PATCH, CaosDB.library_name), Cint, ())
+
+    return VersionNumber("$major.$minor.$patch")
+end
+
 end # Utility

test/runtests.jl

@@ -25,21 +25,7 @@ using CaosDB
 
 @testset "CaosDBUnitTests" begin
     @testset "TestCaosdbCppLibVersion" begin
-        @test ccall(
-            (:caosdb_constants_LIBCAOSDB_VERSION_MAJOR, CaosDB.library_name),
-            Cint,
-            ()
-        ) == 0
-        @test ccall(
-            (:caosdb_constants_LIBCAOSDB_VERSION_MINOR, CaosDB.library_name),
-            Cint,
-            ()
-        ) == 0
-        @test ccall(
-            (:caosdb_constants_LIBCAOSDB_VERSION_PATCH, CaosDB.library_name),
-            Cint,
-            ()
-        ) == 16
+        @test CaosDB.Utility.get_ccaosdb_version() >= v"0.0.16"
     end
 
     @testset "TestUtility" begin