Fixup discrete distributions, add profiling for tests

.gitignore

@@ -147,3 +147,5 @@ scratch/separable/path.jl
 
 test/ABP.png
 ABP.png
+
+output

test/profile_tests.jl

@@ -0,0 +1,21 @@
+using Profile
+
+include("runtests.jl")
+@profile include("runtests.jl")
+
+open("output/profile_tree.txt", "w") do s
+    Profile.print(IOContext(s, :displaysize => (24, 500));
+                  format=:tree,
+                  maxdepth=60,
+                  noisefloor=4,
+                  mincount=4)
+end
+
+open("output/profile_flat.txt", "w") do s
+    Profile.print(IOContext(s, :displaysize => (24, 500));
+                  format=:flat,
+                  sortedby=:count,
+                  maxdepth=60,
+                  noisefloor=4,
+                  mincount=4)
+end

test/runtests.jl

@@ -1,6 +1,4 @@
 # File test/runtests.jl
-module ScruffTest
-
 using Test
 
 @testset "ScruffTests" begin
@@ -24,5 +22,3 @@ using Test
         include("../docs/examples/soccer_example.jl")
     end
 end
-
-end

test/test_sfuncs.jl

@@ -942,7 +942,7 @@ end
         N = 100
         samples = [sample(sf, ()) for _ in 1:N]
         sf_mean = expectation(sf, ())
-        @test isapprox(sf_mean, sum(samples) / N; atol=0.1)
+        @test isapprox(sf_mean, sum(samples) / N; atol=0.2)
 
         # must handle duplicates in range correctly
         c3 = Discrete([1, 1, 2],