~ruther/guix-local: gnu: osvvm: Implement checks.

8dc37e181ce56a1015dd47ab9dc869de75e0a1da — Cayetano Santos 7 months ago 0d5caff

gnu: osvvm: Implement checks.

* gnu/packages/electronics.scm (osvvm)[arguments]<#:phases>: Add check.
[native-inputs]: Add nvc, tcl, tcllib, and which.

Change-Id: Ia3567f908834c29093d36aa50aebcfae3fb98b18
Signed-off-by: Maxim Cournoyer <maxim@guixotic.coop>

patch browse .tar.gz

1 files changed, 10 insertions(+), 1 deletions(-)

M gnu/packages/electronics.scm

M gnu/packages/electronics.scm => gnu/packages/electronics.scm +10 -1

@@ 1355,7 1355,16 @@ GUI for sigrok.")
               ;; Default conflicts with read-only /gnu/store.
               (substitute* "osvvm/OsvvmVhdlSettings.pro"
                 (("\\[FindOsvvmSettingsDirectory\\]")
-                 " \"\" ")))))))
+                 " \"\" "))))
+          (add-after 'fix-scripts 'check
+            (lambda _
+              (setenv "OSVVM_DIR" (getcwd))
+              (setenv "OSVVM_MUST_BUILD" (getcwd))
+              (invoke "tclsh"
+                      (string-append #$(this-package-native-input "nvc")
+                                     "/test/test-osvvm.tcl")))))))
+    (native-inputs
+     (list nvc tcl tcllib which))
     (native-search-paths
      (list (search-path-specification
              (variable "OSVVM")