<ApiTests xmlns="http://labkey.org/query/xml">

<test name="create a dataset with a invalid category ID" type="post">

<url>

<![CDATA[

library(Rlabkey)

df <- data.frame(customInt=c(1:3), customString=c("aaa", "bbb", "ccc"))

fields <- labkey.domain.inferFields(baseUrl=labkey.url.base, folderPath="%projectName%", df)

dd <- labkey.domain.createDesign(name="test dataset one", fields=fields)

print(labkey.domain.create(baseUrl=labkey.url.base, folderPath="%projectName%", domainKind="StudyDatasetVisit", domainDesign=dd, options=list(categoryId = -1)))

]]>

</url>

<response>

<![CDATA[

HTTP request was unsuccessful. Status code = 500, Error message = Unable to find a category with the ID : -1 in this folder.

]]>

</response>

</test>

<test name="create a dataset with a category ID and category name" type="post">

<url>

<![CDATA[

library(Rlabkey)

df <- data.frame(customInt=c(1:3), customString=c("aaa", "bbb", "ccc"))

fields <- labkey.domain.inferFields(baseUrl=labkey.url.base, folderPath="%projectName%", df)

dd <- labkey.domain.createDesign(name="test dataset one", fields=fields)

print(labkey.domain.create(baseUrl=labkey.url.base, folderPath="%projectName%", domainKind="StudyDatasetVisit", domainDesign=dd, options=list(categoryId = -1, categoryName = "Control Group A")))

]]>

</url>

<response>

<![CDATA[

HTTP request was unsuccessful. Status code = 500, Error message = Category ID and category name cannot both be specified.

]]>

</response>

</test>

<test name="create a dataset with a valid category name" type="post">

<url>

<![CDATA[

library(Rlabkey)

df <- data.frame(customInt=c(1:3), customString=c("aaa", "bbb", "ccc"))

fields <- labkey.domain.inferFields(baseUrl=labkey.url.base, folderPath="%projectName%", df)

dd <- labkey.domain.createDesign(name="test dataset one", fields=fields)

print(labkey.domain.create(baseUrl=labkey.url.base, folderPath="%projectName%", domainKind="StudyDatasetVisit", domainDesign=dd, options=list(categoryName = "Control Group A")))

]]>

</url>

<response>

<![CDATA[

$success

[1] TRUE

$name

[1] "test dataset one"

]]>

</response>

</test>

<test name="create dataset and load data" type="post">

<url>

<![CDATA[

library(Rlabkey)

df <- data.frame(ParticipantID=c(1,1,1), Visit=c(1,2,3), customInt=c(1:3), customString=c("aaa", "bbb", "ccc"))

info <- labkey.domain.createAndLoad(baseUrl=labkey.url.base, folderPath="%projectName%", domainKind="StudyDatasetVisit", df=df, name="test dataset with load data")

print(paste("Create successful = ", info$success, sep=""))

print(paste("Rows via createAndLoad = ", info$rowCount, sep=""))

]]>

</url>

<response>

<![CDATA[

Create successful = TRUE

Rows via createAndLoad = 3

]]>

</response>

</test>

</ApiTests>