1 # 2007 Febuary 05

     2 #

     3 # The author disclaims copyright to this source code.  In place of

     4 # a legal notice, here is a blessing:

     5 #

     6 #    May you do good and not evil.

     7 #    May you find forgiveness for yourself and forgive others.

     8 #    May you share freely, never taking more than you give.

     9 #

    10 #***********************************************************************

    11 # This file implements regression tests for SQLite library.

    12 #

    13 # This file implements tests to verify that ticket #2213 has been

    14 # fixed.  

    15 #

    16 #

    17 # $Id: tkt2213.test,v 1.2 2008/07/12 14:52:20 drh Exp $

    18 

    19 set testdir [file dirname $argv0]

    20 source $testdir/tester.tcl

    21 

    22 do_test tkt2213-1 {

    23   sqlite3_create_function db

    24   catchsql {

    25     SELECT tkt2213func(tkt2213func('abcd'));

    26   }

    27 } {0 abcd}

    28 

    29 finish_test