Merge branch 'f-get-value' into 'dev'

F get value

See merge request !11

CHANGELOG.md

@@ -25,4 +25,6 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ### Fixed
 
+* `get_value` functions for properties and entities
+
 ### Security

src/CaosDB.jl

@@ -52,6 +52,7 @@ export get_id,
     get_datatype,
     get_unit,
     get_value,
+    get_property_list_length,
     get_version_id,
     get_property,
     get_properties,

src/Entity.jl

@@ -39,6 +39,7 @@ export get_id,
     get_datatype,
     get_unit,
     get_value,
+    get_property_list_length,
     get_version_id,
     get_property,
     get_properties,
@@ -756,10 +757,6 @@ function get_unit(property::Ref{_Property})
     return unsafe_string(out[])
 end
 
-# TODO(henrik,daniel) Replace ccall within the `get_value` function by
-# a check of the datatype and then call the correct function in case
-# of scalar values or construct a vector and fill it with all values
-# in case of list values.
 """
     function get_value(entity::Ref{_Entity})
 
@@ -767,41 +764,422 @@ Return the value of the given `entity`
 """
 function get_value(entity::Ref{_Entity})
 
-    out = Ref{Ptr{UInt8}}(Ptr{UInt8}())
+    _caosdb_dtypes = ("INTEGER", "DOUBLE", "BOOLEAN", "TEXT")
+
+    ent_datatype = get_datatype(entity)
+    is_list = ent_datatype[3]
+    if ent_datatype[1] in _caosdb_dtypes
+        if !is_list
+            if ent_datatype[1] == "INTEGER"
+                out = Ref{Clong}(0)
+                err_code = ccall(
+                    (:caosdb_entity_entity_get_int_value, CaosDB.library_name),
+                    Cint,
+                    (Ref{_Entity}, Ref{Clong}),
+                    entity,
+                    out,
+                )
 
+                out = out[]
+            elseif ent_datatype[1] == "DOUBLE"
+                out = Ref{Cdouble}(0)
+                err_code = ccall(
+                    (:caosdb_entity_entity_get_double_value, CaosDB.library_name),
+                    Cint,
+                    (Ref{_Entity}, Ref{Cdouble}),
+                    entity,
+                    out,
+                )
+                out = out[]
+            elseif ent_datatype[1] == "BOOLEAN"
+                out = Ref{Cint}(0)
+                err_code = ccall(
+                    (:caosdb_entity_entity_get_boolean_value, CaosDB.library_name),
+                    Cint,
+                    (Ref{_Entity}, Ref{Cint}),
+                    entity,
+                    out,
+                )
+                out = convert(Bool, out[])
+            elseif ent_datatype[1] == "TEXT"
+                out = Ref{Ptr{UInt8}}(Ptr{UInt8}())
+                err_code = ccall(
+                    (:caosdb_entity_entity_get_string_value, CaosDB.library_name),
+                    Cint,
+                    (Ref{_Entity}, Ref{Ptr{UInt8}}),
+                    entity,
+                    out,
+                )
+                out = unsafe_string(out[])
+            end
+        else
+            list_length = get_property_list_length(entity)
+            if ent_datatype[1] == "INTEGER"
+                out = Vector{Clong}()
+                for i::Cint = 1:list_length
+                    temp = get_int_list_value_at(entity, i)
+                    append!(out, temp)
+                end
+            elseif ent_datatype[1] == "DOUBLE"
+                out = Vector{Cdouble}()
+                for i::Cint = 1:list_length
+                    temp = get_double_list_value_at(entity, i)
+                    append!(out, temp)
+                end
+            elseif ent_datatype[1] == "BOOLEAN"
+                out = Vector{Bool}()
+                for i::Cint = 1:list_length
+                    temp = get_bool_list_value_at(entity, i)
+                    append!(out, temp)
+                end
+            elseif ent_datatype[1] == "TEXT"
+                out = Vector{String}()
+                for i::Cint = 1:list_length
+                    temp = get_string_list_value_at(entity, i)
+                    append!(out, [temp])
+                end
+            end
+        end
+    elseif ent_datatype[2]
+        # is reference
+        if !is_list
+            out = Ref{Ptr{UInt8}}(Ptr{UInt8}())
             err_code = ccall(
-        (:caosdb_entity_entity_get_value, CaosDB.library_name),
+                (:caosdb_entity_entity_get_string_value, CaosDB.library_name),
                 Cint,
                 (Ref{_Entity}, Ref{Ptr{UInt8}}),
                 entity,
                 out,
             )
+            out = unsafe_string(out[])
+        else
+            # is list of references
+            list_length = get_property_list_length(entity)
+            out = [get_string_list_value_at(entity, Cint(ii)) for ii = 1:list_length]
+        end
+    end
 
+    if @isdefined err_code
         CaosDB.Exceptions.evaluate_return_code(err_code)
+    end
 
-    return unsafe_string(out[])
+    return out
 end
 
 """
-    function get_value(entity::Ref{_Property})
+    function get_value(property::Ref{_Property})
 
 Return the value of the given `property`
 """
 function get_value(property::Ref{_Property})
 
-    out = Ref{Ptr{UInt8}}(Ptr{UInt8}())
+    _caosdb_dtypes = ("INTEGER", "DOUBLE", "BOOLEAN", "TEXT")
+
+    prop_datatype = get_datatype(property)
+    is_list = prop_datatype[3]
+    if prop_datatype[1] in _caosdb_dtypes
+        if !is_list
+            if prop_datatype[1] == "INTEGER"
+                out = Ref{Clong}(0)
+                err_code = ccall(
+                    (:caosdb_entity_property_get_int_value, CaosDB.library_name),
+                    Cint,
+                    (Ref{_Property}, Ref{Clong}),
+                    property,
+                    out,
+                )
 
+                out = out[]
+            elseif prop_datatype[1] == "DOUBLE"
+                out = Ref{Cdouble}(0)
                 err_code = ccall(
-        (:caosdb_entity_property_get_value, CaosDB.library_name),
+                    (:caosdb_entity_property_get_double_value, CaosDB.library_name),
+                    Cint,
+                    (Ref{_Property}, Ref{Cdouble}),
+                    property,
+                    out,
+                )
+                out = out[]
+            elseif prop_datatype[1] == "BOOLEAN"
+                out = Ref{Cint}(0)
+                err_code = ccall(
+                    (:caosdb_entity_property_get_boolean_value, CaosDB.library_name),
+                    Cint,
+                    (Ref{_Property}, Ref{Cint}),
+                    property,
+                    out,
+                )
+                out = convert(Bool, out[])
+            elseif prop_datatype[1] == "TEXT"
+                out = Ref{Ptr{UInt8}}(Ptr{UInt8}())
+                err_code = ccall(
+                    (:caosdb_entity_property_get_string_value, CaosDB.library_name),
                     Cint,
                     (Ref{_Property}, Ref{Ptr{UInt8}}),
                     property,
                     out,
                 )
+                out = unsafe_string(out[])
+            end
+        else
+            list_length = get_property_list_length(property)
+            if prop_datatype[1] == "INTEGER"
+                out = Vector{Clong}()
+                for i::Cint = 1:list_length
+                    temp = get_int_list_value_at(property, i)
+                    append!(out, temp)
+                end
+            elseif prop_datatype[1] == "DOUBLE"
+                out = Vector{Cdouble}()
+                for i::Cint = 1:list_length
+                    temp = get_double_list_value_at(property, i)
+                    append!(out, temp)
+                end
+            elseif prop_datatype[1] == "BOOLEAN"
+                out = Vector{Bool}()
+                for i::Cint = 1:list_length
+                    temp = get_bool_list_value_at(property, i)
+                    append!(out, temp)
+                end
+            elseif prop_datatype[1] == "TEXT"
+                out = Vector{String}()
+                for i::Cint = 1:list_length
+                    temp = get_string_list_value_at(property, i)
+                    append!(out, [temp])
+                end
+            end
+        end
+    elseif prop_datatype[2]
+        # is reference
+        if !is_list
+            out = Ref{Ptr{UInt8}}(Ptr{UInt8}())
+            err_code = ccall(
+                (:caosdb_entity_property_get_string_value, CaosDB.library_name),
+                Cint,
+                (Ref{_Property}, Ref{Ptr{UInt8}}),
+                property,
+                out,
+            )
+            out = unsafe_string(out[])
+        else
+            # is list of references
+            list_length = get_property_list_length(property)
+            out = [get_string_list_value_at(property, Cint(ii)) for ii = 1:list_length]
+        end
+    end
+    if @isdefined err_code
+        CaosDB.Exceptions.evaluate_return_code(err_code)
+    end
+
+    return out
+end
+
+"""
+    function get_property_list_length(property::Ref{_Property})
+
+Return the length of the list of the given `property`
+"""
+function get_property_list_length(property::Ref{_Property})
+
+    length = Ref{Cint}(0)
+
+    err_code = ccall(
+        (:caosdb_entity_property_get_value_list_length, CaosDB.library_name),
+        Cint,
+        (Ref{_Property}, Ref{Cint}),
+        property,
+        length,
+    )
 
     CaosDB.Exceptions.evaluate_return_code(err_code)
 
-    return unsafe_string(out[])
+    return length[]
+end
+
+"""
+    function get_property_list_length(entity::Ref{_Entity})
+
+Return the length of the list of the given `entity`
+"""
+function get_property_list_length(entity::Ref{_Entity})
+
+    length = Ref{Cint}(0)
+
+    err_code = ccall(
+        (:caosdb_entity_entity_get_value_list_length, CaosDB.library_name),
+        Cint,
+        (Ref{_Entity}, Ref{Cint}),
+        entity,
+        length,
+    )
+
+    CaosDB.Exceptions.evaluate_return_code(err_code)
+
+    return length[]
+end
+
+"""
+    function get_int_list_value_at(property::Ref{_Property}, index::Cint)
+
+Return the value of the INTEGER list of the given `property` at the position `index`.
+"""
+function get_int_list_value_at(property::Ref{_Property}, index::Cint)
+    out = Ref{Clong}(0)
+    err_code = ccall(
+        (:caosdb_entity_property_get_int_list_value_at, CaosDB.library_name),
+        Cint,
+        (Ref{_Property}, Ref{Clong}, Cint),
+        property,
+        out,
+        index - Cint(1),
+    )
+
+    CaosDB.Exceptions.evaluate_return_code(err_code)
+    return out[]
+end
+
+"""
+    function get_int_list_value_at(entity::Ref{_Entity}, index::Cint)
+
+Return the value of the INTEGER list of the given `entity` at the position `index`.
+"""
+function get_int_list_value_at(entity::Ref{_Entity}, index::Cint)
+    out = Ref{Clong}(0)
+    err_code = ccall(
+        (:caosdb_entity_entity_get_int_list_value_at, CaosDB.library_name),
+        Cint,
+        (Ref{_Entity}, Ref{Clong}, Cint),
+        entity,
+        out,
+        index - Cint(1),
+    )
+
+    CaosDB.Exceptions.evaluate_return_code(err_code)
+    return out[]
+end
+
+"""
+    function get_double_list_value_at(property::Ref{_Property}, index::Cint)
+
+Return the value of the DOUBLE list of the given `property` at the position `index`.
+"""
+function get_double_list_value_at(property::Ref{_Property}, index::Cint)
+    out = Ref{Cdouble}(0)
+    err_code = ccall(
+        (:caosdb_entity_property_get_double_list_value_at, CaosDB.library_name),
+        Cint,
+        (Ref{_Property}, Ref{Cdouble}, Cint),
+        property,
+        out,
+        index - Cint(1),
+    )
+
+    CaosDB.Exceptions.evaluate_return_code(err_code)
+    return out[]
+end
+
+"""
+    function get_double_list_value_at(entity::Ref{_Entity}, index::Cint)
+
+Return the value of the DOUBLE list of the given `entity` at the position `index`.
+"""
+function get_double_list_value_at(entity::Ref{_Entity}, index::Cint)
+    out = Ref{Cdouble}(0)
+    err_code = ccall(
+        (:caosdb_entity_entity_get_double_list_value_at, CaosDB.library_name),
+        Cint,
+        (Ref{_Entity}, Ref{Cdouble}, Cint),
+        entity,
+        out,
+        index - Cint(1),
+    )
+
+    CaosDB.Exceptions.evaluate_return_code(err_code)
+    return out[]
+end
+
+"""
+    function get_bool_list_value_at(property::Ref{_Property}, index::Cint)
+
+Return the value of the BOOLEAN list of the given `property` at the position `index`.
+"""
+function get_bool_list_value_at(property::Ref{_Property}, index::Cint)
+    out = Ref{Cint}(0)
+    err_code = ccall(
+        (:caosdb_entity_property_get_boolean_list_value_at, CaosDB.library_name),
+        Cint,
+        (Ref{_Property}, Ref{Cint}, Cint),
+        property,
+        out,
+        index - Cint(1),
+    )
+
+    CaosDB.Exceptions.evaluate_return_code(err_code)
+    out = convert(Bool, out[])
+    return out
+end
+
+"""
+    function get_bool_list_value_at(entity::Ref{_Entity}, index::Cint)
+
+Return the value of the BOOLEAN list of the given `entity` at the position `index`.
+"""
+function get_bool_list_value_at(entity::Ref{_Entity}, index::Cint)
+    out = Ref{Cint}(0)
+    err_code = ccall(
+        (:caosdb_entity_entity_get_boolean_list_value_at, CaosDB.library_name),
+        Cint,
+        (Ref{_Entity}, Ref{Cint}, Cint),
+        entity,
+        out,
+        index - Cint(1),
+    )
+
+    CaosDB.Exceptions.evaluate_return_code(err_code)
+    out = convert(Bool, out[])
+    return out
+end
+
+"""
+    function get_string_list_value_at(property::Ref{_Property}, index::Cint)
+
+Return the value of the TEXT list of the given `property` at the position `index`.
+"""
+function get_string_list_value_at(property::Ref{_Property}, index::Cint)
+    out = Ref{Ptr{UInt8}}(Ptr{UInt8}())
+    err_code = ccall(
+        (:caosdb_entity_property_get_string_list_value_at, CaosDB.library_name),
+        Cint,
+        (Ref{_Property}, Ref{Ptr{UInt8}}, Cint),
+        property,
+        out,
+        index - Cint(1),
+    )
+
+    CaosDB.Exceptions.evaluate_return_code(err_code)
+    out = unsafe_string(out[])
+    return out
+end
+
+"""
+    function get_string_list_value_at(entity::Ref{_Entity}, index::Cint)
+
+Return the value of the TEXT list of the given `entity` at the position `index`.
+"""
+function get_string_list_value_at(entity::Ref{_Entity}, index::Cint)
+    out = Ref{Ptr{UInt8}}(Ptr{UInt8}())
+    err_code = ccall(
+        (:caosdb_entity_entity_get_string_list_value_at, CaosDB.library_name),
+        Cint,
+        (Ref{_Entity}, Ref{Ptr{UInt8}}, Cint),
+        entity,
+        out,
+        index - Cint(1),
+    )
+
+    CaosDB.Exceptions.evaluate_return_code(err_code)
+    out = unsafe_string(out[])
+    return out
 end
 
 """
@@ -1613,7 +1991,7 @@ function set_value(
         )
     elseif in_type <: Number
         err_code = ccall(
-            (:caosdb_entity_entity_set_int_value, CaosDB.library_name),
+            (:caosdb_entity_entity_set_double_value, CaosDB.library_name),
             Cint,
             (Ref{_Entity}, Cdouble),
             entity,
@@ -1621,7 +1999,7 @@ function set_value(
         )
     else
         # Type is a vector now
-        length = Cint(length(value))
+        vec_length = Cint(length(value))
         if in_type <: Vector{T} where {T<:AbstractString}
             err_code = ccall(
                 (:caosdb_entity_entity_set_string_list_value, CaosDB.library_name),
@@ -1629,7 +2007,7 @@ function set_value(
                 (Ref{_Entity}, Ptr{Ptr{Cchar}}, Cint),
                 entity,
                 value,
-                length,
+                vec_length,
             )
         elseif in_type <: Vector{T} where {T<:Bool}
             err_code = ccall(
@@ -1638,7 +2016,7 @@ function set_value(
                 (Ref{_Entity}, Ptr{Bool}, Cint),
                 entity,
                 value,
-                length,
+                vec_length,
             )
         elseif in_type <: Vector{T} where {T<:Integer}
             err_code = ccall(
@@ -1647,16 +2025,16 @@ function set_value(
                 (Ref{_Entity}, Ptr{Clong}, Cint),
                 entity,
                 Vector{Clong}(value),
-                length,
+                vec_length,
             )
-        elseif integer <: Vector{T} where {T<:Number}
+        elseif in_type <: Vector{T} where {T<:Number}
             err_code = ccall(
-                (:caosdb_entity_entity_set_int_list_value, CaosDB.library_name),
+                (:caosdb_entity_entity_set_double_list_value, CaosDB.library_name),
                 Cint,
                 (Ref{_Entity}, Ptr{Cdouble}, Cint),
                 entity,
                 Vector{Cdouble}(value),
-                length,
+                vec_length,
             )
         end
     end
@@ -1702,7 +2080,7 @@ function set_value(
         )
     elseif in_type <: Number
         err_code = ccall(
-            (:caosdb_entity_property_set_int_value, CaosDB.library_name),
+            (:caosdb_entity_property_set_double_value, CaosDB.library_name),
             Cint,
             (Ref{_Property}, Cdouble),
             property,
@@ -1710,7 +2088,7 @@ function set_value(
         )
     else
         # Type is a vector now
-        length = Cint(length(value))
+        vec_length = Cint(length(value))
         if in_type <: Vector{T} where {T<:AbstractString}
             err_code = ccall(
                 (:caosdb_entity_property_set_string_list_value, CaosDB.library_name),
@@ -1718,7 +2096,7 @@ function set_value(
                 (Ref{_Property}, Ptr{Ptr{Cchar}}, Cint),
                 property,
                 value,
-                length,
+                vec_length,
             )
         elseif in_type <: Vector{T} where {T<:Bool}
             err_code = ccall(
@@ -1727,7 +2105,7 @@ function set_value(
                 (Ref{_Property}, Ptr{Bool}, Cint),
                 property,
                 value,
-                length,
+                vec_length,
             )
         elseif in_type <: Vector{T} where {T<:Integer}
             err_code = ccall(
@@ -1736,16 +2114,16 @@ function set_value(
                 (Ref{_Property}, Ptr{Clong}, Cint),
                 property,
                 Vector{Clong}(value),
-                length,
+                vec_length,
             )
-        elseif integer <: Vector{T} where {T<:Number}
+        elseif in_type <: Vector{T} where {T<:Number}
             err_code = ccall(
-                (:caosdb_entity_property_set_int_list_value, CaosDB.library_name),
+                (:caosdb_entity_property_set_double_list_value, CaosDB.library_name),
                 Cint,
                 (Ref{_Property}, Ptr{Cdouble}, Cint),
                 property,
                 Vector{Cdouble}(value),
-                length,
+                vec_length,
             )
         end
     end

test/runtests.jl

@@ -146,10 +146,10 @@ using CaosDB
         @test length(CaosDB.Entity.get_properties(rec_with_parent_and_props)) == 3
         # properties can be accessed as a list
 
-        # TODO(henrik, daniel)
-        # @test CaosDB.Entity.get_value(
-        #     CaosDB.Entity.get_properties(rec_with_parent_and_props)[1],
-        # ) == "2"
+        # TODO(florian) Fix this once we have a reasonable treatment of value objects in Extern C.
+        @test_broken CaosDB.Entity.get_value(
+            CaosDB.Entity.get_properties(rec_with_parent_and_props)[1],
+        ) == "2"
         type, is_ref, is_list = CaosDB.Entity.get_datatype(
             CaosDB.Entity.get_properties(rec_with_parent_and_props)[2],
         )
@@ -183,11 +183,175 @@ using CaosDB
         )
     end
 
-    @testset "Datatype and values" begin
-        # TODO(hernik, daniel) tests for some kinds of datatypes and
-        # values. We probably don't need all since the actual
-        # functions are already being tested in the C++ client but at
-        # least some strings, numbers, and lists thereof should be
-        # tested here, too
+    @testset "Property values and datatypes" begin
+        @testset "Entity properties" begin
+            int_prop =
+                CaosDB.Entity.create_property_entity(name = "IntProp", datatype = "INTEGER")
+            double_prop = CaosDB.Entity.create_property_entity(
+                name = "DoubleProp",
+                datatype = "DOUBLE",
+            )
+            bool_prop = CaosDB.Entity.create_property_entity(
+                name = "BoolProp",
+                datatype = "BOOLEAN",
+            )
+            string_prop =
+                CaosDB.Entity.create_property_entity(name = "StringProp", datatype = "TEXT")
+            ref_prop = CaosDB.Entity.create_property_entity(
+                name = "RefProp",
+                datatype = "MyRefType",
+                is_reference = true,
+            )
+            CaosDB.Entity.set_value(int_prop, 123)
+            CaosDB.Entity.set_value(double_prop, 10.246)
+            CaosDB.Entity.set_value(bool_prop, true)
+            CaosDB.Entity.set_value(string_prop, "Hello World")
+            CaosDB.Entity.set_value(ref_prop, "some_id")
+            @test CaosDB.Entity.get_value(int_prop) == 123
+            @test CaosDB.Entity.get_value(double_prop) == 10.246
+            @test CaosDB.Entity.get_value(bool_prop) === true
+            @test CaosDB.Entity.get_value(string_prop) == "Hello World"
+            @test CaosDB.Entity.get_value(ref_prop) == "some_id"
+            @test isa(CaosDB.Entity.get_value(int_prop), Integer)
+            @test isa(CaosDB.Entity.get_value(double_prop), Number)
+            @test isa(CaosDB.Entity.get_value(bool_prop), Bool)
+            @test isa(CaosDB.Entity.get_value(string_prop), String)
+            @test isa(CaosDB.Entity.get_value(ref_prop), String)
+            @test CaosDB.Entity.get_datatype(int_prop) == ("INTEGER", false, false)
+            @test CaosDB.Entity.get_datatype(double_prop) == ("DOUBLE", false, false)
+            @test CaosDB.Entity.get_datatype(bool_prop) == ("BOOLEAN", false, false)
+            @test CaosDB.Entity.get_datatype(string_prop) == ("TEXT", false, false)
+            @test CaosDB.Entity.get_datatype(ref_prop) == ("MyRefType", true, false)
+
+            """ Test lists """
+            int_list_prop = CaosDB.Entity.create_property_entity(
+                name = "IntProp",
+                datatype = "INTEGER",
+                is_list = true,
+            )
+            double_list_prop = CaosDB.Entity.create_property_entity(
+                name = "DoubleProp",
+                datatype = "DOUBLE",
+                is_list = true,
+            )
+            bool_list_prop = CaosDB.Entity.create_property_entity(
+                name = "BoolProp",
+                datatype = "BOOLEAN",
+                is_list = true,
+            )
+            string_list_prop = CaosDB.Entity.create_property_entity(
+                name = "StringProp",
+                datatype = "TEXT",
+                is_list = true,
+            )
+            ref_list_prop = CaosDB.Entity.create_property_entity(
+                name = "RefListProp",
+                datatype = "MyRefType",
+                is_list = true,
+                is_reference = true,
+            )
+            CaosDB.Entity.set_value(int_list_prop, [123, 456])
+            CaosDB.Entity.set_value(double_list_prop, [10.246, 3.14])
+            CaosDB.Entity.set_value(bool_list_prop, [true, false])
+            CaosDB.Entity.set_value(string_list_prop, ["Hello", "World"])
+            CaosDB.Entity.set_value(ref_list_prop, ["some_id", "another_id"])
+            @test CaosDB.Entity.get_value(int_list_prop) == [123, 456]
+            @test CaosDB.Entity.get_value(double_list_prop) == [10.246, 3.14]
+            @test CaosDB.Entity.get_value(bool_list_prop) == [true, false]
+            @test CaosDB.Entity.get_value(string_list_prop) == ["Hello", "World"]
+            @test CaosDB.Entity.get_value(ref_list_prop) == ["some_id", "another_id"]
+            @test isa(CaosDB.Entity.get_value(int_list_prop), Vector{Clong})
+            @test isa(CaosDB.Entity.get_value(double_list_prop), Vector{Cdouble})
+            @test isa(CaosDB.Entity.get_value(bool_list_prop), Vector{Bool})
+            @test isa(CaosDB.Entity.get_value(string_list_prop), Vector{String})
+            @test isa(CaosDB.Entity.get_value(ref_list_prop), Vector{String})
+            @test CaosDB.Entity.get_datatype(int_list_prop) == ("INTEGER", false, true)
+            @test CaosDB.Entity.get_datatype(double_list_prop) == ("DOUBLE", false, true)
+            @test CaosDB.Entity.get_datatype(bool_list_prop) == ("BOOLEAN", false, true)
+            @test CaosDB.Entity.get_datatype(string_list_prop) == ("TEXT", false, true)
+            @test CaosDB.Entity.get_datatype(ref_list_prop) == ("MyRefType", true, true)
+        end
+        @testset "Property properties" begin
+            int_prop = CaosDB.Entity.create_property(name = "IntProp", datatype = "INTEGER")
+            double_prop =
+                CaosDB.Entity.create_property(name = "DoubleProp", datatype = "DOUBLE")
+            bool_prop =
+                CaosDB.Entity.create_property(name = "BoolProp", datatype = "BOOLEAN")
+            string_prop =
+                CaosDB.Entity.create_property(name = "StringProp", datatype = "TEXT")
+            ref_prop = CaosDB.Entity.create_property(
+                name = "RefProp",
+                datatype = "MyRefType",
+                is_reference = true,
+            )
+            CaosDB.Entity.set_value(int_prop, 123)
+            CaosDB.Entity.set_value(double_prop, 10.246)
+            CaosDB.Entity.set_value(bool_prop, true)
+            CaosDB.Entity.set_value(string_prop, "Hello World")
+            CaosDB.Entity.set_value(ref_prop, "some_id")
+            @test CaosDB.Entity.get_value(int_prop) == 123
+            @test CaosDB.Entity.get_value(double_prop) == 10.246
+            @test CaosDB.Entity.get_value(bool_prop) === true
+            @test CaosDB.Entity.get_value(string_prop) == "Hello World"
+            @test CaosDB.Entity.get_value(ref_prop) == "some_id"
+            @test isa(CaosDB.Entity.get_value(int_prop), Integer)
+            @test isa(CaosDB.Entity.get_value(double_prop), Number)
+            @test isa(CaosDB.Entity.get_value(bool_prop), Bool)
+            @test isa(CaosDB.Entity.get_value(string_prop), String)
+            @test isa(CaosDB.Entity.get_value(ref_prop), String)
+            @test CaosDB.Entity.get_datatype(int_prop) == ("INTEGER", false, false)
+            @test CaosDB.Entity.get_datatype(double_prop) == ("DOUBLE", false, false)
+            @test CaosDB.Entity.get_datatype(bool_prop) == ("BOOLEAN", false, false)
+            @test CaosDB.Entity.get_datatype(string_prop) == ("TEXT", false, false)
+            @test CaosDB.Entity.get_datatype(ref_prop) == ("MyRefType", true, false)
+
+            """ Test lists """
+            int_list_prop = CaosDB.Entity.create_property(
+                name = "IntProp",
+                datatype = "INTEGER",
+                is_list = true,
+            )
+            double_list_prop = CaosDB.Entity.create_property(
+                name = "DoubleProp",
+                datatype = "DOUBLE",
+                is_list = true,
+            )
+            bool_list_prop = CaosDB.Entity.create_property(
+                name = "BoolProp",
+                datatype = "BOOLEAN",
+                is_list = true,
+            )
+            string_list_prop = CaosDB.Entity.create_property(
+                name = "StringProp",
+                datatype = "TEXT",
+                is_list = true,
+            )
+            ref_list_prop = CaosDB.Entity.create_property(
+                name = "RefListProp",
+                datatype = "MyRefType",
+                is_list = true,
+                is_reference = true,
+            )
+            CaosDB.Entity.set_value(int_list_prop, [123, 456])
+            CaosDB.Entity.set_value(double_list_prop, [10.246, 3.14])
+            CaosDB.Entity.set_value(bool_list_prop, [true, false])
+            CaosDB.Entity.set_value(string_list_prop, ["Hello", "World"])
+            CaosDB.Entity.set_value(ref_list_prop, ["some_id", "another_id"])
+            @test CaosDB.Entity.get_value(int_list_prop) == [123, 456]
+            @test CaosDB.Entity.get_value(double_list_prop) == [10.246, 3.14]
+            @test CaosDB.Entity.get_value(bool_list_prop) == [true, false]
+            @test CaosDB.Entity.get_value(string_list_prop) == ["Hello", "World"]
+            @test CaosDB.Entity.get_value(ref_list_prop) == ["some_id", "another_id"]
+            @test isa(CaosDB.Entity.get_value(int_list_prop), Vector{Clong})
+            @test isa(CaosDB.Entity.get_value(double_list_prop), Vector{Cdouble})
+            @test isa(CaosDB.Entity.get_value(bool_list_prop), Vector{Bool})
+            @test isa(CaosDB.Entity.get_value(string_list_prop), Vector{String})
+            @test isa(CaosDB.Entity.get_value(ref_list_prop), Vector{String})
+            @test CaosDB.Entity.get_datatype(int_list_prop) == ("INTEGER", false, true)
+            @test CaosDB.Entity.get_datatype(double_list_prop) == ("DOUBLE", false, true)
+            @test CaosDB.Entity.get_datatype(bool_list_prop) == ("BOOLEAN", false, true)
+            @test CaosDB.Entity.get_datatype(string_list_prop) == ("TEXT", false, true)
+            @test CaosDB.Entity.get_datatype(ref_list_prop) == ("MyRefType", true, true)
+        end
     end
 end