tests/testthat/tests_map_bimap.R

In datastructures: Implementation of Core Data Structures

# datastructures: Implementation of core datastructures for R.
#
# Copyright (C) Simon Dirmeier
#
# This file is part of datastructures.
#
# datastructures is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# datastructures is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with datastructures. If not, see <http://www.gnu.org/licenses/>.


context("bimap")


test_that("creates correct class", {
  b <- bimap("numeric", "numeric")
  b <- insert(b, c(1, 2), c(4, 5))
  expect_equal("Rcpp_bimap_dd", class(b@.map)[1])
})


test_that("map shows", {
  expect_output(show(bimap("integer", "numeric")))
})


test_that("bimap insert throws when inserting false values", {
  b <- bimap("numeric", "numeric")
  b <- insert(b, c(1, 2), c(4, 5))
  expect_error(insert(b, c("s", "s"), c(4, 5)))
})


test_that("bimap get throws when getting false values", {
  b <- bimap("integer", "character")
  expect_error(at(b, "s"))
})


test_that("bimap insert/get methods work", {
  b <- bimap("numeric", "numeric")
  b <- insert(b, c(1, 2), c(4, 5))
  expect_equal(at(b, 1), 4)
})


test_that("bimap insert/get methods work with which argument", {
  b <- bimap("numeric", "numeric")
  b <- insert(b, c(1, 2), c(4, 5))
  expect_equal(at(b, 1, "values"), 4)
})


test_that("bimap insert/get methods work with which argument", {
  b <- bimap("numeric", "numeric")
  b <- insert(b, c(1, 2), c(4, 5))
  expect_equal(at(b, 4, "keys"), 1)
})


test_that("bimap peek works", {
  h <- bimap("integer", "character")
  m <- letters[1:2]
  r <- 1:2
  h <- insert(h, r, m)
  expect_output(show(peek(h)))
})


test_that("bimap size works", {
  h <- bimap("character", "character")
  h <- insert(h, letters[1:2], letters[1:2])
  expect_true(size(h) == 2)
})


test_that("bimap retrieves correct values", {
  h <- bimap("integer", "numeric")
  h <- insert(h, 1:2, c(4, 5))
  expect_true(all(sort(values(h)) %in% c(4, 5)))
})


test_that("bimap replace works", {
  b <- bimap("integer", "numeric")
  b <- insert(b, 1:2, c(4, 2))
  expect_equal(at(b, 1L), 4)
  expect_equal(at(b, 2L, "values"), 2)
  b <- insert(b, 1:2, c(1, 2))
  expect_equal(at(b, 1L), 1)
  expect_equal(at(b, 2L), 2)
})

test_that("erase values work", {
  b <- bimap("integer", "numeric")
  b <- insert(b, 1:2, c(4, 2))
  b <- erase(b, value = 4)
  expect_error(at(g, 1L))
})