use guessing

bquast · Jun 24, 2015 · 157f743 · 157f743
1 parent cfb4706
commit 157f743
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/tests/testthat/test_fatdiag.R b/tests/testthat/test_fatdiag.R
@@ -112,13 +112,16 @@ context("fatdiag<-: vector")
 fatdiag(f5, steps = 3      ) <- 1:48
 fatdiag(f6, size = c(4,4)  ) <- 1:48
 fatdiag(f7, size = c(3,4)  ) <- 1:36
+f9 <- diag(16)
+fatdiag(f9) <- 64:1
 
 # test output values
 test_that("output values match", {
   expect_equal( sum(f5), 1176)
   expect_equal( sum(f6), 1176)
   expect_equal( sum(f7), 666)
   #expect_equal( sum(f8), 36)
+  expect_equal( sum(f9), 2080)
 })