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