diff options
Diffstat (limited to 'gnu/packages/opencog.scm')
| -rw-r--r-- | gnu/packages/opencog.scm | 135 |
1 files changed, 100 insertions, 35 deletions
diff --git a/gnu/packages/opencog.scm b/gnu/packages/opencog.scm index 998d9b47ae..722cc0ffb7 100644 --- a/gnu/packages/opencog.scm +++ b/gnu/packages/opencog.scm @@ -29,6 +29,7 @@ #:use-module (gnu packages python) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix packages) + #:use-module (guix gexp) #:use-module (guix git-download) #:use-module (guix build-system cmake) #:use-module (guix utils)) @@ -52,7 +53,21 @@ "1ymmcrinp0prlxsmxmwdjjl4kgaj7wzq39d5b1q2apgg94yfdhqb")))) (build-system cmake-build-system) (arguments - `(#:test-target "tests")) + (list + #:modules '((guix build cmake-build-system) + ((guix build gnu-build-system) #:prefix gnu:) + (guix build utils)) + #:phases + #~(modify-phases %standard-phases + (replace 'check + (lambda* (#:key tests? #:allow-other-keys #:rest args) + (when tests? + (apply (assoc-ref gnu:%standard-phases 'check) + #:tests? tests? #:test-target "tests" args) + (for-each + (lambda (file) + (invoke file)) + (find-files "tests" "UTest$")))))))) (inputs (list boost)) (native-inputs @@ -84,14 +99,29 @@ utilities use for typical programming tasks in multiple OpenCog projects.") "0vxzhszb0z8081li38hid07a5axzxyflsmq1mcn4b1k4z1j8ggch")))) (build-system cmake-build-system) (arguments - `(#:test-target "tests" - #:configure-flags - (list (string-append "-DGUILE_INCLUDE_DIR=" - (assoc-ref %build-inputs "guile") - "/include/guile/2.2/") - (string-append "-DGUILE_SITE_DIR=" - (assoc-ref %outputs "out") - "/share/guile/site/2.2/")))) + (list + #:configure-flags + #~(list (string-append "-DGUILE_INCLUDE_DIR=" #$guile-2.2 + "/include/guile/2.2/") + (string-append "-DGUILE_SITE_DIR=" #$output + "/share/guile/site/2.2/")) + #:modules '((guix build cmake-build-system) + ((guix build gnu-build-system) #:prefix gnu:) + (guix build utils)) + #:phases + #~(modify-phases %standard-phases + (replace 'check + (lambda* (#:key tests? #:allow-other-keys #:rest args) + (when tests? + (apply (assoc-ref gnu:%standard-phases 'check) + #:tests? tests? #:test-target "tests" args) + ;; Failing tests. + (for-each delete-file + '("tests/matrix/VectorAPIUTest" + "tests/scm/MultiAtomSpaceUTest")) + (setenv "GUILE_LOAD_PATH" ".:opencog/scm") + (for-each invoke + (find-files "tests" "UTest$")))))))) (inputs (list boost cogutil gmp guile-2.2 postgresql)) (native-inputs @@ -126,14 +156,26 @@ features not otherwise available.") "1h0vcxb6n5dc654xqinqcxc7dxwcs6bsywgir8rhrqiykk760mzl")))) (build-system cmake-build-system) (arguments - `(#:test-target "tests" - #:configure-flags - (list (string-append "-DGUILE_INCLUDE_DIR=" - (assoc-ref %build-inputs "guile") - "/include/guile/2.2/") - (string-append "-DGUILE_SITE_DIR=" - (assoc-ref %outputs "out") - "/share/guile/site/2.2/")))) + (list + #:configure-flags + #~(list (string-append "-DGUILE_INCLUDE_DIR=" #$guile-2.2 + "/include/guile/2.2/") + (string-append "-DGUILE_SITE_DIR=" #$output + "/share/guile/site/2.2/")) + #:modules '((guix build cmake-build-system) + ((guix build gnu-build-system) #:prefix gnu:) + (guix build utils)) + #:phases + #~(modify-phases %standard-phases + (replace 'check + (lambda* (#:key tests? #:allow-other-keys #:rest args) + (when tests? + (apply (assoc-ref gnu:%standard-phases 'check) + #:tests? tests? #:test-target "tests" args) + ;; Failing test. + (delete-file "tests/shell/ShellUTest") + (for-each invoke + (find-files "tests" "UTest$")))))))) (inputs (list atomspace boost cogutil gmp guile-2.2)) (native-inputs @@ -164,15 +206,29 @@ OpenCog framework.") "0sndslphicv6w9qpag168rqkxq5sf71l5qbfx6zhsd5bzlf5fhwv")))) (build-system cmake-build-system) (arguments - `(#:test-target "tests" - #:configure-flags - (list - (string-append "-DGUILE_INCLUDE_DIR=" - (assoc-ref %build-inputs "guile") - "/include/guile/2.2/") - (string-append "-DGUILE_SITE_DIR=" - (assoc-ref %outputs "out") - "/share/guile/site/2.2/")))) + (list + #:configure-flags + #~(list (string-append "-DGUILE_INCLUDE_DIR=" #$guile-2.2 + "/include/guile/2.2/") + (string-append "-DGUILE_SITE_DIR=" #$output + "/share/guile/site/2.2/")) + #:modules '((guix build cmake-build-system) + ((guix build gnu-build-system) #:prefix gnu:) + (guix build utils)) + #:phases + #~(modify-phases %standard-phases + (replace 'check + (lambda* (#:key tests? #:allow-other-keys #:rest args) + (when tests? + (apply (assoc-ref gnu:%standard-phases 'check) + #:tests? tests? #:test-target "tests" args) + ;; Failing tests. + (for-each delete-file + '("tests/attention/AttentionParamQueryUTest" + "tests/attention/HebbianCreationModuleUTest" + "tests/attention/ImportanceDiffusionUTest")) + (for-each invoke + (find-files "tests" "UTest$")))))))) (inputs (list atomspace boost @@ -209,15 +265,24 @@ tasks.") "1j8wv910fvrmph370wv5pv2f4bc2s9vl6i7bw3pkmwbdhxkhjbhm")))) (build-system cmake-build-system) (arguments - `(#:test-target "tests" - #:configure-flags - (list - (string-append "-DGUILE_INCLUDE_DIR=" - (assoc-ref %build-inputs "guile") - "/include/guile/2.2/") - (string-append "-DGUILE_SITE_DIR=" - (assoc-ref %outputs "out") - "/share/guile/site/2.2/")))) + (list + #:configure-flags + #~(list (string-append "-DGUILE_INCLUDE_DIR=" #$guile-2.2 + "/include/guile/2.2/") + (string-append "-DGUILE_SITE_DIR=" #$output + "/share/guile/site/2.2/")) + #:modules '((guix build cmake-build-system) + ((guix build gnu-build-system) #:prefix gnu:) + (guix build utils)) + #:phases + #~(modify-phases %standard-phases + (replace 'check + (lambda* (#:key tests? #:allow-other-keys #:rest args) + (when tests? + (apply (assoc-ref gnu:%standard-phases 'check) + #:tests? tests? #:test-target "tests" args) + (for-each invoke + (find-files "tests" "UTest$")))))))) (inputs `(("attention" ,attention) ("atomspace" ,atomspace) |