tests/testthat/test-load_different_version.R

In multiversion: Version Controlled Package Manager

# To work on tests and to understand testcases better, run:
#
# .set_test_lib_location()
# lib.installed_packages()

with_safe_package_tester({

    test_that(desc = 'load different version', {

        stopifnot(!'package:package.c' %in% search())

        msg1 <- capture.output(lib.load(package.c = '15.2.8'), type = 'message')
        expect_match(msg1[[1]], 'Exactly [ ]*15.2.8.*package.c')

        expect_equal(what_version_are_you(), '15.2.8')

        msg2 <- capture.output(lib.load(package.c = '15.2.9'), type = 'message')
        expect_match(msg2[[1]], 'Unloaded package.c because the currently attached version was not compatible with the new requirements')
        expect_match(msg2[[2]], 'Exactly [ ]*15.2.9.*package.c')

        # check which packages are loaded
        expect_true('package:package.c' %in% search())
        # package.c 15.2.8 is really unloaded?
        expect_error(package_c1(), 'could not find function')
        expect_error(package.c::package_c1(), "is not an exported object from 'namespace:package.c'")
        expect_equal(package.c::package_c2(), 'package_c2')
        expect_equal(what_version_are_you(), '15.2.9')

        # Just test some random other packages
        expect_false('package:package.a' %in% search())
        expect_false('package:package.d' %in% search())
        expect_false('package:package.e' %in% search())
    })
})


with_safe_package_tester({

        test_that(desc = 'Check package loading messages', {

        stopifnot(!'package:package.c' %in% search())

        # All load version '15.2.9'
        msg1 <- capture.output(lib.load(package.c, pick.last = TRUE), type = 'message')
        msg2 <- capture.output(lib.load(package.c),                   type = 'message')
        msg3 <- capture.output(lib.load(package.c = '> 15.2.8'),      type = 'message')
        msg4 <- capture.output(lib.load(package.c = ' >= 15.2.8 '),   type = 'message')  # Testing the trimws
        msg5 <- capture.output(lib.load(package.c = '15.2.9'),        type = 'message')

        # check what messages are printed.
        expect_match(msg1, "Version 15.2.9  is picked")
        expect_match(msg2, "Version 15.2.9  is picked")
        expect_match(msg3, "Version 15.2.9  is chosen.*(> 15.2.8)")
        expect_match(msg4, "Version 15.2.9  is chosen.*(>= 15.2.8)")
        expect_match(msg5, "Exactly 15.2.9  is used")
        })
    })