Home | History | Annotate | Download | only in test 
      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
     30