Merge pull request #360 from jamesonquinn/CategoricalInteger1Bug256

Add test case for #256

Author: marcoct

test/modeling_library/distributions.jl

@@ -48,6 +48,10 @@ end
     # out of support
     @test logpdf(categorical, -1, [0.2, 0.3, 0.5]) == -Inf
 
+    # integer-1 probability bug
+    N = 20
+    @test sum([rand(Gen.Distributions.Categorical([1, 0])) for i in 1:N]) == N
+
     # logpdf_grad
     f = (x, probs) -> logpdf(categorical, x, probs)
     args = (2, [0.2, 0.3, 0.5])