62 lines
1.8 KiB
Text
62 lines
1.8 KiB
Text
(:tests for doci :)
|
|
module namespace test = 'test:doci';
|
|
import module namespace doci = 'urn:doci' at "../src/doci.xqm";
|
|
|
|
(:~ we can create record from file :)
|
|
declare %unit:test function test:from-file() {
|
|
let $doc:=test:read("resources/doc1.txt")
|
|
let $doci:= doci:build($doc)
|
|
return test:expected($doc,$doci,530)
|
|
|
|
};
|
|
|
|
(:~ we can create record from string :)
|
|
declare %unit:test function test:from-string1() {
|
|
let $doc:="a one line string"
|
|
let $doci:= doci:build($doc)
|
|
return test:expected($doc,$doci,1)
|
|
|
|
};
|
|
(:~ we can create record from string :)
|
|
declare %unit:test function test:from-string2() {
|
|
let $doc:="a two line string
|
|
second line"
|
|
let $doci:= doci:build($doc)
|
|
return test:expected($doc,$doci,2)
|
|
|
|
};
|
|
(:~ we can create record from string :)
|
|
declare %unit:test function test:update1() {
|
|
let $doc:="123456789"
|
|
let $doci:= doci:build($doc)
|
|
let $change:=doci:TextDocumentContentChangeEvent(
|
|
"*",
|
|
doci:Range(doci:Position(0,0),doci:Position(0,0))
|
|
)
|
|
|
|
let $doci2:=doci:change($doci,$change)=>trace("A")
|
|
let $change2:=doci:TextDocumentContentChangeEvent(
|
|
"",
|
|
doci:Range(doci:Position(0,0),doci:Position(0,1))
|
|
)
|
|
let $update:=doci:change($doci2,$change2)=>trace("b")
|
|
return ()
|
|
};
|
|
(: test $doci properties as expected :)
|
|
declare function test:expected($doc as xs:string, $doci as doci:doci, $lines as xs:integer){
|
|
unit:assert-equals($doci?lines=>count(),$lines),
|
|
unit:assert($doci?separator!string-length(.)>0),
|
|
unit:assert-equals($doc,doci:text($doci))
|
|
};
|
|
|
|
(:~ we can create record. :)
|
|
declare %unit:test function test:lines() {
|
|
test:read("resources/doc1.txt")!doci:build(.)?lines=>count()
|
|
};
|
|
|
|
|
|
(:~ utils :)
|
|
declare function test:read($path as xs:string)
|
|
as xs:string{
|
|
file:resolve-path($path,file:base-dir())=>file:read-text()
|
|
};
|