tests/testthat/test-pkgname.R

In rpact: Confirmatory Adaptive Clinical Trial Design and Analysis

## |
## |  *Unit tests*
## |
## |  This file is part of the R package rpact:
## |  Confirmatory Adaptive Clinical Trial Design and Analysis
## |
## |  Author: Gernot Wassmer, PhD, and Friedrich Pahlke, PhD
## |  Licensed under "GNU Lesser General Public License" version 3
## |  License text can be found here: https://www.r-project.org/Licenses/LGPL-3
## |
## |  RPACT company website: https://www.rpact.com
## |  RPACT package website: https://www.rpact.org
## |
## |  Contact us for information about our services: info@rpact.com
## |
## |  File name: test-pkgname.R
## |  Creation date: 06 February 2023, 12:14:51
## |  File version: $Revision: 8333 $
## |  Last changed: $Date: 2024-10-18 10:54:09 +0200 (Fr, 18 Okt 2024) $
## |  Last changed by: $Author: pahlke $
## |


test_that("Run just one basic rpact test", {
    design <- getDesignGroupSequential()
    expect_equal(design$alphaSpent, c(0.00025917372, 0.0071600594, 0.02499999), tolerance = 1e-07)
    expect_equal(design$criticalValues, c(3.4710914, 2.4544323, 2.0040356), tolerance = 1e-07)
    expect_equal(design$stageLevels, c(0.00025917372, 0.0070553616, 0.022533125), tolerance = 1e-07)
})

test_that("rpact unit test information", {
    cat("\n\n")
    cat("
            RRRRRRR    PPPPPPP    AAAAAAA   CCCCCCC   TTTTTTTT
            R      R   P      P   A      A  C              TT  
            RRRRRRR    PPPPPPP    AAAAAAAA  C              TT  
            R    R     P          A      A  C              TT  
            R     R    P          A      A   CCCCCCC       TT  
            ")
    cat("\n\n")
    message("NOTE: The full set of unit tests for rpact is now stored in a private repository.")
    message("Only members of the 'RPACT User Group' have access to the tests.")
    message("For more information, please visit: www.rpact.org/iq")
    expect_true(TRUE)
})