diff options
| author | Arun Isaac | 2022-05-04 14:39:00 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-05-04 14:39:00 +0530 |
| commit | 38e8ea6fe724ca5e6737746d48acfbcdae1e6ed4 (patch) | |
| tree | 3e0cccc02820fd021b06b01f4c350c8441e733ab | |
| parent | 0065184382b425295cc57da7364afb0cf43bb9e9 (diff) | |
| download | gn-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.
| -rw-r--r-- | genenetwork-development.scm | 12 |
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 |