Group associated unit tests

Share:

Description

Group associated unit tests with TAP compliant comments separating the output.

Usage

1
  ok_group(message, tests)

Arguments

message

Character vector describing this group. Will be printed as a comment before the tests are ran.

tests

A code block full of tests.

Details

Used to group a selection of tests together, for instance you may group the tests relating to a function together.

Value

Returns NULL.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
  ## Not run: 
  ok_group("Test addition", {
      ok(1 + 1 == 2, "Can add 1")
      ok(1 + 3 == 4, "Can add 3")
  })
  ok_group("Test subtraction", {
      ok(1 - 1 == 0, "Can subtract 1")
      ok(1 - 3 == -2, "Can subtract 3")
  })
  # # Test addition
  # ok - Can add 1
  # ok - Can add 3
  # # Test subtraction
  # ok - Can subtract 1
  # ok - Can subtract 3

  # Multiline group message 
  ok_group(c("Test multiplication", "but not division"),{
      ok(1 * 1 == 1, "Can multiply by 1")
      ok(2 * 3 == 6, "Can multiply by 3")
  })
  # # Test multiplication
  # # but not division
  # ok - Can multiply by 1
  # ok - Can multiply by 3
  
## End(Not run)

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.