inst/tests/test_get_adif_headers.R

In 4current/adif: Amateur Radio Data Interchange Format files

# write some data
conn<-file("test.adi", open="w")
writeLines(c("Abra: Cadabra", "Open: sesame",
             "dada <eoh> let the records begin"), conn)
close(conn)

conn<-file("test.adi", open="r")
results <- get_adif_headers( conn )
close(conn)

context("get_adif_headers")
expect_length(results, 2)
expect_named(results)

headers <- results[["headers"]]
expect_vector(headers)
expect_length(headers, 3)