aboutsummaryrefslogtreecommitdiff
path: root/genenetwork-development.scm
diff options
context:
space:
mode:
authorArun Isaac2022-05-04 14:39:00 +0530
committerArun Isaac2022-05-04 14:39:00 +0530
commit38e8ea6fe724ca5e6737746d48acfbcdae1e6ed4 (patch)
tree3e0cccc02820fd021b06b01f4c350c8441e733ab /genenetwork-development.scm
parent0065184382b425295cc57da7364afb0cf43bb9e9 (diff)
downloadgn-machines-38e8ea6fe724ca5e6737746d48acfbcdae1e6ed4.tar.gz
Validate dumped RDF using rapper.
* genenetwork-development.scm: Import raptor2 from (gnu packages rdf). (dump-genenetwork-database): Validate dumped RDF using rapper.
Diffstat (limited to 'genenetwork-development.scm')
-rw-r--r--genenetwork-development.scm12
1 files changed, 11 insertions, 1 deletions
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