chore: increased coverage

Author: schmidmt

src/dist/bernoulli.rs

@@ -387,6 +387,7 @@ impl fmt::Display for BernoulliError {
 #[cfg(test)]
 mod tests {
     use super::*;
+    use crate::dist::Bernoulli;
     use crate::misc::x2_test;
     use crate::test_basic_impls;
 
@@ -744,4 +745,11 @@ mod tests {
 
         assert::close(ln_f_base, ln_f_stat, TOL);
     }
+
+    #[test]
+    fn emit_and_from_params_are_identity() {
+        let dist_a = Bernoulli::new(0.8).unwrap();
+        let dist_b = Bernoulli::from_params(dist_a.emit_params());
+        assert_eq!(dist_a, dist_b);
+    }
 }

src/dist/beta.rs

@@ -831,4 +831,11 @@ mod tests {
             assert::close(pdf_1, pdf_2, 1e-14);
         }
     }
+
+    #[test]
+    fn emit_and_from_params_are_identity() {
+        let dist_a = Beta::new(0.8, 0.4).unwrap();
+        let dist_b = Beta::from_params(dist_a.emit_params());
+        assert_eq!(dist_a, dist_b);
+    }
 }

src/dist/beta_binom.rs

@@ -489,4 +489,11 @@ mod tests {
         let pmfs: Vec<f64> = (0..=10).map(|k| beta_binom.pmf(&k)).collect();
         assert::close(pmfs, target, 1E-6);
     }
+
+    #[test]
+    fn emit_and_from_params_are_identity() {
+        let dist_a = BetaBinomial::new(10, 0.8, 0.4).unwrap();
+        let dist_b = BetaBinomial::from_params(dist_a.emit_params());
+        assert_eq!(dist_a, dist_b);
+    }
 }

src/dist/betaprime.rs

@@ -665,4 +665,11 @@ mod tests {
         // ln_pp should be log of the cache
         assert_eq!(ln_pp, cache.ln());
     }
+
+    #[test]
+    fn emit_and_from_params_are_identity() {
+        let dist_a = BetaPrime::new(0.8, 0.4).unwrap();
+        let dist_b = BetaPrime::from_params(dist_a.emit_params());
+        assert_eq!(dist_a, dist_b);
+    }
 }

src/dist/binomial.rs

@@ -529,4 +529,11 @@ mod tests {
         });
         assert!(passes > 0);
     }
+
+    #[test]
+    fn emit_and_from_params_are_identity() {
+        let dist_a = Binomial::new(20, 0.4).unwrap();
+        let dist_b = Binomial::from_params(dist_a.emit_params());
+        assert_eq!(dist_a, dist_b);
+    }
 }

src/dist/categorical.rs

@@ -497,4 +497,11 @@ mod tests {
 
         assert::close(ln_f_base, ln_f_stat, TOL);
     }
+
+    #[test]
+    fn emit_and_from_params_are_identity() {
+        let dist_a = Categorical::new(&[0.2, 0.3, 0.5]).unwrap();
+        let dist_b = Categorical::from_params(dist_a.emit_params());
+        assert_eq!(dist_a, dist_b);
+    }
 }

src/dist/cauchy.rs

@@ -481,4 +481,11 @@ mod tests {
     test_scalable_entropy!(Cauchy::new(2.0, 4.0).unwrap());
     test_scalable_cdf!(Cauchy::new(2.0, 4.0).unwrap());
     test_scalable_invcdf!(Cauchy::new(2.0, 4.0).unwrap());
+
+    #[test]
+    fn emit_and_from_params_are_identity() {
+        let dist_a = Cauchy::new(2.0, 4.0).unwrap();
+        let dist_b = Cauchy::from_params(dist_a.emit_params());
+        assert_eq!(dist_a, dist_b);
+    }
 }

src/dist/cdvm.rs

@@ -532,4 +532,11 @@ mod tests {
         let (_, p) = x2_test(&observed_counts, &ps);
         assert!(p > 0.05);
     }
+
+    #[test]
+    fn emit_and_from_params_are_identity() {
+        let dist_a = Cdvm::new(10, 5.0, 6.0).unwrap();
+        let dist_b = Cdvm::from_params(dist_a.emit_params());
+        assert_eq!(dist_a, dist_b);
+    }
 }

src/dist/chi_squared.rs

@@ -327,4 +327,11 @@ mod tests {
         });
         assert!(passes > 0);
     }
+
+    #[test]
+    fn emit_and_from_params_are_identity() {
+        let dist_a = ChiSquared::new(2.5).unwrap();
+        let dist_b = ChiSquared::from_params(dist_a.emit_params());
+        assert_eq!(dist_a, dist_b);
+    }
 }

src/dist/crp.rs

@@ -326,5 +326,12 @@ mod tests {
         assert_eq!(crp, new_crp);
     }
 
+    #[test]
+    fn emit_and_from_params_are_identity() {
+        let dist_a = Crp::new(1.5, 710).unwrap();
+        let dist_b = Crp::from_params(dist_a.emit_params());
+        assert_eq!(dist_a, dist_b);
+    }
+
     // TODO: More tests!
 }