Add tests for get/set/acc/resetlogp

Author: penelopeysm

test/varinfo.jl

@@ -131,6 +131,25 @@ DynamicPPL.getspace(::DynamicPPL.Sampler{MySAlg}) = (:s,)
         test_base!!(SimpleVarInfo(DynamicPPL.VarNamedVector()))
     end
 
+    @testset "get/set/acc/resetlogp" begin
+        function test_varinfo_logp!(vi)
+            @test DynamicPPL.getlogp(vi) === 0.0
+            vi = DynamicPPL.setlogp!!(vi, 1)
+            @test DynamicPPL.getlogp(vi) === 1.0
+            vi = DynamicPPL.acclogp!!(vi, 1)
+            @test DynamicPPL.getlogp(vi) === 2.0
+            vi = DynamicPPL.resetlogp!!(vi)
+            @test DynamicPPL.getlogp(vi) === 0.0
+        end
+
+        vi = VarInfo()
+        test_varinfo_logp!!(vi)
+        test_varinfo_logp!!(TypedVarInfo(vi))
+        test_varinfo_logp!!(SimpleVarInfo())
+        test_varinfo_logp!!(SimpleVarInfo(Dict()))
+        test_varinfo_logp!!(SimpleVarInfo(DynamicPPL.VarNamedVector()))
+    end
+
     @testset "flags" begin
         # Test flag setting:
         #    is_flagged, set_flag!, unset_flag!