test_that("link_license matchs exactly", { # R 3.1 uses http url skip_if_not(getRversion() >= "3.2.0") # Shouldn't match first GPL-2 expect_equal( autolink_license("LGPL-2"), "<a href='https://www.r-project.org/Licenses/LGPL-2'>LGPL-2</a>" ) expect_equal( autolink_license("MPL-2.0"), "<a href='https://www.mozilla.org/en-US/MPL/2.0/'>MPL-2.0</a>" ) }) test_that("link_license matches LICENSE", { expect_equal( autolink_license("LICENSE"), "<a href='LICENSE-text.html'>LICENSE</a>" ) expect_equal( autolink_license("LICENCE"), "<a href='LICENSE-text.html'>LICENCE</a>" ) })
Generated by dwww version 1.15 on Wed Jun 26 01:23:28 CEST 2024.