| OLD | NEW |
| (Empty) |
| 1 # 2009 January 29 | |
| 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 # Verify that certain keywords can be used as identifiers. | |
| 13 # | |
| 14 # $Id: keyword1.test,v 1.1 2009/01/29 19:27:47 drh Exp $ | |
| 15 | |
| 16 | |
| 17 set testdir [file dirname $argv0] | |
| 18 source $testdir/tester.tcl | |
| 19 | |
| 20 db eval { | |
| 21 CREATE TABLE t1(a, b); | |
| 22 INSERT INTO t1 VALUES(1, 'one'); | |
| 23 INSERT INTO t1 VALUES(2, 'two'); | |
| 24 INSERT INTO t1 VALUES(3, 'three'); | |
| 25 } | |
| 26 | |
| 27 set kwlist { | |
| 28 abort | |
| 29 after | |
| 30 analyze | |
| 31 asc | |
| 32 attach | |
| 33 before | |
| 34 begin | |
| 35 by | |
| 36 cascade | |
| 37 cast | |
| 38 column | |
| 39 conflict | |
| 40 current_date | |
| 41 current_time | |
| 42 current_timestamp | |
| 43 database | |
| 44 deferred | |
| 45 desc | |
| 46 detach | |
| 47 end | |
| 48 each | |
| 49 exclusive | |
| 50 explain | |
| 51 fail | |
| 52 for | |
| 53 glob | |
| 54 if | |
| 55 ignore | |
| 56 immediate | |
| 57 initially | |
| 58 instead | |
| 59 key | |
| 60 like | |
| 61 match | |
| 62 of | |
| 63 offset | |
| 64 plan | |
| 65 pragma | |
| 66 query | |
| 67 raise | |
| 68 regexp | |
| 69 reindex | |
| 70 release | |
| 71 rename | |
| 72 replace | |
| 73 restrict | |
| 74 rollback | |
| 75 row | |
| 76 savepoint | |
| 77 temp | |
| 78 temporary | |
| 79 trigger | |
| 80 vacuum | |
| 81 view | |
| 82 virtual | |
| 83 }; | |
| 84 set exprkw { | |
| 85 cast | |
| 86 current_date | |
| 87 current_time | |
| 88 current_timestamp | |
| 89 raise | |
| 90 } | |
| 91 foreach kw $kwlist { | |
| 92 do_test keyword1-$kw.1 { | |
| 93 if {$kw=="if"} { | |
| 94 db eval "CREATE TABLE \"$kw\"($kw $kw)" | |
| 95 } else { | |
| 96 db eval "CREATE TABLE ${kw}($kw $kw)" | |
| 97 } | |
| 98 db eval "INSERT INTO $kw VALUES(99)" | |
| 99 db eval "INSERT INTO $kw SELECT a FROM t1" | |
| 100 if {[lsearch $exprkw $kw]<0} { | |
| 101 db eval "SELECT * FROM $kw ORDER BY $kw ASC" | |
| 102 } else { | |
| 103 db eval "SELECT * FROM $kw ORDER BY \"$kw\" ASC" | |
| 104 } | |
| 105 } {1 2 3 99} | |
| 106 do_test keyword1-$kw.2 { | |
| 107 if {$kw=="if"} { | |
| 108 db eval "DROP TABLE \"$kw\"" | |
| 109 db eval "CREATE INDEX \"$kw\" ON t1(a)" | |
| 110 } else { | |
| 111 db eval "DROP TABLE $kw" | |
| 112 db eval "CREATE INDEX $kw ON t1(a)" | |
| 113 } | |
| 114 db eval "SELECT b FROM t1 INDEXED BY $kw WHERE a=2" | |
| 115 } {two} | |
| 116 } | |
| 117 | |
| 118 finish_test | |
| OLD | NEW |