context("print.GCalign")

library(testthat)
data("aligned_peak_data")

a <- print(x=aligned_peak_data)

# test_that("output is correct", {
#     No idea what to test here!
#
# })