tests/testthat/test-transact.R

In kuhnrl30/LendingClub: A Lending Club API Wrapper

library(LendingClub)
context("Transactions")

# skip_on_cran()

test_that("lc_ListedLoans",{
    
    skip_on_cran()
    
    LC_CRED<- lc_MakeCredential(
        investorID= as.character(Sys.getenv("investorId", "", names=F)), 
        APIkey= Sys.getenv("APIkey", "", names=F))
    
    listed<- lc_ListedLoans(showAll=T, LC_CRED)
    expect_s3_class(listed, "ListedLoans")
    expect_is(listed$content, "list")
})


test_that("FolioListing",{
    
    skip_on_cran()
    
    LC_CRED<- lc_MakeCredential(
        investorID= as.character(Sys.getenv("investorId", "", names=F)), 
        APIkey= Sys.getenv("APIkey", "", names=F))
    
    listed<- FolioListing(updatedSince=30, LC_CRED)
    expect_s3_class(listed, "folio_api")
    expect_s3_class(listed, "LendingClub_api")
    expect_is(listed$content, "data.frame")
})

test_that("lc_SubmitOrder", {
    
    skip_on_cran()
    
    expect_error(lc_SubmitOrder(123,456, LC_CRED="abc"), "Please create the credential object .*")
    
    
})


test_that("FolioOrders", {
    
    skip_on_cran()
    
    expect_error(FolioOrders("abc", orderType = "SELL", status = NULL, LC_CRED), "includeDetails is not logical")
    expect_error(FolioOrders(T, orderType= NULL, status = NULL, LC_CRED), "orderType not spec.*")
    expect_error(FolioOrders(T, orderType= "fail", status = NULL, LC_CRED), "orderType should be .*")
    
    
    expect_error(FolioOrders(T, orderType= "SELL", status= "fail", LC_CRED), "status type is not valid")
    
    expect_error(FolioOrders(TRUE, orderType= "SELL", status= NULL, LC_CRED= "abc"), "Please create the credential object .*")
    
})

test_that("FolioBuy", {
    
    skip_on_cran()
    
    LC_CRED<- lc_MakeCredential(
        investorID= as.character(Sys.getenv("investorId", "", names=F)), 
        APIkey= Sys.getenv("APIkey", "", names=F))
    
    expect_error(
        expect_warning(
            FolioBuy(loanId = "abc", orderId = "def", noteId = 1234, LC_CRED), 
            "The loanId variable"))
})

test_that("FolioSell", {
    
    skip_on_cran()
    
    LC_CRED<- lc_MakeCredential(
        investorID= as.character(Sys.getenv("investorId", "", names=F)), 
        APIkey= Sys.getenv("APIkey", "", names=F))
    
    expect_error(
        expect_warning(
            FolioSell(loanId = "abc", orderId = "def", noteId = 1234, LC_CRED), 
            "The loanId variable"))
})