     [ sql-syntax-error? ] must-fail-with
 
     [ ] [
-        "insert into computer (name, os) values(?, ?);"
-        { "clubber" "windows" }
+        "insert into computer (name, os, version) values(?, ?, ?);"
+        { "clubber" "windows" "7" }
         f <statement>
         sql-bind-command
     ] unit-test

        { "clubber" } f <statement> sql-bind-query
    ] unit-test

    [ { { "windows" } } ] [
        "select os from computer where name = ?;"
        { { VARCHAR "clubber" } }
        { VARCHAR }
        <statement> sql-bind-typed-query
    ] unit-test

    [ ] [
        "insert into computer (name, os) values(?, ?);"
        {
            { VARCHAR "clubber" }
            { VARCHAR "windows" }
        } f <statement>
        sql-bind-typed-command
    ] unit-test


    ;

[ test-sql-command ] test-dbs

    [ [ sql-table-missing? ] [ table>> "computer" = ] bi and ] must-fail-with

    [ ] [
        "create table computer(name varchar, os varchar, version integer);"
        sql-command
    ] unit-test ;

