Tests test the code (solution)

Exercise
Output solution 

Attaching package: 'dplyr'
The following object is masked from 'package:testthat':

    matches
The following objects are masked from 'package:stats':

    filter, lag
The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

Attaching package: 'readr'
The following objects are masked from 'package:testthat':

    edition_get, local_edition
Rows: 10 Columns: 3
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr (2): id, dnaseq
dbl (1): earlength

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

get_gc_content()

Test passed 😀

get_size_class()

  1. That each case is working when the numbers are in the range
Test passed 😀
  1. The edgecases of 8, 10, and 15
Test passed 🎊
  1. What happens if non-numerical values are passed to the function
Test passed 🌈