added tests

Author: Youzhi Yu

DESCRIPTION

@@ -1,16 +1,19 @@
 Package: tidyEmoji
 Type: Package
-Title: Detects Emoji on Text
+Title: Discovers Emoji from Text
 Version: 0.1.0
 Author: Youzhi Yu
 Maintainer: Youzhi Yu <[email protected]>
 Description: Unicodes are not friendly to work with, and not all Unicodes are
-    Emoji per se, making obtaining Emoji statistics a not-so-easy task. This
-    tool can help your experience of working with Emoji as smooth as possible.
+    Emoji per se, making obtaining Emoji statistics a difficult task. This
+    tool can help your experience of working with Emoji as smooth as possible,
+    as it has the tidyverse style. 
 License: GPL (>= 3)
 Encoding: UTF-8
 LazyData: true
 RoxygenNote: 7.1.2
+Depends: 
+    R (>= 3.5.0)
 Imports: 
     dplyr,
     emoji,
@@ -19,3 +22,6 @@ Imports:
     tibble,
     tidyr,
     utils
+Suggests: 
+    testthat (>= 3.0.0)
+Config/testthat/edition: 3

tests/testthat.R

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

tests/testthat/test-dimensions.R

@@ -0,0 +1,49 @@
+library(dplyr)
+
+df <- data.frame(tweets = c("I love tidyverse \U0001f600\U0001f603\U0001f603",
+                            "R is my language! \U0001f601\U0001f606\U0001f605",
+                            "This Tweet does not have Emoji!",
+                            "Wearing a mask\U0001f637\U0001f637\U0001f637.",
+                            "Emoji does not appear in all Tweets"))
+
+
+test_that("emoji_summary dimension", {
+
+  expect_equal(
+    df %>%
+      emoji_summary(tweets) %>%
+      pull(emoji_tweets),
+    3
+  )
+
+  expect_equal(
+    df %>%
+      emoji_summary(tweets) %>%
+      pull(total_tweets),
+    5
+  )
+})
+
+
+test_that("emoji_tweets dimension", {
+  expect_equal(
+    df %>%
+    emoji_tweets(tweets) %>%
+    dim() %>%
+    .[1],
+    3
+  )
+})
+
+
+
+test_that("top_n_emojis emoji names", {
+  expect_identical(
+    df %>%
+      top_n_emojis(tweets, n = 1) %>%
+      pull(emoji_name),
+    "face_with_medical_mask"
+  )
+})
+
+