add tests for model with multivariate NoDist

Author: alyst

test/context_implementations.jl

@@ -68,5 +68,34 @@
                 end
             end
         end
+
+        @testset "multivariate NoDist" begin
+            @model function genmodel()
+                x ~ NoDist(Product(fill(Uniform(-20, 20), 5)))
+                for i in eachindex(x)
+                    x[i] ~ Normal(0, 1)
+                end
+            end
+            gen_model = genmodel()
+            vi_gen = VarInfo(gen_model)
+            @test isfinite(logjoint(gen_model, vi_gen))
+            # test for bijector
+            link!(vi_gen, DynamicPPL.SampleFromPrior())
+            invlink!(vi_gen, DynamicPPL.SampleFromPrior())
+    
+            # explicit model specification
+            expl_model = DynamicPPL.Model(NamedTuple()) do model, varinfo, context
+                DynamicPPL.tilde_assume!!(context, NoDist(Product(fill(Uniform(-20, 20), 5))), @varname(x), varinfo)
+                x = varinfo[@varname(x)]
+                @test x isa Vector{<:Real}
+                @test length(x) == 5
+                return nothing, DynamicPPL.acclogp!!(varinfo, sum(logpdf.(Ref(Normal(0, 1)), x)))
+            end
+            vi_expl = VarInfo(expl_model)
+            @test isfinite(logjoint(expl_model, vi_expl))
+            # test for bijector
+            link!(vi_expl, DynamicPPL.SampleFromPrior())
+            invlink!(vi_expl, DynamicPPL.SampleFromPrior())
+        end
     end
 end