File: test_insert.R

package info (click to toggle)
r-cran-bbmisc 1.13.1-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 1,256 kB
  • sloc: ansic: 176; sh: 9; makefile: 5
file content (13 lines) | stat: -rw-r--r-- 363 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
context("insert")

test_that("insert", {
  # list        
  xs1 = list(a=1, b=2)
  expect_equal(insert(xs1, list(a=99, c=5)), list(a=99, b=2, c=5))
  expect_equal(insert(xs1, list(a=list(99), c=5)), list(a=list(99), b=2, c=5))
  # vector 
  xs1 = c(a=1, b=2) 
  expect_equal(insert(xs1, c(a=99, c=5)), c(a=99, b=2, c=5))
  expect_equal(insert(xs1, c()), xs1)
})