tests/testthat/test-lists.r

In ctbrown/magrittr.plus: Drop-In, Opinionated ("Data First, Context Next") 'magrittr' Replacement with both get/set accessors.

context('list')


ll <- list( a=1, b=2 )

test_that( "lists", {
  ll %>% a %>% expect_equal(1)
  ll %>% b %>% expect_equal(2)

# NESTED LISTS
  ll <- list( a = 1, b=list(c=3) )
  ll %>% a %>% expect_equal(1)
  ll %>% b %>% c %>% expect_equal(3)
})