"You are a weather bot. Use the provided functions to answer questions."
"The city and state e.g. San Francisco, CA"

ass$model (`actual`) not equal to "gpt-4-1106-preview" (`expected`).

`actual` is NULL
`expected` is a character vector ('gpt-4-1106-preview')

runct$object (`actual`) not equal to "thread.run" (`expected`).

`actual` is NULL
`expected` is a character vector ('thread.run')

Error in `expect_contains(runl$data$thread_id, runct$thread_id)`: `object` and `expected` must both be vectors

sss<-handle_openai$audio$speech(input = "Hi, this is a voice transmission test.",response_format="mp3")
streammp3<-handle_openai$audio$speech(input = "Hi, this is a voice transmission test",response_format="mp3",stream = T,num=1000)
expect_equal(text_E1$text,"Hi, this is a voice transmission test.")
expect_equal(text_E2$text,"Hi, this is a voice transmission test.")
sss<-handle_openai$audio$speech(input = "Hi, this is a voice transmission test.",response_format="mp3",verbosity = 4)
text_E1<-handle_openai$audio$transcription(path = test_file1,verbosity = 4)
text_E2<-handle_openai$audio$translation(path = test_file1,verbosity = 4)
text_E1<-handle_openai$audio$transcription(path = NULL,verbosity = 3)
text_E2<-handle_openai$audio$translation(path = NULL,verbosity = 3)

"Hi, this is a voice transmission test."

Error in `writeBin(sss, test_file1)`: can only write vector objects

names(thr) (`actual`) doesn't fully contain all the values in "id" (`expected`).
* Missing from `actual`: "id"
* Present in `actual`:   "success", "message", "type"

thm$metadata$test (`actual`) not equal to "test" (`expected`).

`actual` is NULL
`expected` is a character vector ('test')

thd$deleted is not TRUE

`actual` is NULL
`expected` is a logical vector (TRUE)