added tests

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: teamcolors
 Type: Package
 Title: Color Palettes for Pro Sports Teams
-Date: 2019-07-12
-Version: 0.0.1.9008
+Date: 2019-07-15
+Version: 0.0.2
 Authors@R: c(
     person("Benjamin S.", "Baumer", email = "ben.baumer@gmail.com", role = c("aut", "cre")), 
     person("Gregory J.", "Matthews", email = "gjm112@gmail.com", role = c("aut")),
@@ -17,7 +17,8 @@ Imports:
     dplyr,
     ggplot2
 Suggests:
-    Lahman
+    Lahman,
+    testthat (>= 2.1.0)
 License: GPL
 Encoding: UTF-8
 LazyData: true

NEWS.md

@@ -7,6 +7,7 @@
 * Added color palette functionality through named vectors
 * Added links to logos
 * Added NCAA colors (thanks `lbenz`!) (https://github.com/beanumber/teamcolors/pull/11)
+* Added tests
 
 # teamcolors 0.0.1
 

cran-comments.md

@@ -1,7 +1,7 @@
 ## Test environments
-* local OS X install, R 3.4.1
+* local OS X install, R 3.6.0
 * local Ubuntu install, R 3.6.0
-* ubuntu 14.04.5 (on travis-ci), R 3.4.1, oldrel, release, devel
+* ubuntu 14.04.5 (on travis-ci), oldrel, release, devel
 * win-builder (devel and release)
 
 ## R CMD check results
@@ -10,7 +10,7 @@
 
 ## Reverse dependencies
 
-This is a new release, so there are no reverse dependencies.
+There are no reverse dependencies.
 
 ---
 

tests/testthat.R

@@ -0,0 +1,4 @@
+library(testthat)
+library(teamcolors)
+
+test_check("teamcolors")

tests/testthat/test-colors.R

@@ -0,0 +1,11 @@
+test_that("colors work", {
+  expect_equal(ncol(teamcolors), 8)
+  expect_is(teamcolors, "tbl_df")
+
+  expect_is(team_pal(), "character")
+  expect_gt(sum(team_pal(2) != team_pal(), na.rm = TRUE) / nrow(teamcolors), 0.95)
+  expect_error(team_pal(7), "between")
+
+  expect_equal(class(scale_color_teams()), class(scale_color_discrete())) 
+  expect_equal(class(scale_fill_teams()), class(scale_fill_discrete())) 
+})