tests/testthat/test-cardano.R

In pat-s/ppcryptoparser: Portfolio Performance Crypto Currency Staking Parser

test_that("parse_cardano works", {
  data("cardano")

  res_de <- parse_cardano(cardano,
    pp_lang = "DE", securities_account = "test",
    dec = "."
  )
  checkmate::check_data_frame(res_de, any.missing = FALSE)
  testthat::expect_named(res_de, c(
    "Datum", "Stueck", "Wechselkurs", "Buchungswaehrung", "Wert",
    "Wertpapiername", "Typ", "Depot"
  ))

  res_en <- parse_cardano(cardano,
    pp_lang = "EN", , securities_account = "test",
    dec = "."
  )
  checkmate::check_data_frame(res_en, any.missing = FALSE)
  testthat::expect_named(res_en, c(
    "Date", "Shares", "Exchange Rate", "Transaction Currency",
    "Value", "Security Name", "Type", "Securities Account"
  ))
})