OLD | NEW |
1 # 2007 Febuary 05 | 1 # 2007 Febuary 05 |
2 # | 2 # |
3 # The author disclaims copyright to this source code. In place of | 3 # The author disclaims copyright to this source code. In place of |
4 # a legal notice, here is a blessing: | 4 # a legal notice, here is a blessing: |
5 # | 5 # |
6 # May you do good and not evil. | 6 # May you do good and not evil. |
7 # May you find forgiveness for yourself and forgive others. | 7 # May you find forgiveness for yourself and forgive others. |
8 # May you share freely, never taking more than you give. | 8 # May you share freely, never taking more than you give. |
9 # | 9 # |
10 #*********************************************************************** | 10 #*********************************************************************** |
11 # This file implements regression tests for SQLite library. | 11 # This file implements regression tests for SQLite library. |
12 # | 12 # |
13 # This file implements tests to verify that ticket #2213 has been | 13 # This file implements tests to verify that ticket #2213 has been |
14 # fixed. | 14 # fixed. |
15 # | 15 # |
16 # | 16 # |
17 # $Id: tkt2213.test,v 1.2 2008/07/12 14:52:20 drh Exp $ | 17 # $Id: tkt2213.test,v 1.2 2008/07/12 14:52:20 drh Exp $ |
18 | 18 |
19 set testdir [file dirname $argv0] | 19 set testdir [file dirname $argv0] |
20 source $testdir/tester.tcl | 20 source $testdir/tester.tcl |
21 | 21 |
22 do_test tkt2213-1 { | 22 do_test tkt2213-1 { |
23 sqlite3_create_function db | 23 sqlite3_create_function db |
24 catchsql { | 24 catchsql { |
25 SELECT tkt2213func(tkt2213func('abcd')); | 25 SELECT tkt2213func(tkt2213func('abcd')); |
26 } | 26 } |
27 } {0 abcd} | 27 } {0 abcd} |
28 | 28 |
29 finish_test | 29 finish_test |
OLD | NEW |