tests/testthat/test-list.r

In decisionpatterns/sticky: Persist Attributes Across Data Operations

library(magrittr)
source('utils.r')

context("list")

li <- list(a=1, b=2, c=3)
li %<>% sticky
li %<>% structure( foo="bar" )

test_that( "[ by index", {
  li[1:2] %>% expect_is('sticky')
  li[1:2] %>% expect_is('list')
  li[1:2] %>% attr('foo') %>% expect_equal('bar')
})

test_that( "[ by name", {
  li['b'] %>% expect_is('sticky')
  li['b'] %>% expect_is('list')
  li['b'] %>% attr('foo') %>% expect_equal('bar')
})

test_that( "[ by logical", {
  li[c(T,F,T)] %>% expect_is('sticky')
  li[c(T,F,T)] %>% expect_is('list')
  li[c(T,F,T)] %>% attr('foo') %>% expect_equal('bar')
})