tests/testthat/test-reset.R

In greatgray/scorecard: GGCM Model Performance Scorecard

context("Blotter reset")

test_that("creates strategy", {
  suppressWarnings(rm(".strategy"))
  reset_quantstrat()
  expect_true(exists(".strategy"))
})

test_that("creates blotter", {
  suppressWarnings(rm(".blotter"))
  reset_quantstrat()
  expect_true(exists(".blotter"))
})

test_that("creates audit", {
  suppressWarnings(rm(".audit"))
  reset_quantstrat()
  expect_true(exists(".audit"))
})

test_that("clears strategy",{
  reset_quantstrat()
  rv <- ls(.strategy)
  expect_equal(length(rv),0)
  expect_equal(names(rv),NULL)
})

test_that("clears blotter",{
  reset_quantstrat()
  rv <- ls(.blotter)
  expect_equal(length(rv),0)
  expect_equal(names(rv),NULL)
})

test_that("clears audit",{
  reset_quantstrat()
  rv <- ls(.audit)
  expect_equal(length(rv),0)
  expect_equal(names(rv),NULL)
})