tests

Author: joshday

src/Cobweb.jl

@@ -77,9 +77,11 @@ Base.push!(o::Node, x) = push!(children(o), x)
 Base.append!(o::Node, x) = append!(children(o), x)
 Base.deleteat!(o::Node, x) = deleteat!(children(o), x)
 Base.pop!(o::Node) = pop!(children(o))
+Base.popat!(o::Node, i) = popat!(children(o), i)
 Base.popfirst!(o::Node) = popfirst!(children(o))
 Base.splice!(o::Node, i::Integer) = splice!(children(o), i)
 Base.splice!(o::Node, i::Integer, x) = splice!(children(o), i, x)
+Base.empty!(o::Node) = empty!(children(o))
 
 
 

test/runtests.jl

@@ -48,11 +48,32 @@ end
     @test get(node, :id2, 1) == 1
     get!(node, :id2, "myid2")
     @test propertynames(node) == [:id, :class, :id2]
-    @test node[end] == "content"
+    @test node[1] == node[end] == "content"
+    # push!
     push!(node, h.span("child"))
     @test node[end] == h.span("child")
+    # append!
     append!(node, [h.span("child2"), h.span("child3")])
     @test node[end] == h.span("child3")
+    # empty!
+    empty!(node)
+    @test isempty(node)
+    # pop!
+    push!(node, "test")
+    @test pop!(node) == "test"
+    @test isempty(node)
+    push!(node, "test")
+    # popat!
+    push!(node, "test")
+    @test popat!(node, 1) == "test"
+    # deleteat!
+    deleteat!(node, 1)
+    @test isempty(node)
+    # splice!
+    push!(node, "test")
+    @test splice!(node, 1, ["new"]) == "test"
+    @test splice!(node, 1) == "new"
+    @test isempty(node)
 end
 #-----------------------------------------------------------------------------# indexing
 @testset "get/setindex" begin