inst/extdata/test_calcGrades.r

In tbrown122387/gradeR: Helps Grade Assignment Submissions that are R Scripts

context("Tests the one function")

test_that("test missing args", {

  expect_error(calcGrades())


  submissions <- "example/assignment1_submissions/"
  my_test_file <- "example/grade_hw1.R"
  results <- calcGrades(submissions, my_test_file)
  expect_equal(results[1,1], "example/assignment1_submissions/student1/hw1.R")
  expect_equal(results[2,1], "example/assignment1_submissions/student2/myhw1.r")
  expect_equal(results[1,2], "1")
  expect_equal(results[2,2], "0")
  expect_equal(results[1,3], "1")
  expect_equal(results[2,3], "1")

})