diff options
Diffstat (limited to 'tests/smoketest.scm')
| -rw-r--r-- | tests/smoketest.scm | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/tests/smoketest.scm b/tests/smoketest.scm index b7a84b8..5a7dd16 100644 --- a/tests/smoketest.scm +++ b/tests/smoketest.scm @@ -81,14 +81,12 @@ after." ;; scm_to_stringn does not allow strings containing null characters to ;; be converted to C strings. So, this test can never actually pass. -;; And, we keep it commented out because running it raises an -;; exception and crashes the test runner process. -;; (test-expect-fail "document does not transparently handle a zero byte") -;; (let* ((data "a\0b") -;; (doc (make-document #:data data))) -;; (test-equal "document does not transparently handle a zero byte" -;; data -;; (document-data (make-document #:data data)))) +(test-expect-fail "document does not transparently handle a zero byte") +(let* ((data "a\0b") + (doc (make-document #:data data))) + (test-equal "document does not transparently handle a zero byte" + data + (document-data (make-document #:data data)))) (call-with-temporary-writable-database "/tmp/xapian-db" (lambda (db) |