"TestXMLNegativeSyntax" "TestTurtleNegativeEval"))

      ((equal? type "TestTurtleEval")

       (let* ((expected (car (get-objects predicates "http://www.w3.org/2001/sw/DataAccess/tests/test-manifest#result")))

              (expected

                (catch #t

                  (lambda ()

                    (if expected

                        (turtle->rdf (get-test-doc expected) expected)

                        #f))

                  (lambda (key . value)

                    (cons key value)))))

         (match result

           (((? symbol? key) . value)

            (update-test-case test

              #:result 'fail

              #:reason (format #f "failed with ~a: ~a" key value)))

           (_

             (if (rdf-isomorphic? result expected)

                 (update-test-case test #:result 'pass)

                 (update-test-case test

                   #:result 'fail

                   #:reason (format #f "expected ~a but got ~a"

                                    expected result)))))))