tests/testthat/test-backend.R

In strboul/shinyNotes: Create note taking application with Shiny

context("test-backend")

## set tests notes folder path:
set_notes_folder_path("tests/testthat", "test-notes")

test_that("get notes folder path", {
  path.base <- basename(get_notes_folder_path())
  expect_equal(path.base, "test-notes")  
})

## create_test_notes_folder (if not exists):
create_notes_folder()

test_that("create new note", {
  
  new_note("TEST", "this is\n some content\n")
  
})