inst/tinytest/test_calcTxnValue.R

In braverock/blotter: Tools for Transaction-Oriented Trading Systems P&L

# Author: Peter Carl -> RUnit port by Ben McCann -> 
# -> tinytest port by Justin Shea

library(tinytest)

test_calcTxnValue <- function() {
  expect_equal(
    blotter:::.calcTxnValue(TxnQty = 10, TxnPrice = 10, TxnFees = 1),
    99
  )
}

test_calcTxnValue()