Tests/mean_precip_test.R

In robertsaldivar/esm262package:

#mean_precip test

test_that("mean_precip_works",
          {
            fake_data = data.frame(year = c(2008,2008,2008,2008,2008), month = c(1,1,1,1,1), day = c(1,2,3,4,5), precip = c(1,2,3,2,2))

            #Testing the fake data
            expect_equal(mean_precip(fake_data), 2)

            #Creating a test designed to fail to make sure it works
            expect_gt(mean_precip(fake_data), 100)

            #as precipitation cannot be negative I am creating a test to check for that
            expect_true(mean_precip(fake_data) >= 0)
            expect_true(mean_precip(noaa_weather_data) >= 0)

            #Creating more fake data to use the expect gt where it works
            fake_data$precip = 15
            expect_gt(mean_precip(fake_data), 2)

            #The highest recorded annuall of rainfall in sb county is 46.97 inches so I am going to use the noaa data to ensure that is true
            expect_lt(mean_precip(noaa_weather_data), 47)

          })