JuliaFEM.jl/test/test_elements_nurbs.jl

# This file is a part of JuliaFEM.
# License is MIT: see https://github.com/JuliaFEM/JuliaFEM.jl/blob/master/LICENSE.md

using JuliaFEM
using JuliaFEM.Testing

@testset "NSeg interpolate" begin
    element = Element(NSeg, [1, 2])
    @test element([0.0], 0.0) == [0.5 0.5]
    @test size(element) == (1, 2)
    @test is_nurbs(element)
    element2 = Element(Seg2, [1, 2])
    @test !is_nurbs(element2)
end

@testset "NSurf interpolate" begin
    element = Element(NSurf, [1, 2, 3, 4])
    @test element([0.0, 0.0], 0.0) == [0.25 0.25 0.25 0.25]
    @test size(element) == (2, 4)
    @test is_nurbs(element)
end

@testset "NSolid interpolate" begin
    element = Element(NSolid, [1, 2, 3, 4, 5, 6, 7, 8])
    @test element([0.0, 0.0, 0.0], 0.0) == [0.125 0.125 0.125 0.125 0.125 0.125 0.125 0.125]
    @test size(element) == (3, 8)
    @test is_nurbs(element)
end