Fix report generation

Julien LepillerWed Apr 01 01:55:38+0200 2020

0415a74

Fix report generation

test-modules/online.scm

235235 
               (name (assoc-ref test "name"))
236236 
               (@id (assoc-ref test "@id"))
237237 
               (name (string-append @id ": " name))
238+
               (context (string-join
239+
                          (reverse (cdr (reverse (string-split url #\.))))
240+
                          "."))
238241 
               (description (or (assoc-ref test "purpose") name))
239242 
               (description (string-append @id ": " description)))
240243 
          (cons (+ 1 num)
241-
                (cons (make-test-case (string-append url @id)
244+
                (cons (make-test-case (string-append context @id)
242245 
                                      num name description test #f #f)
243246 
                      result))))
244247 
      `(,num . ())

test-modules/result.scm

114114 
      (format port "     <https://www.w3.org/TR/json-ld11-api/>;~%")
115115 
      (format port "   doap:license <https://www.gnu.org/licenses/gpl-3.0.html>;~%")
116116 
      (format port "   doap:name \"guile-jsonld\"^^xsd:string;~%")
117-
      (format port "   doap:platform \"GNU Guile\"^^xsd:string;~%")
117+
      (format port "   doap:programming-language \"GNU Guile\"^^xsd:string;~%")
118118 
      (format port "   doap:shortdesc \"JSON-LD support for GNU Guile.\"@en;~%")
119119 
      (format port "   doap:release [~%")
120120 
      (format port "      doap:name \"guile-jsonld-1.0-pre1\";~%")

…

147147 
                ('fail "failed")
148148 
                ('xpass "cantTell")
149149 
                ('xfail "untested")))
150-
      (format port "    dc:date \"~a\"^^xsd:dateTime~%"
150+
      (format port "    dc:date \"~a\"^^xsd:dateTime ] ;~%"
151151 
              (date->string (current-date) "~4"))
152152 
      (format port "  earl:mode earl:automatic ] .~%")
153153 
      (format port "~%")