Skip to content
Snippets Groups Projects
Commit f68b94a3 authored by Lucas Schons's avatar Lucas Schons
Browse files

I dont understand this

parent 33c77b1e
No related branches found
No related tags found
1 merge request!34Resolve "Add unit tests for clean_html.R"
...@@ -4,13 +4,9 @@ test_that("html cleansing works", { ...@@ -4,13 +4,9 @@ test_that("html cleansing works", {
filename_raw <- "article-4-raw.html" filename_raw <- "article-4-raw.html"
filename_cleansed <- "article-4-cleansed.txt" filename_cleansed <- "article-4-cleansed.txt"
html <- readChar(filename_raw, file.info(filename_raw)$size) html <- readChar(filename_raw, file.info(filename_raw)$size)
<<<<<<< HEAD
expected <- gsub("\\s", "", readChar(filename_cleansed, file.info(filename_cleansed)$size)) expected <- gsub("\\s", "", readChar(filename_cleansed, file.info(filename_cleansed)$size))
actual <- gsub("\\s", "", clean_html(html)) actual <- gsub("\\s", "", clean_html(html))
=======
expected <- readChar(filename_cleansed, file.info(filename_cleansed)$size)
actual <- clean_html(html)
>>>>>>> master
expect_equal(expected, actual) expect_equal(expected, actual)
}) })
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment