apb/pdfbox
1
0
Fork 0
Code Activity Actions

[fix] tests

Browse source
This commit is contained in:
Andy Bunce 2025-02-09 21:34:13 +00:00
parent 9ff9005a96
commit 4aeafeb034
3 changed files with 23 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
package.json
View file

@ -1,6 +1,6 @@
{
"name": "pdfbox",
"version": "0.1.3",
"version": "0.1.4",
"description": "A BaseX interface to Apache Pdfbox version 3",
"main": "src/Pdfbox3.xqm",
"homepage": "https://github.com/npm/example#readme",

9
src/Pdfbox3.xqm
View file

@ -190,11 +190,10 @@ as map(*){
(:~ outline as xml :)
declare function pdfbox:outline-xml($pdf as item())
as element(outline)?{
element outline {
let $outline:=pdfbox:outline($pdf)
return if(exists($outline))
then <outline>{$outline!pdfbox:bookmark-xml(.)}</outline>
}
let $outline:=pdfbox:outline($pdf)
return if(exists($outline))
then <outline>{$outline!pdfbox:bookmark-xml(.)}</outline>
else ()
};
declare %private function pdfbox:bookmark-xml($outline as map(*)*)

31
src/test/test.xqm
View file

@ -15,42 +15,42 @@ function test:pdfbox-version(){
declare %unit:test
function test:specification(){
let $pdf:=test:pdf("samples.pdf/BaseX100.pdf")
let $pdf:=test:open("samples.pdf/BaseX100.pdf")
let $spec:=pdfbox:specification($pdf)
return unit:assert-equals($spec,"1.4")
};
declare %unit:test
function test:page-count(){
let $pdf:=test:pdf("samples.pdf/BaseX100.pdf")
let $pdf:=test:open("samples.pdf/BaseX100.pdf")
let $pages:=pdfbox:page-count($pdf)
return unit:assert-equals($pages,521)
};
declare %unit:test
function test:outline-none(){
let $pdf:=test:pdf("samples.pdf/BaseX100.pdf")
let $pdf:=test:open("samples.pdf/BaseX100.pdf")
let $outline:=pdfbox:outline($pdf)
return unit:assert(empty($outline))
};
declare %unit:test
function test:outline-present(){
let $pdf:=test:pdf("samples.pdf/icelandic-dictionary.pdf")
let $pdf:=test:open("samples.pdf/icelandic-dictionary.pdf")
let $outline:=pdfbox:outline($pdf)
return unit:assert(exists($outline))
};
declare %unit:test
function test:outline-xml(){
let $pdf:=test:pdf("samples.pdf/icelandic-dictionary.pdf")
let $pdf:=test:open("samples.pdf/icelandic-dictionary.pdf")
let $outline:=pdfbox:outline-xml($pdf)
return unit:assert-equals(count($outline/bookmark),31)
};
declare %unit:test
function test:labels(){
let $pdf:=test:pdf("samples.pdf/BaseX100.pdf")
let $pdf:=test:open("samples.pdf/BaseX100.pdf")
let $labels:=pdfbox:labels($pdf)
return (
@ -62,7 +62,7 @@ function test:labels(){
declare %unit:test
function test:extract-save(){
let $pdf:=test:pdf("samples.pdf/BaseX100.pdf")
let $pdf:=test:open("samples.pdf/BaseX100.pdf")
let $dest:=file:create-temp-file("test",".pdf")=>trace("DEST: ")
let $outline:=pdfbox:extract($pdf,2,12,$dest)
return unit:assert(true())
@ -70,26 +70,31 @@ function test:extract-save(){
declare %unit:test
function test:page-text(){
let $pdf:=test:pdf("samples.pdf/BaseX100.pdf")
let $pdf:=test:open("samples.pdf/BaseX100.pdf")
let $text:=pdfbox:page-text($pdf,1)
return unit:assert(starts-with($text,"BaseX Documentation"))
};
declare %unit:test
function test:page-image(){
let $pdf:=test:pdf("samples.pdf/BaseX100.pdf")
let $pdf:=test:open("samples.pdf/BaseX100.pdf")
let $image:=pdfbox:page-image($pdf,0,map{})
return unit:assert(true())
};
declare %unit:test
function test:pdf-with(){
let $path:=test:pdf("samples.pdf/BaseX100.pdf")
let $path:=test:resolve("samples.pdf/BaseX100.pdf")
let $txt:=pdfbox:with-pdf($path,pdfbox:page-text(?,101))
return unit:assert-equals($txt,"Options")
return unit:assert(starts-with($txt,"Options"))
};
declare function test:pdf($file as xs:string)
declare function test:open($file as xs:string)
as item(){
file:resolve-path($file,$test:base)=>pdfbox:open()
test:resolve($file)=>pdfbox:open()
};
declare function test:resolve($file as xs:string)
as item(){
file:resolve-path($file,$test:base)
};