From 4edbaabccfb95352543263b7410583048cf54c4b Mon Sep 17 00:00:00 2001
From: mjockers <mjockers@gmail.com>
Date: Fri, 28 Jul 2017 16:56:53 -0500
Subject: [PATCH] Fixed testthat to work with parallel.  The so-called
 "infamous R_TESTS catch."

---
 tests/testthat.R              | 1 +
 tests/testthat/test-syuzhet.R | 5 +++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/tests/testthat.R b/tests/testthat.R
index 744b74a..6198934 100644
--- a/tests/testthat.R
+++ b/tests/testthat.R
@@ -1,3 +1,4 @@
+Sys.unsetenv("R_TESTS")
 library(testthat)
 library(syuzhet)
 
diff --git a/tests/testthat/test-syuzhet.R b/tests/testthat/test-syuzhet.R
index 07fb427..4300c6f 100644
--- a/tests/testthat/test-syuzhet.R
+++ b/tests/testthat/test-syuzhet.R
@@ -36,7 +36,8 @@ test_that("Sentiments are returned correctly", {
   expect_equal(length(sents), length(nrc))
 })
 
-cl <- parallel::makeCluster(2) #No more than 2 cores on CRAN
+context("Getting Sentiment in Parallel")
+cl <- parallel::makeCluster(2) # No more than 2 cores on CRAN
 parallel::clusterExport(cl = cl, c("get_sentiment", "get_sent_values", "get_nrc_sentiment", "get_nrc_values"))
 
 syu_par   <- get_sentiment(sents, method = "syuzhet", cl=cl)
@@ -59,4 +60,4 @@ test_that("Parallel sentiments are returned correctly", {
   expect_equal(bing, bing_par)
   expect_equal(afinn, afinn_par)
   expect_equal(nrc, nrc_par)
-})
\ No newline at end of file
+})