test_that("Package has correct structure", {
  expect_true(file.exists(system.file("DESCRIPTION", package = "xlsxjars")),
              "DESCRIPTION file should exist")
  
  expect_true(file.exists(system.file("COPYRIGHTS", package = "xlsxjars")),
              "COPYRIGHTS file should exist")
  
  expect_true(dir.exists(system.file("java", package = "xlsxjars")),
              "java directory should exist")
})

test_that("Package metadata is correct", {
  desc <- packageDescription("xlsxjars")
  
  expect_equal(desc$Package, "xlsxjars")
  expect_match(desc$Title, "POI Jars")
  expect_equal(desc$License, "GPL-3")
  expect_match(desc$Description, "xlsxjars package")
})