library(readr)
amsterdam <- read_csv("airbnb_amsterdam.csv")
sample <- head(amsterdam, n = 30)
context("Price Range Listing")
test_that("Range function works", {
for(i in 1:20){
x <- sample(1:10, 1)
y <- sample(1:10, 1)
if(x>y){
expect_that(nrow(airbnb_listing(sample,1,50,x)) >= nrow(airbnb_listing(sample,1,50,y)), is_true())
} else if(x<y){
expect_that(nrow(airbnb_listing(sample,1,50,x)) <= nrow(airbnb_listing(sample,1,50,y)), is_true())
} else if(x==y){
expect_that(nrow(airbnb_listing(sample,1,50,x)) == nrow(airbnb_listing(sample,1,50,y)), is_true())
}
}
})
test_that("Price Limit Testing", {
#Testing when price entered is below the min of the price
expect_error(airbnb_listing(sample, 2, 9), "Budget out of limit of price range", fixed = TRUE)
#Testing when price entered is above the max of the price
expect_error(airbnb_listing(sample, 2, 10000), "Budget out of limit of price range", fixed = TRUE)
})
test_that("Bedrooms Limit Testing", {
#Testing when the number of bedrooms entered is above the max of that of bedrooms
expect_error(airbnb_listing(sample, 11, 1000), "Bedrooms cannot be negative or out of the range", fixed = TRUE)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.