1library(ini)
2context("read.ini")
3
4test_that("read.ini parse ini files", {
5  expect_equal(read.ini("writeini.txt"), list('Hello World'=c(list('Foo'='Bar'), list('Foo1'='Bar=345'))))
6  expect_warning(read.ini(""))
7})
8