test/tkt2213.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