tests/testthat/test-fun2name.R

In decisionpatterns/operator.tools: Utilities for Working with R's Operators

library(testthat) 
library(magrittr)
library(operator.tools)

context("fun2name")

test_that( 'fun2name', {
  fun2name( ls ) %>% expect_equal( 'ls' )
  fun2name( `%in%` ) %>% expect_equal( '%in%' )
})

context("name2fun")
test_that( 'name2fun', {
  name2fun( 'ls' ) %>% expect_identical( ls )
  name2fun( '%in%' ) %>% expect_identical( `%in%` )
})