-
Notifications
You must be signed in to change notification settings - Fork 7
/
labelutils_test.pl
37 lines (24 loc) · 1.1 KB
/
labelutils_test.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
:- use_module(library(semweb/rdf11)).
:- use_module(library(sparqlprog/labelutils)).
:- rdf_register_prefix('GO','http://purl.obolibrary.org/obo/GO_').
:- rdf_register_prefix('BFO','http://purl.obolibrary.org/obo/BFO_').
:- rdf_register_prefix(oboInOwl,'http://www.geneontology.org/formats/oboInOwl#').
:- begin_tests(labelutils_test,
[setup(load_test_file),
cleanup(rdf_retractall(_,_,_,_))]).
load_test_file :-
% load into a test-specific graph due to cache issue
rdf_load('tests/go_nucleus.ttl',[cache(false),
graph(labelutils)]).
test(show) :-
T=rdf(_,_,_),
forall(T,
( row_labelify(T,X),
writeln(X))).
test(labelify) :-
row_labelify(foo('http://purl.obolibrary.org/obo/GO_0044464',bar),Row),
assertion(Row = foo('GO:0044464','cell part',bar,'')).
test(labelify_list) :-
row_labelify(foo(x,['http://purl.obolibrary.org/obo/GO_0044464',y]), Row),
assertion(Row = foo(x,'','GO:0044464|y','cell part|')).
:- end_tests(labelutils_test).