tests/testthat/test_issue50.R

In robotstxt: A 'robots.txt' Parser and 'Webbot'/'Spider'/'Crawler' Permissions Checker

context("robotstxt missing scheme")


test_that(
  "robotstxt no scheme works", {
    expect_true({
      if ( Sys.getenv("rpkg_use_internet_for_testing") == "TRUE"  ){
        paths_allowed("www.google.com")
      } else {
        TRUE
      }
    })

    expect_true({
      if ( Sys.getenv("rpkg_use_internet_for_testing") == "TRUE"  ){
        paths_allowed("google.com")
      } else {
        TRUE
      }
    })

  }
)



test_that(
  "robotstxt scheme works", {
    expect_true({
      if ( Sys.getenv("rpkg_use_internet_for_testing") == "TRUE"  ){
        paths_allowed("https://google.com")
      } else {
        TRUE
      }
    })

    expect_true({
      if ( Sys.getenv("rpkg_use_internet_for_testing") == "TRUE"  ){
        paths_allowed("https://www.google.com")
      } else {
        TRUE
      }
    })

    expect_true({
      if ( Sys.getenv("rpkg_use_internet_for_testing") == "TRUE"  ){
        paths_allowed("http://google.com")
      } else {
        TRUE
      }
    })

    expect_true({
      if ( Sys.getenv("rpkg_use_internet_for_testing") == "TRUE"  ){
        paths_allowed("http://www.google.com")
      } else {
        TRUE
      }
    })
  }
)