test-name: json->cve-items
location: /home/sylviidae/guix/git/guix/tada/tests/cve.scm:56
source:
+ (test-equal
+   "json->cve-items"
+   '("CVE-2019-0001"
+     "CVE-2019-0005"
+     "CVE-2019-14811"
+     "CVE-2019-17365"
+     "CVE-2019-1010180"
+     "CVE-2019-1010204"
+     "CVE-2019-18192")
+   (map (compose cve-id cve-item-cve)
+        (call-with-input-file %sample json->cve-items)))
expected-value: ("CVE-2019-0001" "CVE-2019-0005" "CVE-2019-14811" "CVE-2019-17365" "CVE-2019-1010180" "CVE-2019-1010204" "CVE-2019-18192")
actual-value: #f
actual-error:
+ (json-invalid
+   #<input: /home/sylviidae/guix/git/guix/tada/tests/cve-sample.json 15>)
result: FAIL

test-name: cve-item-published-date
location: /home/sylviidae/guix/git/guix/tada/tests/cve.scm:67
source:
+ (test-equal
+   "cve-item-published-date"
+   '(2019)
+   (delete-duplicates
+     (map (compose date-year cve-item-published-date)
+          (call-with-input-file %sample json->cve-items))))
expected-value: (2019)
actual-value: #f
actual-error:
+ (json-invalid
+   #<input: /home/sylviidae/guix/git/guix/tada/tests/cve-sample.json 16>)
result: FAIL

test-name: json->vulnerabilities
location: /home/sylviidae/guix/git/guix/tada/tests/cve.scm:73
source:
+ (test-equal
+   "json->vulnerabilities"
+   %expected-vulnerabilities
+   (call-with-input-file
+     %sample
+     json->vulnerabilities))
expected-value: (#<<vulnerability> id: "CVE-2019-0001" packages: (("junos" (or "18.21-s4" (or "18.21-s3" "18.2"))))> #<<vulnerability> id: "CVE-2019-0005" packages: (("junos" (or "18.11" "18.1")))> #<<vulnerability> id: "CVE-2019-14811" packages: (("ghostscript" (< "9.28")))> #<<vulnerability> id: "CVE-2019-17365" packages: (("nix" (<= "2.3")))> #<<vulnerability> id: "CVE-2019-1010180" packages: (("gdb" _))> #<<vulnerability> id: "CVE-2019-1010204" packages: (("binutils" (and (>= "2.21") (<= "2.31.1"))) ("binutils_gold" (and (>= "1.11") (<= "1.16"))))>)
actual-value: #f
actual-error:
+ (json-invalid
+   #<input: /home/sylviidae/guix/git/guix/tada/tests/cve-sample.json 17>)
result: FAIL

test-name: vulnerabilities->lookup-proc
location: /home/sylviidae/guix/git/guix/tada/tests/cve.scm:77
source:
+ (test-equal
+   "vulnerabilities->lookup-proc"
+   (list (list (third %expected-vulnerabilities))
+         (list (third %expected-vulnerabilities))
+         '()
+         (list (fifth %expected-vulnerabilities))
+         (list (fifth %expected-vulnerabilities))
+         (list (fourth %expected-vulnerabilities))
+         '()
+         (list (sixth %expected-vulnerabilities))
+         '()
+         (list (sixth %expected-vulnerabilities))
+         '())
+   (let* ((vulns (call-with-input-file
+                   %sample
+                   json->vulnerabilities))
+          (lookup (vulnerabilities->lookup-proc vulns)))
+     (list (lookup "ghostscript")
+           (lookup "ghostscript" "9.27")
+           (lookup "ghostscript" "9.28")
+           (lookup "gdb")
+           (lookup "gdb" "42.0")
+           (lookup "nix")
+           (lookup "nix" "2.4")
+           (lookup "binutils" "2.31.1")
+           (lookup "binutils" "2.10")
+           (lookup "binutils_gold" "1.11")
+           (lookup "binutils" "2.32"))))
expected-value: ((#<<vulnerability> id: "CVE-2019-14811" packages: (("ghostscript" (< "9.28")))>) (#<<vulnerability> id: "CVE-2019-14811" packages: (("ghostscript" (< "9.28")))>) () (#<<vulnerability> id: "CVE-2019-1010180" packages: (("gdb" _))>) (#<<vulnerability> id: "CVE-2019-1010180" packages: (("gdb" _))>) (#<<vulnerability> id: "CVE-2019-17365" packages: (("nix" (<= "2.3")))>) () (#<<vulnerability> id: "CVE-2019-1010204" packages: (("binutils" (and (>= "2.21") (<= "2.31.1"))) ("binutils_gold" (and (>= "1.11") (<= "1.16"))))>) () (#<<vulnerability> id: "CVE-2019-1010204" packages: (("binutils" (and (>= "2.21") (<= "2.31.1"))) ("binutils_gold" (and (>= "1.11") (<= "1.16"))))>) ())
actual-value: #f
actual-error:
+ (json-invalid
+   #<input: /home/sylviidae/guix/git/guix/tada/tests/cve-sample.json 18>)
result: FAIL