Compare ⋅ datawookie/emayili

No flags found

Use flags to group coverage reports by test type, project and/or folders.
Then setup custom commit statuses and notifications for each flag.

e.g., #unittest #integration

#production #enterprise

#frontend #backend

Learn more about Codecov Flags here.

Showing 1 of 5 files from the diff.

100.00% 100.00% +13.51%

R/encrypt.R changed.

Other files ignored by Codecov

tests/testthat/test-utils.R has changed.

tools/check.R has changed.

tests/testthat/test-encrypt.R has changed.

tests/testthat/test-mime.R has changed.

@@ -20,13 +20,13 @@

Loading

#' msg %>% encrypt()
#' }
encrypt <- function(msg, encrypt = TRUE, sign = TRUE, public_key = TRUE) {
  encrypt <- ifelse(is.null(encrypt), FALSE, encrypt)
  encrypt <- ifelse(is.null(encrypt), FALSE, encrypt)           # nocov start
  sign <- ifelse(is.null(sign), FALSE, sign)
  stopifnot(is.logical(encrypt) && is.logical(sign))

  msg$encrypt <- encrypt
  msg$sign <- sign
  msg$public_key <- public_key
  msg$public_key <- public_key                                  # nocov end

  if (get_option_invisible()) invisible(msg) else msg # nocov
}

@@ -41,7 +41,7 @@

Loading


  if (encrypt || sign || public_key) {
    if(!requireNamespace("gpg", quietly = TRUE)) {
      stop("Install {gpg} to encrypt and/or sign messages.")
      stop("Install {gpg} to encrypt and/or sign messages.")    # nocov
    }
    log_debug("Encrypt message: {encrypt}")
    log_debug("Sign message:    {sign}")

@@ -55,10 +55,10 @@

Loading


    keys <- gpg::gpg_list_keys()

    missing_keys <- anti_join(recipients, keys, by = "email")
    missing_keys <- anti_join(parties, keys, by = "email")

    if (nrow(missing_keys)) {
      stop("Missing public keys for the follow addresses: ", paste(missing_keys$email, collapse = ", "), ".")
      stop("Missing keys for the follow addresses: ", paste(missing_keys$email, collapse = ", "), ".")
    }

    # Get the fingerprints of the senders' keys.

@@ -77,10 +77,15 @@

Loading


    if (sign || public_key) {
      if (!("multipart_mixed" %in% class(content))) {
        log_debug("Convert message to multipart/mixed.")
        content <- multipart_mixed(
          children = list(content)
        )
        if (is.null(content)) {
          log_debug("Create empty multipart/mixed.")
          content <- multipart_mixed()
        } else {
          log_debug("Convert message to multipart/mixed.")
          content <- multipart_mixed(
            children = list(content)
          )
        }
      }
    }


Learn more Showing 3 files with coverage changes found.

Changes in R/mime.R

-1

→

+1

Loading file...

Changes in R/encrypt.R

-2

→

+2

Loading file...

Changes in R/utils.R

-3

→

+3

Loading file...

99.26% 100.00% +1.70%

chore: Complete test coverage

datawookie

a19ab2a

CI Passed

-4

+10

-14

97.56% ø +6.83%

Bump version: 0.6.9 → 0.7.0

datawookie

60b05d9

CI Passed

Files		•	•	•	Coverage
R	-4	+10	ø	-14	^+1.70% 99.26%
Project Totals (20 files)	816	810	0	6	99.26%

20	20		#' msg %>% encrypt()
21	21		#' }
22	22		encrypt <- function(msg, encrypt = TRUE, sign = TRUE, public_key = TRUE) {
23		-	encrypt <- ifelse(is.null(encrypt), FALSE, encrypt)
	23	+	encrypt <- ifelse(is.null(encrypt), FALSE, encrypt) # nocov start
24	24		sign <- ifelse(is.null(sign), FALSE, sign)
25	25		stopifnot(is.logical(encrypt) && is.logical(sign))
26	26
27	27		msg$encrypt <- encrypt
28	28		msg$sign <- sign
29		-	msg$public_key <- public_key
	29	+	msg$public_key <- public_key # nocov end
30	30
31	31		if (get_option_invisible()) invisible(msg) else msg # nocov
32	32		}

41	41
42	42		if (encrypt \|\| sign \|\| public_key) {
43	43		if(!requireNamespace("gpg", quietly = TRUE)) {
44		-	stop("Install {gpg} to encrypt and/or sign messages.")
	44	+	stop("Install {gpg} to encrypt and/or sign messages.") # nocov
45	45		}
46	46		log_debug("Encrypt message: {encrypt}")
47	47		log_debug("Sign message: {sign}")

55	55
56	56		keys <- gpg::gpg_list_keys()
57	57
58		-	missing_keys <- anti_join(recipients, keys, by = "email")
	58	+	missing_keys <- anti_join(parties, keys, by = "email")
59	59
60	60		if (nrow(missing_keys)) {
61		-	stop("Missing public keys for the follow addresses: ", paste(missing_keys$email, collapse = ", "), ".")
	61	+	stop("Missing keys for the follow addresses: ", paste(missing_keys$email, collapse = ", "), ".")
62	62		}
63	63
64	64		# Get the fingerprints of the senders' keys.

77	77
78	78		if (sign \|\| public_key) {
79	79		if (!("multipart_mixed" %in% class(content))) {
80		-	log_debug("Convert message to multipart/mixed.")
81		-	content <- multipart_mixed(
82		-	children = list(content)
83		-	)
	80	+	if (is.null(content)) {
	81	+	log_debug("Create empty multipart/mixed.")
	82	+	content <- multipart_mixed()
	83	+	} else {
	84	+	log_debug("Convert message to multipart/mixed.")
	85	+	content <- multipart_mixed(
	86	+	children = list(content)
	87	+	)
	88	+	}
84	89		}
85	90		}
86	91

Navigation	Overlay
`t` Navigate files	`h` Toggle hits
`y` Change url to tip of branch	`m` Toggle misses
`b / v` Jump to prev/next hit line	`p` Toggle partial
`z / x` Jump to prev/next missed or partial line	`1..9` Toggle flags
`shift + o` Open current page in GitHub	`a` Toggle all on
`/ or ?` Show keyboard shortcuts dialog	`c` Toggle context lines or commits

Compare `60b05d9 ... +0 ... a19ab2a`

No flags found

2 Commits

Compare 60b05d9 ... +0 ... a19ab2a

No flags found

2 Commits

Compare `60b05d9 ... +0 ... a19ab2a`