Add tests for accepting GRanges object

.Rbuildignore

@@ -17,3 +17,4 @@ package-lock\.json$
 package\.json$
 ^inst/markdown/.*\.html$
 ^data-raw$
+^codecov.yml

.gitignore

@@ -44,3 +44,5 @@ vignettes/*.R
 .Renviron 
 # MotifPeeker specific
 inst/markdown/*.html
+.gitignore
+codecov.yml

tests/testthat/test-read_peak_file.R

@@ -9,6 +9,7 @@ test_that("read_peak_file can read MACS3 peak file and auto-infer format", {
                                    package = "MotifPeeker")
     macs3_peak_read <- read_peak_file(macs3_peak_file)
     expect_length(macs3_peak_read, 209)
+    expect_identical(read_peak_file(macs3_peak_read), macs3_peak_read)
 })
 test_that("read_peak_file fails with unknown file format forced", {
     invalid_peak_file <- system.file("extdata", "motif_MA1102.3.jaspar",
@@ -17,3 +18,9 @@ test_that("read_peak_file fails with unknown file format forced", {
     expect_error(read_peak_file(invalid_peak_file, file_format = "bed"))
     expect_error(read_peak_file(invalid_peak_file))
 })
+test_that("read_peak_file fails if GRanges without summit col is passed", {
+    macs3_peak_file <- system.file("extdata", "CTCF_ChIP_peaks.narrowPeak",
+                                   package = "MotifPeeker")
+    peak_gr <- rtracklayer::import(macs3_peak_file, format = "narrowPeak")
+    expect_error(read_peak_file(peak_gr))
+})