inst/tests/testthat/test-checkmate.R

In botor: 'AWS Python SDK' ('boto3') for R

library(botor)
library(testthat)

context('custom checkmate extensions')
test_that('S3 path', {
    expect_true(check_s3_uri('s3://foobar'))
    expect_true(check_s3_uri('s3://34foobar'))
    expect_error(assert_s3_uri('foobar'))
    expect_error(assert_s3_uri('https://foobar'))
    expect_error(assert_s3_uri('s3://..foobar'))
})