# 2008 July 7 # # The author disclaims copyright to this source code. In place of # a legal notice, here is a blessing: # # May you do good and not evil. # May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # This file implements regression tests for SQLite library. The # focus of this script testing the tokenizer # # $Id: tokenize.test,v 1.1.1.1 2012/02/21 17:04:16 misho Exp $ # set testdir [file dirname $argv0] source $testdir/tester.tcl do_test tokenize-1.1 { catchsql {SELECT 1.0e+} } {1 {unrecognized token: "1.0e"}} do_test tokenize-1.2 { catchsql {SELECT 1.0E+} } {1 {unrecognized token: "1.0E"}} do_test tokenize-1.3 { catchsql {SELECT 1.0e-} } {1 {unrecognized token: "1.0e"}} do_test tokenize-1.4 { catchsql {SELECT 1.0E-} } {1 {unrecognized token: "1.0E"}} do_test tokenize-1.5 { catchsql {SELECT 1.0e+/} } {1 {unrecognized token: "1.0e"}} do_test tokenize-1.6 { catchsql {SELECT 1.0E+:} } {1 {unrecognized token: "1.0E"}} do_test tokenize-1.7 { catchsql {SELECT 1.0e-:} } {1 {unrecognized token: "1.0e"}} do_test tokenize-1.8 { catchsql {SELECT 1.0E-/} } {1 {unrecognized token: "1.0E"}} do_test tokenize-1.9 { catchsql {SELECT 1.0F+5} } {1 {unrecognized token: "1.0F"}} do_test tokenize-1.10 { catchsql {SELECT 1.0d-10} } {1 {unrecognized token: "1.0d"}} do_test tokenize-1.11 { catchsql {SELECT 1.0e,5} } {1 {unrecognized token: "1.0e"}} do_test tokenize-1.12 { catchsql {SELECT 1.0E.10} } {1 {unrecognized token: "1.0E"}} do_test tokenize-2.1 { catchsql {SELECT 1, 2 /*} } {1 {near "*": syntax error}} do_test tokenize-2.2 { catchsql {SELECT 1, 2 /* } } {0 {1 2}} finish_test