wasCSharpSQLite – Blame information for rev 7
?pathlinks?
Rev | Author | Line No. | Line |
---|---|---|---|
1 | office | 1 | # 2009 May 5 |
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 | # |
||
12 | # Ticket #3838 |
||
13 | # |
||
14 | # The ticket reports that the encoding is UTF8 on the DEFAULT VALUE of |
||
15 | # a column added using ALTER TABLE even when the database is UTF16. |
||
16 | # Verify that this has been fixed. |
||
17 | # |
||
18 | # $Id: tkt3838.test,v 1.1 2009/05/05 12:54:50 drh Exp $ |
||
19 | |||
20 | set testdir [file dirname $argv0] |
||
21 | source $testdir/tester.tcl |
||
22 | |||
23 | ifcapable !altertable { |
||
24 | finish_test |
||
25 | return |
||
26 | } |
||
27 | |||
28 | do_realnum_test tkt3838-1.1 { |
||
29 | db eval { |
||
30 | PRAGMA encoding=UTF16; |
||
31 | CREATE TABLE t1(x); |
||
32 | INSERT INTO t1 VALUES(1); |
||
33 | ALTER TABLE t1 ADD COLUMN b INTEGER DEFAULT '999'; |
||
34 | ALTER TABLE t1 ADD COLUMN c REAL DEFAULT '9e99'; |
||
35 | ALTER TABLE t1 ADD COLUMN d TEXT DEFAULT 'xyzzy'; |
||
36 | UPDATE t1 SET x=x+1; |
||
37 | SELECT * FROM t1; |
||
38 | } |
||
39 | } {2 999 9e+99 xyzzy} |
||
40 | |||
41 | finish_test |