17 lines
918 B
R
17 lines
918 B
R
|
# This file is auto-generated by alef — DO NOT EDIT.
|
||
|
|
# alef:hash:4e15143f4af1ae8bafbdb1506ef057da924484c66a19483966333558ad437e75
|
||
|
|
# To regenerate: alef generate
|
||
|
|
# To verify freshness: alef verify --exit-code
|
||
|
|
# Issues & docs: https://github.com/kreuzberg-dev/alef
|
||
|
|
# E2e tests for category: pdf
|
||
|
|
|
||
|
|
test_that("render_pdf_page_first: render_pdf_page_to_png: first page", {
|
||
|
|
result <- render_pdf_page_to_png(pdf_bytes = readBin(.resolve_fixture("pdf/fake_memo.pdf"), what = "raw", n = file.info(.resolve_fixture("pdf/fake_memo.pdf"))$size), page_index = 0, NULL, NULL)
|
||
|
|
expect_true(TRUE)
|
||
|
|
expect_true(length(result) >= 100)
|
||
|
|
})
|
||
|
|
|
||
|
|
test_that("render_pdf_page_out_of_range: render_pdf_page_to_png: page out of range", {
|
||
|
|
expect_error(render_pdf_page_to_png(pdf_bytes = readBin(.resolve_fixture("pdf/fake_memo.pdf"), what = "raw", n = file.info(.resolve_fixture("pdf/fake_memo.pdf"))$size), page_index = 999, NULL, NULL))
|
||
|
|
})
|