Added basic colon function

2020-01-15 15:18:49 +01:00 · 2020-01-15 15:18:49 +01:00 · 1b79529e4b
commit 1b79529e4b
parent f8f65f176c
3 changed files with 33 additions and 0 deletions
--- a/tests/testthat/test-convertedBaseFunctions.R
+++ b/tests/testthat/test-convertedBaseFunctions.R
@ -60,4 +60,9 @@ test_that("times works as expected", {
        object = times(matrix(c(-1.6, 5), 1), c(8, 1)),
        expected = matrix(c(-12.8, -1.6, 40, 5), 2)
    )
+})
+
+test_that("colon works as expected (hee hee)", {
+    expect_equal(colon(1, 4), 1:4)
+    expect_length(colon(4, 1), 0)
 })