Add further tests of chisq_colpairs()

rqtl · Nov 12, 2023 · 5a3ed6c · 5a3ed6c
1 parent 056ffe5
commit 5a3ed6c
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: qtl2
-Version: 0.33-5
-Date: 2023-11-10
+Version: 0.33-6
+Date: 2023-11-12
 Title: Quantitative Trait Locus Mapping in Experimental Crosses
 Description: Provides a set of tools to perform quantitative
     trait locus (QTL) analysis in experimental crosses. It is a

diff --git a/NEWS.md b/NEWS.md
@@ -1,4 +1,4 @@
-## qtl2 0.33-5 (2023-11-10)
+## qtl2 0.33-6 (2023-11-12)
 
 ### Major changes
 

diff --git a/tests/testthat/test-chisq_colpairs.R b/tests/testthat/test-chisq_colpairs.R
@@ -24,4 +24,10 @@ test_that("chisq_colpairs works", {
 
     expect_equal(result, expected)
 
+    # throws error if you give a single-column matrix
+    expect_error( chisq_colpairs(z[,1,drop=FALSE]) )
+
+    # throws error if you give a vector
+    expect_error( chisq_colpairs(z[,1]) )
+
 })