Add testthat tests for audio and chat endpoints

tests/testthat/test-create_chat_completion.R

@@ -0,0 +1,88 @@
+#-------------------------------------------------------------------------------
+# create_chat_completion()
+
+function_name <- "create_chat_completion"
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "model",
+    argument_type = "string",
+    allow_null = FALSE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "temperature",
+    argument_type = "number",
+    allow_null = FALSE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "top_p",
+    argument_type = "number",
+    allow_null = FALSE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "n",
+    argument_type = "count",
+    allow_null = FALSE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "stream",
+    argument_type = "flag",
+    allow_null = FALSE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "stop",
+    argument_type = "character",
+    allow_null = TRUE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "max_tokens",
+    argument_type = "count",
+    allow_null = FALSE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "presence_penalty",
+    argument_type = "number",
+    allow_null = FALSE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "frequency_penalty",
+    argument_type = "number",
+    allow_null = FALSE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "user",
+    argument_type = "string",
+    allow_null = TRUE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "openai_api_key",
+    argument_type = "string",
+    allow_null = FALSE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "openai_organization",
+    argument_type = "string",
+    allow_null = TRUE
+)

tests/testthat/test-create_completion.R

@@ -122,6 +122,13 @@ test_argument_validation(
     allow_null = FALSE
 )
 
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "openai_api_key",
+    argument_type = "string",
+    allow_null = FALSE
+)
+
 test_argument_validation(
     function_name = function_name,
     argument_name = "openai_organization",

tests/testthat/test-create_transcription.R

@@ -0,0 +1,60 @@
+#-------------------------------------------------------------------------------
+# create_transcription()
+
+function_name <- "create_transcription"
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "file",
+    argument_type = "string",
+    allow_null = FALSE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "model",
+    argument_type = "string",
+    allow_null = FALSE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "prompt",
+    argument_type = "character",
+    allow_null = TRUE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "response_format",
+    argument_type = "string",
+    allow_null = FALSE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "temperature",
+    argument_type = "number",
+    allow_null = FALSE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "language",
+    argument_type = "string",
+    allow_null = TRUE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "openai_api_key",
+    argument_type = "string",
+    allow_null = FALSE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "openai_organization",
+    argument_type = "string",
+    allow_null = TRUE
+)

tests/testthat/test-create_translation.R

@@ -0,0 +1,46 @@
+#-------------------------------------------------------------------------------
+# create_translation()
+
+function_name <- "create_translation"
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "file",
+    argument_type = "string",
+    allow_null = FALSE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "model",
+    argument_type = "string",
+    allow_null = FALSE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "prompt",
+    argument_type = "character",
+    allow_null = TRUE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "response_format",
+    argument_type = "string",
+    allow_null = FALSE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "temperature",
+    argument_type = "number",
+    allow_null = FALSE
+)
+
+test_argument_validation(
+    function_name = function_name,
+    argument_name = "openai_organization",
+    argument_type = "string",
+    allow_null = TRUE
+)