tests/testthat/test-pretty-stat.R

In greatgray/scorecard: GGCM Model Performance Scorecard

suppressPackageStartupMessages(require(quantmod))

context("Pretty trade stats")


test_that("account summary", {
  load("testdata/account_blotter.RData") # loads account
  df <- format_account_summary(account)
  expect_equal(nrow(df),122)
  expect_equal(ncol(df),11)
  expect_equal(colnames(df)[1],"Additions")
})

test_that("per trade stats", {
  load("testdata/per_trade_stats.RData") # loads per_trade_stats
  df <- format_per_trade_stats(per_trade_stats)
  expect_equal(nrow(df),1)
  expect_equal(ncol(df),15)
  expect_equal(colnames(df)[1],"Start")
  expect_equal(df[1,5],"2") # num txns
  expect_equal(df[1,6],"$160,736") # max notional cost
})

test_that("trade stats",{
  load("testdata/trade_stats.RData") # loads trade_stats
  df <- format_trade_stats(trade_stats)
  expect_equal(nrow(trade_stats),nrow(df))
  expect_equal(ncol(trade_stats),ncol(df))
  expect_equal(df[1,1],"model")
  expect_equal(df[1,5],"($470)")
})