tests/testit/test-infix.1.R

rm(list=ls())

assert('infix.1', {
  a %mod% b %:=% { a %/% b }
  seal(`%mod%`)

  act <- 5 %mod% 2
  exp <- 5 %/% 2
  (act == exp)
})

assert('infix.2', {
  a %mod% b %as% { a %/% b }
  seal(`%mod%`)

  act <- 5 %mod% 2
  exp <- 5 %/% 2
  (act == exp)
})
zatonovo/lambda.r documentation built on Sept. 16, 2019, 7:40 p.m.