Fix date formating in earl driver

Julien LepillerSun Apr 12 22:44:41+0200 2020

2741e58

Fix date formating in earl driver

test-modules/result.scm

9292 
       (force-output)))
9393 
    (const #t)))
9494 
95+
(define (get-date)
96+
  (let* ((date (date->string (current-date) "~4"))
97+
         (len (string-length date)))
98+
    (string-append
99+
      (substring date 0 (- len 2))
100+
      ":"
101+
      (substring date (- len 2)))))
102+
95103 
(define (earl-driver port)
96104 
  "A driver that creates a turtle file report using the earl vocabulary.  It
97105 
doesn't use any internal representation for RDF or Turtle, it only manipulates
…
128136 
      (format port "   foaf:name \"Julien Lepiller\"^^xsd:string .~%")
129137 
      (format port "~%")
130138 
      (format port "<> foaf:primaryTopic <https://framagit.org/tyreunom/guile-jsonld>;~%")
131-
      (format port "  dc:issued \"~a\"^^xsd:dateTime;~%"
132-
              (date->string (current-date) "~4"))
139+
      (format port "  dc:issued \"~a\"^^xsd:dateTime;~%" (get-date))
133140 
      (format port "  foaf:maker <https://lepiller.eu/#me> .~%")
134141 
      (format port "~%")
135142 
      (format #t "~a test cases for report~%" (length cases)))
…
147154 
                ('fail "failed")
148155 
                ('xpass "cantTell")
149156 
                ('xfail "untested")))
150-
      (format port "    dc:date \"~a\"^^xsd:dateTime ] ;~%"
151-
              (date->string (current-date) "~4"))
157+
      (format port "    dc:date \"~a\"^^xsd:dateTime ] ;~%" (get-date))
152158 
      (format port "  earl:mode earl:automatic ] .~%")
153159 
      (format port "~%")
154160 
      (format #t "Tested ~a: ~a~%"