1context("Google SSL tests") 2 3# Certificates from https://pki.goog/ 4 5test_that("google certs validate", { 6 # Google CA root certs 7 gsr4 <- read_cert('https://pki.goog/repo/certs/gsr4.der', der = TRUE) 8 gtsr1 <- read_cert('https://pki.goog/repo/certs/gtsr1.der', der = TRUE) 9 gtsr2 <- read_cert('https://pki.goog/repo/certs/gtsr2.der', der = TRUE) 10 gtsr3 <- read_cert('https://pki.goog/repo/certs/gtsr3.der', der = TRUE) 11 gtsr4 <- read_cert('https://pki.goog/repo/certs/gtsr4.der', der = TRUE) 12 13 # Test good servers 14 expect_true(cert_verify(download_ssl_cert('good.gsr4demo.pki.goog'), gsr4)) 15 expect_true(cert_verify(download_ssl_cert('good.r1demo.pki.goog'), gtsr1)) 16 expect_true(cert_verify(download_ssl_cert('good.r2demo.pki.goog'), gtsr2)) 17 expect_true(cert_verify(download_ssl_cert('good.r3demo.pki.goog'), gtsr3)) 18 expect_true(cert_verify(download_ssl_cert('good.r4demo.pki.goog'), gtsr4)) 19 20 # Test expired servers 21 expect_error(cert_verify(download_ssl_cert('expired.gsr4demo.pki.goog'), gsr4), 'expired') 22 expect_error(cert_verify(download_ssl_cert('expired.r1demo.pki.goog'), gtsr1), 'expired') 23 expect_error(cert_verify(download_ssl_cert('expired.r2demo.pki.goog'), gtsr2), 'expired') 24 expect_error(cert_verify(download_ssl_cert('expired.r3demo.pki.goog'), gtsr3), 'expired') 25 expect_error(cert_verify(download_ssl_cert('expired.r4demo.pki.goog'), gtsr4), 'expired') 26}) 27