tests/testthat/test_notifier.R

In ShaulAb/alphabetter: Collection of 'Rstudio' Addins

context("I/O Notifications")
library(alphabetter)

# test strings:
#
#   I/O artifacts:
#     1. no read/writes at all
#     2. read/write with single quotes
#     3. read/write with double quotes
#
#   libraries detection:
#     4. no libraries at all
#     5. explicit patterns library(.*), require(.*)
#     6. implicit pattern .*::some_func

# {1}
no_rw <-
  'my_w <- "write.csv name here"
   my_r <- "read.csv name here"
   # some comments'

no_rw2 <-
  'write.something(df, "df")
   my_r <- read.something("path")'

# {2}
single_quotes <-
  "df <- read_csv('iris.csv')
   head(df)
   write_csv(head(df), 'head_iris.csv')"

# {3}
double_quotes <-
  'df <- read_csv("iris.csv")
   head(df)
   write_csv(head(df), "head_iris.csv")'

# {4}
no_libs <-
  'malformed library(1234)
   malformed require(a.)
   one colon only usethis:pkgdown()'

# {5}
explicit_libs <-
  'library(dplyr)
   require(magrittr)'

# {6}
implicit_libs <-
  'dplyr::select(cars, everything())
   ggplot2::ggplot() +
     theme_bw()'

test_that("no false alarms", {
  expect_equal(notify_io(no_rw), "")
  expect_equal(notify_io(no_rw2), "")
  expect_equal(notify_libraries(no_libs), "")
})

test_that("single quotes", {
  expect_equal(notify_io(single_quotes),
               "# line 1:\tread_csv\t'iris.csv'\n# line 3:\twrite_csv\t'head_iris.csv'")
})

test_that("double quotes", {
  expect_equal(notify_io(double_quotes),
               '# line 1:\tread_csv\t"iris.csv"\n# line 3:\twrite_csv\t"head_iris.csv"')
})

test_that("explicit libraries", {
  expect_equal(notify_libraries(explicit_libs),
               '# line 1: dplyr\n# line 2: magrittr')
})

test_that("implicit libraries", {
  expect_equal(notify_libraries(implicit_libs),
               '# line 1: dplyr\n# line 2: ggplot2')
})