Skip to main content

Browse the archive

Revision 5dbc7ef13680d99c0990cf5b8a8ba867aeab9ada authored by Alexey Sergushichev on 14 June 2022, 18:30:35 UTC, committed by Alexey Sergushichev on 14 June 2022, 18:30:35 UTC 
Longer timeout for "Waiting..." dialog
1 parent 80dee83
Raw File
teststatic.R 
context("Static files")

test_that("versions match", {
    versionStr <- readLines(system.file("www/phantasus.js/RELEASE.js", package="phantasus"))[1]
    versionStr <- gsub("^.*'(.*)';$", "\\1", versionStr)
    expect_equal(versionStr, fromJSON(phantasusVersion()))
})
back to top