tests/testthat/test_orders.R

In tourko/tastyworks: Extract Transactions from the Tastywork's confirmations

library(dplyr)

context("Assemble orders")

# Location of the confirmations
confirmations_folder <- file.path("confirmations")

test_that("Simple orders", {
  confirmation_file <- file.path(confirmations_folder, "2017-08-30-1NE23456-confirmation.pdf")

  transactions <- read_confirmations(confirmation_file)
  orders <- orders$create(transactions)

  xop <- orders %>% filter(underlying == "XOP")
  fb  <- orders %>% filter(underlying == "FB")

  # There should be 2 orders.
  expect_equal(nrow(orders), 2)
  # One for XOP
  expect_equal(nrow(xop), 1)
  # And one for FB
  expect_equal(nrow(fb), 1)
})