tests/testthat/test-lx_selector.R

context("lx_selector")

testthat::test_that(desc = "selector string correct",
                    {
                      expect_true(lx_selector(id = "A")=="id:A")
                      expect_true(lx_selector(id = "A",group = "B")=="id:A,group:B")
                      expect_true(lx_selector(id = "A",group = "B", zones = c(1,2))=="id:A|1|2,group:B|1|2")
                    })

Try the lifx package in your browser

Any scripts or data that you put into this service are public.

lifx documentation built on July 1, 2020, 6:08 p.m.