Fix expected result

Julien LepillerSun Apr 05 03:32:31+0200 2020

4455dfb

Fix expected result

test-modules/online.scm

119119 
              (expected
120120 
                (catch #t
121121 
                  (lambda ()
122-
                    (if expected
122+
                    (if (string? expected)
123123 
                        (turtle->rdf (get-test-doc expected) expected)
124124 
                        #f))
125125 
                  (lambda (key . value)

…

176176 
              (expected
177177 
                (catch #t
178178 
                  (lambda ()
179-
                    (if expected
179+
                    (if (string? expected)
180180 
                        (turtle->rdf (get-test-doc expected) expected)
181181 
                        #f))
182182 
                  (lambda (key . value)

…

213213 
                    (update-test-case test #:result 'pass))))
214214 
           ("RDFS"
215215 
            (if (if (equal? expected #f)
216-
                    (rdfs:consistent-graph? result)
217-
                    (rdfs:entails? result expected recognized))
216+
                    (not (rdfs:consistent-graph? result))
217+
                    (rdfs:entails? result (pk 'expected expected) recognized))
218218 
                (if (equal? type "PositiveEntailmentTest")
219219 
                    (update-test-case test #:result 'pass)
220220 
                    (update-test-case test