fp_bold <- shortcuts$fp_bold()

test_that("block_list structure", {

  img.file <- file.path( R.home("doc"), "html", "logo.jpg" )
  bl <- block_list(
    fpar(ftext("hello world", fp_bold)),
    fpar( ftext("hello", fp_bold),
          external_img(src = img.file, height = 1.06, width = 1.39)
          )
    )

  expect_length(bl, 2)
  expect_length(bl[[2]]$chunks, 2)

  expect_is(bl[[2]]$chunks[[1]], "ftext")
  expect_is(bl[[2]]$chunks[[2]], "external_img")
  expect_is(bl[[2]]$chunks[[1]], "cot")
  expect_is(bl[[2]]$chunks[[1]], "run")
  expect_is(bl[[2]]$chunks[[2]], "cot")
})


