@@ -750,6 +750,10 @@ function DataEntriesTestBlock!(fg, v2)
750750 @test issetequal (listVariableBlobentries (fg, :a ), [:key1 , :key2 ])
751751 @test listVariableBlobentries (fg, :b ) == Symbol[:key2 ]
752752
753+ @test hasVariableBlobentry (fg, :a , :key1 )
754+ @test ! hasVariableBlobentry (fg, :a , :nope )
755+ @test_throws LabelNotFoundError hasVariableBlobentry (fg, :nope , :nope )
756+
753757 # delete
754758 @test deleteBlobentry! (v1, :key1 ) == 1
755759 @test listVariableBlobentries (fg, getLabel (v1)) == Symbol[:key2 ]
@@ -771,6 +775,23 @@ function DataEntriesTestBlock!(fg, v2)
771775 @test_throws LabelExistsError addVariableBlobentries! (fg, :a , [de2])
772776 @test deleteVariableBlobentries! (fg, :a , [:key2 ]) == 1
773777
778+ # Factor blobentries
779+ @test addFactorBlobentry! (fg, :abf1 , de1) == de1
780+ @test_throws LabelExistsError addFactorBlobentry! (fg, :abf1 , de1)
781+ @test de1 == getFactorBlobentry (fg, :abf1 , getLabel (de1))
782+ @test_throws LabelNotFoundError getFactorBlobentry (fg, :abf1 , :nope )
783+ @test hasFactorBlobentry (fg, :abf1 , getLabel (de1))
784+ @test ! hasFactorBlobentry (fg, :abf1 , :nope )
785+ @test mergeFactorBlobentry! (fg, :abf1 , de2_update) == 1
786+ @test listFactorBlobentries (fg, :abf1 ) == [getLabel (de1), getLabel (de2_update)]
787+ @test deleteFactorBlobentry! (fg, :abf1 , getLabel (de2_update)) == 1
788+ @test_throws LabelNotFoundError deleteFactorBlobentry! (fg, :abf1 , getLabel (de2_update))
789+ @test getFactorBlobentries (fg, :abf1 ) == [de1]
790+ @test getLabel .(addFactorBlobentries! (fg, :abf1 , [de2])) == [getLabel (de2)]
791+ @test mergeFactorBlobentries! (fg, :abf1 , [de1, de2_update]) == 2
792+ @test deleteFactorBlobentries! (fg, :abf1 , [getLabel (de1), getLabel (de2_update)]) == 2
793+ @test listFactorBlobentries (fg, :abf1 ) == Symbol[]
794+
774795 # graph blobentries
775796 @test addGraphBlobentry! (fg, de1) == de1
776797 @test_throws LabelExistsError addGraphBlobentry! (fg, de1)
0 commit comments