[plt-scheme] sqlite.plt seg faults with 370

From: Keith Frost (keith.l.frost at gmail.com)
Date: Sat Sep 1 17:46:38 EDT 2007

Here's a self-contained test module which may help others re-create
the problem I'm seeing.

(module testing-sqlite mzscheme
  (require (planet "sqli.scm " ("oesterholt" "sqlid.plt" 1 5))
           (planet "sqld-sqlite.scm" ("oesterholt" "sqld-sqlite.plt" 1 0))
           (lib "md5.ss"))
  (provide insert-records test-retrieval)

  (define *dbd* (sqld-sqlite-new "/tmp/test.sqd"))
  (define *dbh* (sqli-connect *dbd*))
  (define dbi (sqli-closure *dbh*))
  (define (md5code n)
    (bytes->string/latin-1 (md5 (string->bytes/latin-1 (number->string n)))))

  (define (insert-records n)
    (dbi 'query "create table if not exists notes (id INTEGER PRIMARY
KEY, note TEXT);")
    (dbi 'begin)
    (do ((i 1 (+ i 1)))
      ((> i n) (dbi 'commit))
      (when (dbi 'query "insert or ignore into notes values ($1, $2);"
                 i (md5code i))
        (error (format "Failed to insert record ~a" i))))
    (printf "Successfully inserted ~a records...\n" n))

  (define (test-retrieval n)
    (dbi 'query "select * from notes where id <= $1;" n)
    (do ((i 1 (+ 1 i))
         (x #f)
         (y #f))
      ((> i n) (printf "Successfully retrieved ~a records...\n" n))
      (set! x (dbi 'fetchrow))
      (set! y (list (number->string i) (md5code i)))
      (unless (equal? x y)
        (error (format "Got values ~a.  Expected ~a." x y))))))

; And here is a sample transcript...

Welcome to MzScheme v371 [3m], Copyright (c) 2004-2007 PLT Scheme Inc.
> (require "testing-sqlite.scm")
> (insert-records 1000)
Successfully inserted 1000 records...
> (test-retrieval 1000)
Successfully retrieved 1000 records...
> (insert-records 10000)
Successfully inserted 10000 records...
> (test-retrieval 10000)
Successfully retrieved 10000 records...
> (insert-records 100000)
Successfully inserted 100000 records...
> (test-retrieval 100000)
procedure application: expected procedure, given: #<bad-value>;
arguments were: 2 ("13257" "f2843fe2048acb2e687eeebe826db352")

 === context ===
/home/keithf/testing-sqlite.scm:23:2: test-retrieval

Posted on the users mailing list.