Merge pull request #26 from MineralsCloud:promote

Promote before constructing

Author: singularitti

src/types.jl

@@ -49,20 +49,20 @@ end
 # Constructors
 for T in (:EngineeringStress, :EngineeringStrain)
     @eval begin
-        $T(data::AbstractVector) = $T(MVector{6}(data))
-        $T(values...) = $T(vec(values))
+        $T(data::AbstractVector) = $T(MVector{6}(promote(data...)))
+        $T(values...) = $T(collect(values))
     end
 end
 for (T, N) in
     zip((:TensorStress, :TensorStrain, :StiffnessMatrix, :ComplianceMatrix), (3, 3, 6, 6))
     @eval begin
-        $T(data::AbstractMatrix{S}) where {S} = $T{S}(MMatrix{$N,$N}(data))
+        $T(data::AbstractMatrix{S}) where {S} = $T{S}(MMatrix{$N,$N}(promote(data...)))
         $T(values...) = $T(SymmetricSecondOrderTensor{$N}(values...))
     end
 end
 for T in (:StiffnessTensor, :ComplianceTensor)
     @eval $T(data::AbstractArray{S,4}) where {S} =
-        $T{S}(SymmetricFourthOrderTensor{3}(data))
+        $T{S}(SymmetricFourthOrderTensor{3}(promote(data...)))
 end
 
 Base.size(::Type{<:TensorVariable}) = (3, 3)

test/runtests.jl

@@ -2,6 +2,7 @@ using LinearElasticityBase
 using Test
 
 @testset "LinearElasticityBase.jl" begin
+    include("types.jl")
     include("similar.jl")
     include("operations.jl")
     include("invariants.jl")

test/types.jl

@@ -0,0 +1,6 @@
+@testset "Promote all values before constructing types (#25)" begin
+    e = EngineeringStrain([j == 1 ? 0.005 : 0 for j in 1:6])
+    @test eltype(e) == Float64
+    e = EngineeringStrain([j == 1 ? 1//2 : 0 for j in 1:6])
+    @test eltype(e) == Rational{Int}
+end