tests/testthat/test_gtadata.R

In chriszheng2016/ZStockModels: ZStockModels - Stock factors Models for China Stock Market Investment

# unit testing for gta_db (specific class of stock database)

library(ZStockModels)
context("gta_db class features")

context("Testing features of gta_db class")

# test_that("stock db open and close", {
#   stock_db <- gta_db("GTA_SQLData")
#   expect_is(stock_db, "gta_db")
#   expect_true(open_stock_db.gta_db(stock_db))
#   expect_true(close_stock_db.gta_db(stock_db))
# })