Fixed bugs on old functions

2020-01-15 13:29:47 +01:00 · 2020-01-15 13:29:47 +01:00 · f8f65f176c
commit f8f65f176c
parent 168f58899e
5 changed files with 28 additions and 3 deletions
--- a/tests/testthat/test-convertedBaseFunctions.R
+++ b/tests/testthat/test-convertedBaseFunctions.R
@ -56,4 +56,8 @@ test_that("times works as expected", {
        object = times(matrix(c(10, -5, 3, 9), 2), matrix(1:4, 2)),
        expected = matrix(c(10, -10, 9, 36), 2)
    )
+    expect_equal(
+        object = times(matrix(c(-1.6, 5), 1), c(8, 1)),
+        expected = matrix(c(-12.8, -1.6, 40, 5), 2)
+    )
 })