Nothing
context("stub tests for BAS webservices (to be extended)")
sourceDirMain = file.path(tempdir(), "emuR_demoData")
sourceDir = file.path(sourceDirMain, "txt_collection")
testDir = file.path(tempdir(), "emuR_testthat")
dbName = "bas_test"
unlink(file.path(testDir, paste0(dbName, emuDB.suffix)), recursive = TRUE)
test_that("testing whether runBASwebservice_all runs without error",
{
skip("skipping as it takes 4 ever to test -> make sure to rerun on deploy")
skip_on_cran()
convert_txtCollection(
sourceDir = sourceDir,
targetDir = testDir,
dbName = dbName,
verbose = FALSE
)
handle = load_emuDB(file.path(testDir, paste0(dbName, emuDB.suffix)), verbose = FALSE)
runBASwebservice_all(handle, "transcription", "eng-AU", verbose = FALSE)
})
unlink(file.path(testDir, paste0(dbName, emuDB.suffix)), recursive = TRUE)
test_that(
"testing whether all the other runBASwebservice_* functions run without error when chained together",
{
skip("skipping as it takes 4 ever to test -> make sure to rerun on deploy")
skip_on_cran()
convert_txtCollection(
sourceDir = sourceDir,
targetDir = testDir,
dbName = dbName,
verbose = FALSE
)
handle = load_emuDB(file.path(testDir, paste0(dbName, emuDB.suffix)), verbose = FALSE)
runBASwebservice_g2pForTokenization(handle, "transcription", "eng-GB", verbose = FALSE)
runBASwebservice_g2pForPronunciation(handle, "ORT", "eng-GB", verbose = FALSE)
runBASwebservice_chunker(handle,
"KAN",
"eng-GB",
rootLevel = "bundle",
verbose = FALSE)
runBASwebservice_maus(handle,
"KAN",
"eng-GB",
chunkLevel = "TRN",
verbose = FALSE)
runBASwebservice_minni(handle, "eng-GB", rootLevel = "bundle", verbose = FALSE)
runBASwebservice_pho2sylCanonical(handle, "KAN", "eng-GB", verbose = FALSE)
runBASwebservice_pho2sylSegmental(handle,
"MAU",
"eng-GB",
superLevel = "ORT",
verbose = FALSE)
}
)
unlink(file.path(testDir, paste0(dbName, emuDB.suffix)), recursive = TRUE)
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.