From 07d1e79fa6cd1294f97394f15fa20da721cb32af Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Tue, 11 Jul 2023 11:03:45 +0300
Subject: Construct example SQL query and expected results

---
 dump/special-forms.scm | 39 ++++++++++++++++++++++++++++++++++++---
 1 file changed, 36 insertions(+), 3 deletions(-)

(limited to 'dump/special-forms.scm')

diff --git a/dump/special-forms.scm b/dump/special-forms.scm
index 2281f23..78ee879 100644
--- a/dump/special-forms.scm
+++ b/dump/special-forms.scm
@@ -485,7 +485,7 @@ The following SQL query was executed:
 ~a
 ```
 
-Triples take the form:
+The above query results to triples that have the form:
 
 "
                          (select-query #,(collect-fields #'(subject predicate-clauses ...))
@@ -498,8 +498,41 @@ Triples take the form:
                                       predicate object)))
                            (map-alist
                                '()
-                             #,@(field->datum #'subject)))
-                 (format out "~%")
+                             #,@(field->datum #'(predicate-clauses ...))))
+                 (format out "~%Here's an example query:~%~%")
+                 (let* ((result
+                         (map-alist (sql-find
+                                     db
+                                     (format #f "~a LIMIT 1"
+                                             (select-query #,(collect-fields #'(subject predicate-clauses ...))
+                                                           (primary-table other-tables ...)
+                                                           tables-raw ...)))
+                           #,@(field->key #'(predicate-clauses ...))))
+                        (first-n (list-head result (truncate (/ (length result) 2)))))
+                   (format out "SELECT ?s ?p ?o WHERE { ~%")
+                   (for-each (match-lambda
+                               ((predicate . object)
+                                (format out
+                                        (match object
+                                          ((or (?  symbol? object)
+                                               (?  (lambda (el) (string-match "^\\[ .* \\]$" el)) object))
+                                           "    ?s ~a ~a .~%")
+                                          (_ "    ?s ~a \"~a\" .~%"))
+                                        predicate object)))
+                             first-n)
+                   (format out "    ?s ?p ?o .~%}~%"))
+                 (format out "~%Expected Result:~%~%")
+                 (sql-for-each (lambda (row)
+                                 (scm->triples
+                                  (map-alist row #,@(field->key #'(predicate-clauses ...)))
+                                  #,(field->assoc-ref #'row #'subject)
+                                  (lambda (s p o)
+                                    (triple s p o out))))
+                               db
+                               (format #f "~a LIMIT 1"
+                                       (select-query #,(collect-fields #'(subject predicate-clauses ...))
+                                                     (primary-table other-tables ...)
+                                                     tables-raw ...)))
                  ;; To clear the buffer
                  (force-output out)))
              (when (dump-configuration-triples? dump-configuration)
-- 
cgit v1.2.3