tests/testthat/test-lissajous.R

context("lissajous()")


test_that("lissajous() works properly", {
  
  expect_equal(
    lissajous(3, 2,  -pi/2, 0),
    mp("-4 x^2  +  4 x^4  +  9 y^2  -  24 y^4  +  16 y^6")
  )
  
})

Try the mpoly package in your browser

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

mpoly documentation built on March 26, 2020, 7:33 p.m.