tests/testit/test-type_any_type.R

In zatonovo/lambda.r: Modeling Data with Functional Programming

rm(list=ls())
assert('type_any_type_1', {
  fib(n) %::% . : a
  fib(0) %as% 1
  fib(1) %as% 1
  fib(n) %as% { fib(n-1) + fib(n-2) }
  seal(fib)

  act <- fib(4)
  (act == 5)
})

rm(list=ls())
assert('type_any_type_2', {
  hypotenuse(a,b) %::% . : . : numeric
  hypotenuse(a,b) %as% { (a^2 + b^2)^.5 }
  seal(hypotenuse)

  act <- hypotenuse(3,4)
  (act ==5)
})

rm(list=ls())
assert('type_any_type_3', {
  hypotenuse(a,b) %::% numeric : numeric: .
  hypotenuse(a,b) %as% { (a^2 + b^2)^.5 }
  seal(hypotenuse)

  act <- hypotenuse(3,4)
  (act ==5)
})

rm(list=ls())
assert('type_any_type_4', {
  hypotenuse(a,b) %::% a : a: .
  hypotenuse(a,b) %as% { (a^2 + b^2)^.5 }
  seal(hypotenuse)

  act <- hypotenuse(3,4)
  (act ==5)
})