Running 'test_asserts.R' [0s]
  Running 'test_chksum.R' [0s]
  Running 'test_manip.R' [0s]
  Running 'test_parse_sequence_string.R' [164s]
  Running 'test_tables.R' [0s]
Running the tests in 'tests/test_parse_sequence_string.R' failed.
Complete output:
  > parse_sequence_string <- seguid:::parse_sequence_string
  > 
  > 
  > spec <- "TATGCC\nATACGG"
  > truth <- list(type = "ds", specification = spec, watson = "TATGCC", crick = "GGCATA")
  > res <- parse_sequence_string(spec)
  > str(res)
  List of 4
   $ type         : chr "ds"
   $ specification: chr "TATGCC\nATACGG"
   $ watson       : chr "TATGCC"
   $ crick        : chr "GGCATA"
  > stopifnot(all.equal(res, truth))
  > 
  > spec <- "-TATGCC\nCATACG-"
  > truth <- list(type = "ds", specification = spec, watson = "-TATGCC", crick = "-GCATAC")
  > res <- parse_sequence_string(spec)
  > str(res)
  List of 4
   $ type         : chr "ds"
   $ specification: chr "-TATGCC\nCATACG-"
   $ watson       : chr "-TATGCC"
   $ crick        : chr "-GCATAC"
  > stopifnot(all.equal(res, truth))
  > 
  > spec <- "TATGCC--\n-TACGGGG"
  > truth <- list(type = "ds", specification = spec, watson = "TATGCC--", crick = "GGGGCAT-")
  > res <- parse_sequence_string(spec)
  > str(res)
  List of 4
   $ type         : chr "ds"
   $ specification: chr "TATGCC--\n-TACGGGG"
   $ watson       : chr "TATGCC--"
   $ crick        : chr "GGGGCAT-"
  > stopifnot(all.equal(res, truth))
  > 
  > spec <- "TATGCC--\n--ACGGGG"
  > truth <- list(type = "ds", specification = spec, watson = "TATGCC--", crick = "GGGGCA--")
  > res <- parse_sequence_string(spec)
  > str(res)
  List of 4
   $ type         : chr "ds"
   $ specification: chr "TATGCC--\n--ACGGGG"
   $ watson       : chr "TATGCC--"
   $ crick        : chr "GGGGCA--"
  > stopifnot(all.equal(res, truth))
  > 
  > 
  > spec <- "- TGCC\nATACGG"
  > res <- tryCatch({
  +   parse_sequence_string(spec)
  + }, error = identity)
  > print(res)
  <simpleError in parse_sequence_string(spec): Syntax error in sequence string: '- TGCC
  ATACGG'>
  > stopifnot(inherits(res, "error"))
  > 
  > spec <- " -TGCC\nATACGG"
  > res <- tryCatch({
  +   parse_sequence_string(spec)
  + }, error = identity)
  > print(res)
  <simpleError in parse_sequence_string(spec): Syntax error in sequence string: ' -TGCC
  ATACGG'>
  > stopifnot(inherits(res, "error"))
  > 
  > spec <- "---TGCC\nATACGG"
  > res <- tryCatch({
  +   parse_sequence_string(spec)
  + }, error = identity)
  > print(res)
  <simpleError in parse_sequence_string(spec): Double-strand sequence string specifies two strands of different lengths (7 != 6): '---TGCC\\nATACGG'>
  > stopifnot(inherits(res, "error"))
  > 
  > spec <- "---TGCC\n-ATACGG"
  > res <- tryCatch({
  +   parse_sequence_string(spec)
  + }, error = identity)
  > print(res)
  <simpleError in parse_sequence_string(spec): Please trim the staggering. Watson and Crick are both staggered at the beginning of the double-stranded sequence: '---TGCC\\n-ATACGG'>
  > stopifnot(inherits(res, "error"))
  > 
  > spec <- "TATGCC-\nATACGG-"
  > res <- tryCatch({
  +   parse_sequence_string(spec)
  + }, error = identity)
  > print(res)
  <simpleError in parse_sequence_string(spec): Please trim the staggering. Watson and Crick are both staggered at the end of the double-stranded sequence: 'TATGCC-\\nATACGG-'>
  > stopifnot(inherits(res, "error"))
  > 
  > proc.time()
     user  system elapsed 
     0.21    0.07    0.25