Nothing
context("Tests the grading function")
test_that("test missing args for calcGrades", {
# check that it throws error when you don't supply all arguments
expect_error(calcGrades())
})
test_that("test correct output for calcGrades", {
submissions <- "example/assignment1_submissions/"
my_test_file <- "example/grade_hw1.R"
results <- calcGrades(submissions,my_test_file, TRUE)
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)
})
test_that("another example for calcGrades", {
submissions <- "example2/assignment2_submissions/"
my_test_file <- "example2/grade_hw2.R"
results <- calcGrades(submissions,my_test_file, TRUE)
print("results: ")
print(results)
print("\n" )
# first student
expect_equal(results[1,1], "example2/assignment2_submissions/student1/hw1.R")
expect_equal(results[1,2], 1)
expect_equal(results[1,3], 1)
expect_equal(results[1,4], 1)
# second student
expect_equal(results[2,1], "example2/assignment2_submissions/student2/myhw1.r")
expect_equal(results[2,2], 0)
expect_equal(results[2,3], 1)
expect_equal(results[2,4], 0)
})
test_that("test bad args for gradescope function", {
# check that it throws error when you don't supply all arguments
expect_error(calcGradesForGradescope("fake_file.R", "anotherfakeFile.R", "bad_arg"))
# missing args doesn't fly
expect_error(calcGradesForGradescope())
})
test_that("test multiple assertions per test in calcGrades", {
submissions <- "example3/assignment3_submissions/"
my_test_file <- "example3/grade_hw3.R"
results <- calcGrades(submissions,my_test_file, TRUE)
expect_equal(results[1,1], "example3/assignment3_submissions/student1/hw1.R")
expect_equal(results[2,1], "example3/assignment3_submissions/student2/myhw1.r")
expect_equal(results[1,2], 0)
expect_equal(results[2,2], 0)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.