tests_tutorial_04.R

library(testthat)
library(digest)




test_0.1 <- function(){
    test_that('Solution is incorrect', {
        expect_equal(digest(A), 'db8e490a925a60e62212cefc7674ca02') # we hid the answer to the test here so you can't see it, but we can still run the test
        expect_equal(digest(B), 'e5b57f323c7b3719bbaaf9f96b260d39') # we hid the answer to the test here so you can't see it, but we can still run the test
        expect_equal(digest(C), '6717f2823d3202449301145073ab8719') # we hid the answer to the test here so you can't see it, but we can still run the test
        expect_equal(digest(D), 'dbc09cba9fe2583fb01d63c70e1555a8') # we hid the answer to the test here so you can't see it, but we can still run the test
        expect_equal(digest(E), '0aee9b78301d7ec8998971363be87c03') # we hid the answer to the test here so you can't see it, but we can still run the test
        expect_equal(digest(F), '5e338704a8e069ebd8b38ca71991cf94') # we hid the answer to the test here so you can't see it, but we can still run the test
        })
print("Success!")
    }

test_0.2 <- function(){
    test_that('Solution is incorrect', {
        expect_equal(digest(answer0.2), '05ca18b596514af73f6880309a21b5dd') # we hid the answer to the test here so you can't see it, but we can still run the test
        })
print("Success!")
    }

test_1.1 <- function(){
    test_that('Solution is incorrect', {
        expect_equal(digest(answer1.1), '0590b0427c1b19a6eb612d19888aa52f') # we hid the answer to the test here so you can't see it, but we can still run the test
        })
print("Success!")
    }

test_1.2 <- function(){
    test_that('Solution is incorrect', {
        expect_equal(digest(answer1.2), '75f1160e72554f4270c809f041c7a776') # we hid the answer to the test here so you can't see it, but we can still run the test    
        })
print("Success!")
    }

test_1.3 <- function(){
    test_that('Did not create an object named insurance', {
        expect_true(exists("insurance")) 
        })
    test_that('insurance should be a data frame.', {
        expect_true('data.frame' %in% class(insurance))
        })
    test_that('insurance does not contain the correct number of rows and/or columns.', {
        expect_equal(dim(insurance), c(1338, 7))
        })
    test_that('Columns in insurance contain incorrect values.', {
        expect_equal(digest(as.integer(sum(insurance$age))), '61160677dd5eaf5b041347b9ff0c9b2d')
        expect_equal(digest(as.integer(length(unique(insurance$region)))), '234a2a5581872457b9fe1187d1616b13') # we hid the answer to the test here so you can't see it, but we can still run the test
        })
print("Success!")
    }

test_1.5 <- function(){
    properties <- c(bmi_plot$layers[[1]]$mapping, bmi_plot$mapping)
    labels <- bmi_plot$labels
    test_that('Did not create a plot named bmi_plot', {
        expect_true(exists("bmi_plot")) 
        })
    test_that('bmi should be on the x-axis.', {
        expect_true("bmi" == rlang::get_expr(properties$x))
        })
    test_that('charges should be on the y-axis.', {
        expect_true("charges" == rlang::get_expr(properties$y))
        })
    test_that('bmi_plot should be a scatter plot.', {
        expect_that("GeomPoint" %in% c(class(bmi_plot$layers[[1]]$geom)) , is_true())
        })
    test_that('Labels on the axes and legend should be descriptive and human readable.', {
        expect_that((labels$y) == 'charges', is_false())
        expect_that((labels$x) == 'bmi', is_false())
        })
print("Success!")
    }


test_1.9.0 <- function(){
    test_that('Solution is incorrect', {
        expect_equal(digest(answer1.9.0), 'd2a90307aac5ae8d0ef58e2fe730d38b') # we hid the answer to the test here so you can't see it, but we can still run the test
        })
print("Success!")
    }

test_1.9.1 <- function(){
    test_that('Solution is incorrect', {
        expect_equal(digest(answer1.9.1), '05ca18b596514af73f6880309a21b5dd') # we hid the answer to the test here so you can't see it, but we can still run the test
        })
print("Success!")
    }

test_1.10_old <- function(){
    test_that('Did not create a plot named bar_plot', {
        expect_true(exists("bar_plot")) 
        })
    # test_that('Count up the number of rows.')
        # expect 
    test_that('sex should be on the x-axis.', {
        expect_that("sex" %in% c(rlang::get_expr(bar_plot$mapping$x),rlang::get_expr(bar_plot$layers[[1]]$mapping$x)), is_true())
        })
    test_that('bar_plot should map smoker to the colour filled in the bars.', {
        expect_equal(digest(as.character(rlang::get_expr(bar_plot$mapping$fill))) , '059bc865bfafc56a35be79573fc6f02b')
        })
    test_that('bar_plot should be a bar chart.', {
        expect_that("GeomBar" %in% c(class(bar_plot$layers[[1]]$geom)) , is_true())
        })
    test_that('Label for the legend should be descriptive and human readable.', {
        expect_equal(digest(bar_plot$labels$fill), '2ba2a41537b71ba968e6f15e9d2f914e')
        })
# Need to test for position = fill  
print("Success!")
    }

test_1.10 <- function(){
    properties <- c(bar_plot$layers[[1]]$mapping, bar_plot$mapping)
    labels <- bar_plot$labels
    test_that('Did not create a plot named bar_plot', {
        expect_true(exists("bar_plot")) 
        })
    test_that('sex should be on the x-axis.', {
        expect_true("sex" == rlang::get_expr(properties$x))
        })
    test_that('the smoker variable should be used to colour fill the bars.', {
        expect_true("smoker" == rlang::get_expr(properties$fill))
        })
    test_that('bar_plot should be a bar plot.', {
        expect_that("GeomBar" %in% c(class(bar_plot$layers[[1]]$geom)) , is_true())
        })
    test_that('bar_plot position should be fill', {
        expect_that("PositionFill" %in% class(bar_plot$layers[[1]]$position) , is_true())
        })
    test_that('Labels on the axes and legend should be descriptive and human readable.', {
        expect_that((labels$x) == 'sex', is_false())
        expect_that((labels$fill) == 'smoker', is_false())
        })
print("Success!")
    }

test_1.11 <- function(){
    test_that('Solution is incorrect', {
        expect_equal(digest(answer1.11), 'a92f67bf4e1efa7b94661c5af29effc2') # we hid the answer to the test here so you can't see it, but we can still run the test
        })
print("Success!")
    }