tests/testthat/test-core-lib.R

In dirkschumacher/llr: A lisp like language on top of R

test_that("threading macro", {
  res <- llr_test("
  (->
    (r/seq 1 10)
    (r/lapply (fn [x] (* x x)))
    (r/purrr::keep (fn [x] (= x 25))))
  ")
  expect_equal(res, list(25), ignore_attr = TRUE)
})

test_that("addition uses sum for variadic functions", {
  res <- llr_test("(+ 1 2 3 4 5 6 7 8 9 10)")
  expect_equal(res, sum(1:10), ignore_attr = TRUE)
})

test_that("comp works", {
  res <- llr_test("((comp inc inc inc) 0)")
  expect_equal(res, 3, ignore_attr = TRUE)
  res <- llr_test("((comp inc) 0)")
  expect_equal(res, 1, ignore_attr = TRUE)
})

test_that("contains", {
  expect_true(llr_test("(contains? {:a 1 :b 2} :a)"))
  expect_false(llr_test("(contains? {:a 1 :b 2} :x)"))
})

test_that("assoc and conj on maps", {
  res <- llr_test("(assoc (conj {:a 1} {:b 2}) :a 42)")
  expect_equal(res$get(":a"), 42, ignore_attr = TRUE)
  expect_equal(res$get(":b"), 2, ignore_attr = TRUE)
})

test_that("assoc on vectors", {
  res <- llr_test("(assoc [1 2 3] 2 42)")
  expect_equal(res, list(1, 42, 3), ignore_attr = TRUE)
})

test_that("count on maps counts keys", {
  res <- llr_test("(count {:a 1})")
  expect_equal(res, 1, ignore_attr = TRUE)
})

test_that("= compares values", {
  expect_true(llr_test("(= 1 1)"))
  expect_true(llr_test("(= [1] [1])"))
  expect_true(llr_test("(= [1 2 3] '(1 2 3))"))
  expect_false(llr_test("(= 1 \"1\")"))
  expect_false(llr_test("(= r/mtcars \"1\")"))
})

test_that("map is type stable", {
  expect_true(llr_test("(vector? (map dec [1 2 3]))"))
})

test_that("correct and stable conj", {
  expect_true(
    llr_test("(= (conj [1 2] [5 6]) [1 2 [5 6]])")
  )
  expect_true(
    llr_test("(= (conj '(1 2) [3 4]) '([3 4] 1 2))")
  )
  expect_true(
    llr_test("(= (conj [1 2] 3 4 5) [1 2 3 4 5])")
  )
  expect_true(
    llr_test("(= (conj '(1 2) 3 4 5) '(5 4 3 1 2))")
  )
  expect_true(
    llr_test("(list? (conj '(1 2) 3 4 5))")
  )
})

test_that("get indexes start at 0", {
  expect_true(
    llr_test("(= (get [1 2 3] 2) 3)")
  )
  expect_true(
    llr_test("(nil? (get [1 2 3] -1))")
  )
  expect_true(
    llr_test("(nil? (get [1 2 3] 3))")
  )
})

test_that("map2", {
  res <- llr_test("(map r/sum [1 2 3] [2 3 4])")
  expect_equal(res, do.call(ral_list, as.list(1:3 + 2:4)))
})

test_that("vector", {
  res <- llr_test("(vector (r/seq_len 10))")
  expect_equal(res, do.call(ral_vector, as.list(seq_len(10))))
})