test(fisher test): test short circuit evaluation of all 0 row/columns

statrs-dev · Jul 19, 2024 · 5b123da · 5b123da
1 parent f57aab5
commit 5b123da
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/stats_tests/fisher.rs b/src/stats_tests/fisher.rs
@@ -342,6 +342,16 @@ mod tests {
             }
         }
     }
+
+    #[test]
+    fn test_fishers_exact_for_trivial() {
+        let cases = [[0, 0, 1, 2], [1, 2, 0, 0], [1, 0, 2, 0], [0, 1, 0, 2]];
+
+        for table in cases.iter() {
+            assert_eq!(fishers_exact(table, Alternative::Less).unwrap(), 1.0)
+        }
+    }
+
     #[test]
     fn test_fishers_exact_with_odds() {
         let table = [3, 5, 4, 50];