tests/testthat/test_thread.R

In openaistream: Streaming Capabilities for 'OpenAI API' Interactions

test_that("thread",{
  skip_on_cran()
  Sys.setenv(TEST_EX_COND = "")
  handle_openai<-openai$new(Sys.getenv("OPENAI_KEY"))
  if(Sys.getenv("USE_PROXY")=="TRUE"){
    handle_openai$set_proxy("10.0.108.36",7890)
  }
  thc<-handle_openai$threads$create()
  expect_contains(names(thc),"id")
  thr<-handle_openai$threads$retrieve(thc$id)
  expect_contains(names(thr),"id")
  thm<-handle_openai$threads$modify(thr$id,metadata=list(test="test"))
  expect_equal(thm$metadata$test,"test")
  thd<-handle_openai$threads$delete(thr$id)
  expect_true(thd$deleted)
  #error test
  thc<-handle_openai$threads$create(verbosity = 4)
  expect_true(!thc$success)
  thr<-handle_openai$threads$retrieve(thc$id,verbosity = 4)
  expect_true(!thr$success)
  thm<-handle_openai$threads$modify(thr$id,metadata=list(test="test"),verbosity = 4)
  expect_true(!thm$success)
  thd<-handle_openai$threads$delete(thr$id,verbosity = 4)
  expect_true(!thd$success)
})