111 lines
2.1 KiB
R
111 lines
2.1 KiB
R
.setUp <- function() {}
|
|
.tearDown <- function() {}
|
|
|
|
test.tojson <- function()
|
|
{
|
|
x <- 15433
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "15433" )
|
|
|
|
x <- 15.543
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "15.543" )
|
|
|
|
x <- TRUE
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "true" )
|
|
|
|
x <- FALSE
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "false" )
|
|
|
|
x <- NULL
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "null" )
|
|
|
|
#Test strings
|
|
x <- "hello"
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "\"hello\"" )
|
|
|
|
x <- "hel\"lo"
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "\"hel\\\"lo\"" )
|
|
|
|
x <- "hel\n"
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "\"hel\\n\"" )
|
|
|
|
x <- "\n\r\t"
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "\"\\n\\r\\t\"" )
|
|
|
|
x <- ""
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "\"\"" )
|
|
|
|
x <- "\u0041\u006c\u0065\u0078\u002B"
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "\"Alex+\"" )
|
|
|
|
x <- "\u018E"
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "\"\\u018e\"" )
|
|
|
|
x <- "\u3020"
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "\"\\u3020\"" )
|
|
|
|
#test arrays
|
|
x <- c(10, 50, 30)
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "[10,50,30]" )
|
|
|
|
x <- list(10, 50, 30)
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "[10,50,30]" )
|
|
|
|
x <- list(10, 50, TRUE)
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "[10,50,true]" )
|
|
|
|
x <- list(10, 50, list())
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "[10,50,[]]" )
|
|
|
|
x <- list(10, 50, NULL)
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "[10,50,null]" )
|
|
|
|
x <- list()
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "[]" )
|
|
|
|
x <- c(T,T,F,F,T,F)
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "[true,true,false,false,true,false]" )
|
|
|
|
#test dicts
|
|
x <- list(key="value")
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "{\"key\":\"value\"}" )
|
|
|
|
x <- c(key="value")
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "{\"key\":\"value\"}" )
|
|
|
|
x <- c(key=TRUE, car=FALSE)
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "{\"key\":true,\"car\":false}" )
|
|
|
|
x <- list(key=TRUE, car=FALSE, apple=c(10.5, 28))
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "{\"key\":true,\"car\":false,\"apple\":[10.5,28]}" )
|
|
|
|
x <- c(a=T,b=F)
|
|
j <- toJSON( x, "C" )
|
|
checkIdentical( j, "{\"a\":true,\"b\":false}" )
|
|
|
|
}
|
|
|