Add psl corners

gesistsa · Sep 25, 2023 · 489877b · 489877b
1 parent 3431434
commit 489877b
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/testthat/test-psl.R b/tests/testthat/test-psl.R
@@ -15,3 +15,9 @@ test_that("public suffix works on complete list", {
   psla <- public_suffix(urls)
   expect_true(all(psla == psl$fixed))
 })
+
+test_that("corners", {
+    expect_equal(public_suffix(NA), NA_character_)
+    expect_equal(public_suffix(NULL), character(0))
+    expect_equal(public_suffix(""), NA_character_)
+})