tests/testthat/test-read_wad.R

In dfsp-spirit/wal: Read and Write 'wal' Bitmap Image Files and Other 'Quake' Assets

testthat::test_that("We can read a WAD file.", {
  #wadf = system.file("extdata", "test.wad", package = "wal", mustWork = TRUE);
  wadf = file.path("~/data/knave.wad"); # get it from quaddicted.com
  if(! file.exists(wadf)) {
    testthat::skip("Test WAD file available");
  }

  wad = read.wad(wadf);

  testthat::expect_false(is.null(wad$header));
  testthat::expect_false(is.null(wad$contents));
  testthat::expect_equal(nrow(wad$contents), 455L);
  testthat::expect_true(is.data.frame(wad$contents));

  # list WAD contents
  wc = wad.contents(wad);
  testthat::expect_true(is.data.frame(wc));

  # extract WAD
  td = tempdir();
  wad.extract(wadf, outdir = td);
  testthat::expect_true(file.exists(file.path(td, 'brimstone2.qrs')));

  # load Q1 texture from within the WAD
  qm = read.quake1miptex(wadf, at_offset = 1317632L);
})