From 38e8ea6fe724ca5e6737746d48acfbcdae1e6ed4 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 4 May 2022 14:39:00 +0530
Subject: Validate dumped RDF using rapper.

* genenetwork-development.scm: Import raptor2 from (gnu packages rdf).
(dump-genenetwork-database): Validate dumped RDF using rapper.
---
 genenetwork-development.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/genenetwork-development.scm b/genenetwork-development.scm
index bc09960..b18cee8 100644
--- a/genenetwork-development.scm
+++ b/genenetwork-development.scm
@@ -37,6 +37,7 @@
              ((gnu packages haskell-apps) #:select (shellcheck))
              ((gnu packages python-check) #:select (python-mypy))
              ((gnu packages python-web) #:select (gunicorn))
+             ((gnu packages rdf) #:select (raptor2))
              ((gnu packages tls) #:select (openssl))
              ((gnu packages version-control) #:select (git-minimal))
              (gnu services ci)
@@ -565,10 +566,19 @@ command to be executed."
             (when (file-exists? dump-directory)
               (delete-file-recursively dump-directory))
             (mkdir-p dump-directory)
+            ;; Dump data to RDF.
             (invoke "./pre-inst-env" "./dump.scm"
                     #$(string-append %dump-genenetwork-database-export-directory
                                      "/conn.scm")
-                    dump-directory))))))
+                    dump-directory)
+            ;; Validate dumped RDF.
+            (invoke #$(file-append raptor2 "/bin/rapper")
+                    "--input" "turtle"
+                    "--count"
+                    ;; We use --ignore-errors because we don't want to
+                    ;; print out potentially sensitive data.
+                    "--ignore-errors"
+                    (string-append dump-directory "/dump.ttl")))))))
 
 (define dump-genenetwork-database-project
   (forge-project
-- 
cgit v1.2.3