Nothing
context("textwriter")
describe("WSTextWriter", {
it("basically works", {
wsw <- WSTextWriter()
expect_identical(wsw$readAll(), "")
wsw$write("")
expect_identical(wsw$readAll(), "")
wsw$write("line one")
expect_identical(wsw$readAll(), "line one")
wsw$write("\nanother line")
expect_identical(wsw$readAll(), "line one\nanother line")
wsw$write("more content")
expect_identical(wsw$readAll(), "line one\nanother linemore content")
# Non-character writes
expect_error(wsw$write(1))
expect_error(wsw$write(letters[1:2]))
expect_error(WSTextWriter(bufferSize=2))
})
it("eats past and future whitespace", {
wtw <- WSTextWriter()
expect_identical(wtw$readAll(), "")
wtw$writeWS(" ")
expect_identical(wtw$readAll(), " ")
wtw$writeWS(" ")
wtw$writeWS(" ")
wtw$eatWS()
expect_identical(wtw$readAll(), "")
wtw$writeWS(" ")
wtw$writeWS(" ")
wtw$writeWS(" ")
expect_identical(wtw$readAll(), "")
wtw$write("Hello")
expect_identical(wtw$readAll(), "Hello")
wtw$writeWS(" ")
expect_identical(wtw$readAll(), "Hello ")
wtw$eatWS()
expect_identical(wtw$readAll(), "Hello")
wtw$writeWS(" ")
expect_identical(wtw$readAll(), "Hello")
})
it("handles full buffers of non-WS writes", {
wtw <- WSTextWriter(bufferSize = 3)
wtw$write("a")
wtw$write("b")
wtw$write("c")
wtw$write("d")
wtw$write("e")
wtw$write("f")
expect_identical(wtw$readAll(), "abcdef")
wtw$eatWS()
expect_identical(wtw$readAll(), "abcdef")
wtw$write("g")
wtw$writeWS(" ")
expect_identical(wtw$readAll(), "abcdefg ")
wtw$eatWS()
expect_identical(wtw$readAll(), "abcdefg")
})
it("handles full buffers of whitespace writeWS's", {
wtw <- WSTextWriter(bufferSize = 3)
# fill the buffer with whitespace that it will need to accumulate
wtw$writeWS(" ")
wtw$writeWS(" ")
wtw$writeWS(" ")
wtw$writeWS(" ")
expect_identical(wtw$readAll(), " ")
wtw$eatWS()
expect_identical(wtw$readAll(), "")
wtw$write("b")
wtw$writeWS(" ")
wtw$writeWS(" ")
wtw$writeWS(" ")
wtw$writeWS(" ")
expect_identical(wtw$readAll(), "b ")
wtw$eatWS()
expect_identical(wtw$readAll(), "b")
})
})
describe("validateNoWS",{
it("basically works", {
validateNoWS(NULL)
validateNoWS(noWSOptions[1])
validateNoWS(noWSOptions[1:2])
validateNoWS(noWSOptions)
expect_error(validateNoWS("badOption"))
expect_error(validateNoWS(c(noWSOptions, "badOption")))
# capitalization matters
expect_error(validateNoWS(toupper(noWSOptions[1])))
})
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.