Test value stability of sphere and circle sampling

Author: vks

src/distributions/unit_circle.rs

@@ -82,4 +82,13 @@ mod tests {
             assert_almost_eq!(x[0]*x[0] + x[1]*x[1], 1., 1e-15);
         }
     }
+
+    #[test]
+    fn value_stability() {
+        let mut rng = ::test::rng(2);
+        let dist = UnitCircle::new();
+        assert_eq!(dist.sample(&mut rng), [-0.8150602311723979, 0.5793762331690843]);
+        assert_eq!(dist.sample(&mut rng), [-0.056204569973983196, 0.998419273809375]);
+        assert_eq!(dist.sample(&mut rng), [0.7761923749562624, -0.630496151502733]);
+    }
 }

src/distributions/unit_sphere.rs

@@ -77,4 +77,16 @@ mod tests {
             assert_almost_eq!(x[0]*x[0] + x[1]*x[1] + x[2]*x[2], 1., 1e-15);
         }
     }
+
+    #[test]
+    fn value_stability() {
+        let mut rng = ::test::rng(2);
+        let dist = UnitSphereSurface::new();
+        assert_eq!(dist.sample(&mut rng),
+                   [0.1660727273690104, 0.5202698793511903, 0.8376986939610902]);
+        assert_eq!(dist.sample(&mut rng),
+                   [0.40052443371799834, 0.4237054996596154, -0.812436968356975]);
+        assert_eq!(dist.sample(&mut rng),
+                   [0.9209910250970449, -0.32692477745072107, 0.21188610520628948]);
+    }
 }