/
test.lisp
146 lines (133 loc) · 6.64 KB
/
test.lisp
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
(in-package :redland)
(defparameter *world* nil)
(defparameter *model* nil)
(defparameter *storage* nil)
(defparameter *parser* nil)
(defparameter *null* (null-pointer))
(defcallback basic-log :int
((user-data :pointer) (message message-pointer))
(declare (ignore user-data))
(format t "Received log message code ~a level ~a from ~a: ~a"
(%log-message-code message)
(%log-message-level message)
(%log-message-facility message)
(%log-message-message message))
1)
(defun init-test ()
(when *world*
(%free-world *world*))
(when *storage*
(%free-storage *storage*))
(when *model*
(%free-model *model*))
(setf *world* (%new-world))
(%world-set-logger *world* *null* (callback basic-log))
(%world-open *world*)
(setf *storage* (%new-storage *world* "hashes" "test" "hash-type='memory'"))
(setf *model* (%new-model *world* *storage* *null*)))
(defun init-parser (&optional (kind :rdfxml))
(when *parser*
(%free-parser *parser*))
(setf *parser* (ecase kind
(:rdfxml (%new-parser *world* "rdfxml"
"application/rdf+xml"
*null*))
(:rss (%new-parser *world* "rss-tag-soup" *null* *null*)))))
(defun princ-model ()
(let ((stream (%model-as-stream *model*)))
(iter (while (zerop (%stream-end stream)))
(princ (%statement-to-string (%stream-get-object stream)))
(terpri)
(%stream-next stream))))
(defun test-mid-level-query ()
(with-world (:log-function (make-log-everything *standard-output*))
(with-storage ("hashes" "test" "hash-type='memory'")
(with-model ()
(model-load (make-uri "http://ramarren.blox.pl/rss2"))
(let ((query (make-query "PREFIX rss: <http://purl.org/rss/1.0/>
SELECT ?title ?y
WHERE {
?x rss:items ?items .
?items ?arc ?y .
?y rss:title ?title}")))
(iter (for alist in-query-results (query-execute query))
(print alist)))))))
(defun test-query-numop ()
(with-world (:log-function (make-log-everything *standard-output*))
(with-storage ("hashes" "test" "hash-type='memory'")
(with-model ()
(model-add-statement (make-statement-from-nodes
(make-node-from-uri-string "http://ramarren.blox.pl")
(make-node-from-uri-string "tag:visits-number")
(make-node-from-typed-literal "42"
:datatype-uri
(make-uri "http://www.w3.org/2001/XMLSchema#integer"))))
(let ((query (make-query "PREFIX rss: <http://purl.org/rss/1.0/>
SELECT ?what ?num
WHERE {
?what <tag:visits-number> ?num .
FILTER (?num > 23)}")))
(assert query)
(iter (for alist in-query-results (query-execute query))
(print alist)))))))
(defun test-query-context ()
(with-world (:log-function (make-log-everything *standard-output*))
(with-storage ("hashes" "test" "hash-type='memory',contexts='yes'")
(with-model ()
(model-context-add-statement (make-node-from-uri-string "http://ramarren.homelinux.net/test-context/")
(make-statement-from-nodes
(make-node-from-uri-string "http://ramarren.blox.pl")
(make-node-from-uri-string "tag:visits-number")
(make-node-from-typed-literal "42"
:datatype-uri
(make-uri "http://www.w3.org/2001/XMLSchema#integer"))))
(let ((query (make-query "PREFIX rss: <http://purl.org/rss/1.0/>
SELECT ?what ?num ?g
WHERE {
FILTER (?num > 23) .
GRAPH ?g {?what <tag:visits-number> ?num}}")))
(assert query)
(iter (for alist in-query-results (query-execute query))
(print alist)))))))
(defun test-do-query ()
(with-world (:log-function (make-log-everything *standard-output*))
(with-storage ("hashes" "test" "hash-type='memory'")
(with-model ()
(model-load (make-uri "http://ramarren.blox.pl/rss2"))
(let ((query (make-query "PREFIX rss: <http://purl.org/rss/1.0/>
SELECT ?title ?y
WHERE {
?x rss:items ?items .
?items ?arc ?y .
?y rss:title ?title}")))
(do-query query (y title)
(format t "~a ~a~&" y title)))))))
(defun test-sparql ()
(with-world (:log-function (make-log-everything *standard-output*))
(with-storage ("hashes" "test" "hash-type='memory'")
(with-model ()
(model-load (make-uri "http://ramarren.blox.pl/rss2"))
(let ((query (make-query
(prefix `(("rss:" ,(make-uri "http://purl.org/rss/1.0/")))
(select '(title y)
(group (triple 'x "rss:items" 'items)
(triple 'items 'arc 'y)
(triple 'y "rss:title" 'title))
:distinct t)))))
(do-query query (y title)
(format t "~a ~a~&" y title)))))))
(defun test-sparql-query (query)
(with-world (:log-function (make-log-everything *standard-output*))
(with-storage ("hashes" "test" "hash-type='memory'")
(with-model ()
(model-load (make-uri "http://ramarren.blox.pl/rss2"))
(let ((query-results (query-execute (make-query query))))
(cond ((query-results-is-bindings-p query-results)
(iter (for alist in-query-results query-results)
(print alist)))
((query-results-is-graph-p query-results)
(iter (for s in-redland-stream (query-results-as-stream query-results))
(princ (statement-to-string s))
(terpri)))
((query-results-is-boolean-p query-results)
(print (query-results-get-boolean query-results)))))))))