Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Enhance tests for connection passwords that contain spaces, per ticket [b4cc611998]. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
1b959785442ecee6a9e51cc6d5cfb93a |
| User & Date: | mistachkin 2012-12-13 01:10:22 |
Context
|
2012-12-15
| ||
| 09:07 | Add ParseViaFramework property to the SQLiteConnection class to allow the built-in (i.e. framework provided) connection string parser to be used when opening a connection. Pursuant to [b4cc611998]. check-in: ba458b79fd user: mistachkin tags: trunk | |
|
2012-12-13
| ||
| 01:10 | Enhance tests for connection passwords that contain spaces, per ticket [b4cc611998]. check-in: 1b95978544 user: mistachkin tags: trunk | |
| 01:08 | Modify legacy threading test case to allow threads more time to exit voluntarily, per ticket [f6bc37ac6b]. check-in: 19c57cab6f user: mistachkin tags: trunk | |
Changes
Changes to Tests/basic.eagle.
1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1801 1802 1803 .... 1809 1810 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 .... 1846 1847 1848 1849 1850 1851 1852 1853 1854 1855 1856 1857 1858 1859 1860 1861 1862 1863 1864 1865 1866 1867 1868 1869 1870 1871 1872 1873 1874 1875 1876 1877 1878 .... 1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 .... 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 1936 1937 1938 1939 1940 |
} -constraints {eagle SQLite System.Data.SQLite} -result \
[string map [list \n \r\n] {CantOpen {unable to open database file
this is a test} CantOpen {unable to open database file
this is a test} True True}]}
###############################################################################
runTest {test data-1.35 {open unencrypted database, with password} -setup {
setupDb [set fileName data-1.35.db]
} -body {
sql execute $db "CREATE TABLE t1(x);"
sql execute $db "INSERT INTO t1 (x) VALUES(1);"
cleanupDb $fileName db true false false
setupDb $fileName "" "" "" "" "Password=12345;" true false
................................................................................
lappend result [catch {sql execute $db \
"INSERT INTO t1 (x) VALUES(1);"} error] $error
cleanupDb $fileName db true false false
setupDb $fileName "" "" "" "" "" true false
lappend result [catch {sql execute -execute scalar $db \
"SELECT COUNT(*) FROM t1;"} error] $error
set result
} -cleanup {
cleanupDb $fileName
unset -nocomplain error result db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} \
-match regexp -result {^1 \{System\.Data\.SQLite\.SQLiteException\
\(0x80004005\): file is encrypted or is not a database.*?\} 1\
\{System\.Data\.SQLite\.SQLiteException \(0x80004005\): file is encrypted or is\
not a database.*?\} 0 1$}}
###############################################################################
runTest {test data-1.36 {open encrypted database, wrong password} -setup {
setupDb [set fileName data-1.36.db] "" "" "" "" "Password=12345;"
} -body {
sql execute $db "CREATE TABLE t1(x);"
sql execute $db "INSERT INTO t1 (x) VALUES(1);"
cleanupDb $fileName db true false false
setupDb $fileName "" "" "" "" "Password=12346;" true false
................................................................................
lappend result [catch {sql execute $db \
"INSERT INTO t1 (x) VALUES(1);"} error] $error
cleanupDb $fileName db true false false
setupDb $fileName "" "" "" "" "Password=12345;" true false
lappend result [catch {sql execute -execute scalar $db \
"SELECT COUNT(*) FROM t1;"} error] $error
set result
} -cleanup {
cleanupDb $fileName
unset -nocomplain error result db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} \
-match regexp -result {^1 \{System\.Data\.SQLite\.SQLiteException\
\(0x80004005\): file is encrypted or is not a database.*?\} 1\
\{System\.Data\.SQLite\.SQLiteException \(0x80004005\): file is encrypted or is\
not a database.*?\} 0 1$}}
###############################################################################
runTest {test data-1.37 {rollback to nested savepoint} -setup {
setupDb [set fileName data-1.37.db]
} -body {
sql execute $db "BEGIN IMMEDIATE TRANSACTION;"
sql execute $db "SAVEPOINT one;"
sql execute $db "CREATE TABLE t1(x);"
sql execute $db "SAVEPOINT two;"
................................................................................
unset -nocomplain result db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \
{1 2 1}}
###############################################################################
runTest {test data-1.38 {NoExtensionFunctions connection flag} -setup {
setupDb [set fileName data-1.38.db]
} -body {
set result [list]
lappend result [catch {sql execute -execute scalar $db \
"SELECT replicate('1234', 2);"} output] $output
cleanupDb $fileName
................................................................................
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -match \
regexp -result {^0 12341234 1 \{System\.Data\.SQLite\.SQLiteException\
\(0x80004005\): SQL logic error or missing database.*?\} 0 1234123412341234$}}
###############################################################################
runTest {test data-1.39 {column name and index lookup} -setup {
setupDb [set fileName data-1.39.db]
} -body {
sql execute $db {
CREATE TABLE t1(x, y, z);
INSERT INTO t1 (x, y, z) VALUES(1, 'foo', 1234);
}
set dataReader [sql execute -execute reader -format datareader \
|
| > > > | | < | | | | > > > < > | > | | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | | | | | | |
1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1801 1802 1803 .... 1809 1810 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 1841 1842 .... 1848 1849 1850 1851 1852 1853 1854 1855 1856 1857 1858 1859 1860 1861 1862 1863 1864 1865 1866 1867 1868 1869 1870 1871 1872 1873 1874 1875 1876 1877 1878 1879 1880 1881 1882 1883 1884 1885 1886 1887 1888 1889 1890 1891 1892 1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 1936 1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1957 1958 1959 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 .... 2011 2012 2013 2014 2015 2016 2017 2018 2019 2020 2021 2022 2023 2024 2025 2026 .... 2043 2044 2045 2046 2047 2048 2049 2050 2051 2052 2053 2054 2055 2056 2057 2058 |
} -constraints {eagle SQLite System.Data.SQLite} -result \
[string map [list \n \r\n] {CantOpen {unable to open database file
this is a test} CantOpen {unable to open database file
this is a test} True True}]}
###############################################################################
runTest {test data-1.35 {unencrypted database, with password} -setup {
setupDb [set fileName data-1.35.db]
} -body {
sql execute $db "CREATE TABLE t1(x);"
sql execute $db "INSERT INTO t1 (x) VALUES(1);"
cleanupDb $fileName db true false false
setupDb $fileName "" "" "" "" "Password=12345;" true false
................................................................................
lappend result [catch {sql execute $db \
"INSERT INTO t1 (x) VALUES(1);"} error] $error
cleanupDb $fileName db true false false
setupDb $fileName "" "" "" "" "" true false
lappend result [catch {sql execute $db \
"INSERT INTO t1 (x) VALUES(1);"} error] $error
lappend result [catch {sql execute -execute scalar $db \
"SELECT COUNT(*) FROM t1;"} error] $error
set result
} -cleanup {
cleanupDb $fileName
unset -nocomplain error result db fileName
} -constraints {eagle defineConstant.System.Data.SQLite.INTEROP_CODEC monoBug28\
command.sql compile.DATA SQLite System.Data.SQLite} -match regexp -result {^1\
\{System\.Data\.SQLite\.SQLiteException \(0x80004005\): file is encrypted or is\
not a database.*?\} 1 \{System\.Data\.SQLite\.SQLiteException \(0x80004005\):\
file is encrypted or is not a database.*?\} 0 1 0 2$}}
###############################################################################
runTest {test data-1.36 {encrypted database, wrong password} -setup {
setupDb [set fileName data-1.36.db] "" "" "" "" "Password=12345;"
} -body {
sql execute $db "CREATE TABLE t1(x);"
sql execute $db "INSERT INTO t1 (x) VALUES(1);"
cleanupDb $fileName db true false false
setupDb $fileName "" "" "" "" "Password=12346;" true false
................................................................................
lappend result [catch {sql execute $db \
"INSERT INTO t1 (x) VALUES(1);"} error] $error
cleanupDb $fileName db true false false
setupDb $fileName "" "" "" "" "Password=12345;" true false
lappend result [catch {sql execute $db \
"INSERT INTO t1 (x) VALUES(1);"} error] $error
lappend result [catch {sql execute -execute scalar $db \
"SELECT COUNT(*) FROM t1;"} error] $error
set result
} -cleanup {
cleanupDb $fileName
unset -nocomplain error result db fileName
} -constraints {eagle defineConstant.System.Data.SQLite.INTEROP_CODEC monoBug28\
command.sql compile.DATA SQLite System.Data.SQLite} -match regexp -result {^1\
\{System\.Data\.SQLite\.SQLiteException \(0x80004005\): file is encrypted or is\
not a database.*?\} 1 \{System\.Data\.SQLite\.SQLiteException \(0x80004005\):\
file is encrypted or is not a database.*?\} 0 1 0 2$}}
###############################################################################
runTest {test data-1.37 {encrypted database, password w/start-space} -setup {
setupDb [set fileName data-1.37.db] "" "" "" "" "Password= 1234;"
} -body {
sql execute $db "CREATE TABLE t1(x);"
sql execute $db "INSERT INTO t1 (x) VALUES(1);"
cleanupDb $fileName db true false false
setupDb $fileName "" "" "" "" "Password=1234;" true false
set result [list]
lappend result [catch {sql execute -execute scalar $db \
"SELECT COUNT(*) FROM t1;"} error] $error
lappend result [catch {sql execute $db \
"INSERT INTO t1 (x) VALUES(1);"} error] $error
cleanupDb $fileName db true false false
setupDb $fileName "" "" "" "" "Password= 1234;" true false
lappend result [catch {sql execute $db \
"INSERT INTO t1 (x) VALUES(1);"} error] $error
lappend result [catch {sql execute -execute scalar $db \
"SELECT COUNT(*) FROM t1;"} error] $error
set result
} -cleanup {
cleanupDb $fileName
unset -nocomplain error result db fileName
} -constraints {eagle defineConstant.System.Data.SQLite.INTEROP_CODEC monoBug28\
command.sql compile.DATA SQLite System.Data.SQLite} -match regexp -result {^1\
\{System\.Data\.SQLite\.SQLiteException \(0x80004005\): file is encrypted or is\
not a database.*?\} 1 \{System\.Data\.SQLite\.SQLiteException \(0x80004005\):\
file is encrypted or is not a database.*?\} 0 1 0 2$}}
###############################################################################
runTest {test data-1.38 {encrypted database, password w/mid-space} -setup {
setupDb [set fileName data-1.38.db] "" "" "" "" "Password=12 45;"
} -body {
sql execute $db "CREATE TABLE t1(x);"
sql execute $db "INSERT INTO t1 (x) VALUES(1);"
cleanupDb $fileName db true false false
setupDb $fileName "" "" "" "" "Password=1245;" true false
set result [list]
lappend result [catch {sql execute -execute scalar $db \
"SELECT COUNT(*) FROM t1;"} error] $error
lappend result [catch {sql execute $db \
"INSERT INTO t1 (x) VALUES(1);"} error] $error
cleanupDb $fileName db true false false
setupDb $fileName "" "" "" "" "Password=12 45;" true false
lappend result [catch {sql execute $db \
"INSERT INTO t1 (x) VALUES(1);"} error] $error
lappend result [catch {sql execute -execute scalar $db \
"SELECT COUNT(*) FROM t1;"} error] $error
set result
} -cleanup {
cleanupDb $fileName
unset -nocomplain error result db fileName
} -constraints {eagle defineConstant.System.Data.SQLite.INTEROP_CODEC monoBug28\
command.sql compile.DATA SQLite System.Data.SQLite} -match regexp -result {^1\
\{System\.Data\.SQLite\.SQLiteException \(0x80004005\): file is encrypted or is\
not a database.*?\} 1 \{System\.Data\.SQLite\.SQLiteException \(0x80004005\):\
file is encrypted or is not a database.*?\} 0 1 0 2$}}
###############################################################################
runTest {test data-1.39 {encrypted database, password w/end-space} -setup {
setupDb [set fileName data-1.39.db] "" "" "" "" "Password=1234 ;"
} -body {
sql execute $db "CREATE TABLE t1(x);"
sql execute $db "INSERT INTO t1 (x) VALUES(1);"
cleanupDb $fileName db true false false
setupDb $fileName "" "" "" "" "Password=1234;" true false
set result [list]
lappend result [catch {sql execute -execute scalar $db \
"SELECT COUNT(*) FROM t1;"} error] $error
lappend result [catch {sql execute $db \
"INSERT INTO t1 (x) VALUES(1);"} error] $error
cleanupDb $fileName db true false false
setupDb $fileName "" "" "" "" "Password=1234 ;" true false
lappend result [catch {sql execute $db \
"INSERT INTO t1 (x) VALUES(1);"} error] $error
lappend result [catch {sql execute -execute scalar $db \
"SELECT COUNT(*) FROM t1;"} error] $error
set result
} -cleanup {
cleanupDb $fileName
unset -nocomplain error result db fileName
} -constraints {eagle defineConstant.System.Data.SQLite.INTEROP_CODEC monoBug28\
command.sql compile.DATA SQLite System.Data.SQLite} -result {0 1 0 1 0 1 0 3}}
###############################################################################
runTest {test data-1.40 {rollback to nested savepoint} -setup {
setupDb [set fileName data-1.40.db]
} -body {
sql execute $db "BEGIN IMMEDIATE TRANSACTION;"
sql execute $db "SAVEPOINT one;"
sql execute $db "CREATE TABLE t1(x);"
sql execute $db "SAVEPOINT two;"
................................................................................
unset -nocomplain result db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \
{1 2 1}}
###############################################################################
runTest {test data-1.41 {NoExtensionFunctions connection flag} -setup {
setupDb [set fileName data-1.41.db]
} -body {
set result [list]
lappend result [catch {sql execute -execute scalar $db \
"SELECT replicate('1234', 2);"} output] $output
cleanupDb $fileName
................................................................................
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -match \
regexp -result {^0 12341234 1 \{System\.Data\.SQLite\.SQLiteException\
\(0x80004005\): SQL logic error or missing database.*?\} 0 1234123412341234$}}
###############################################################################
runTest {test data-1.42 {column name and index lookup} -setup {
setupDb [set fileName data-1.42.db]
} -body {
sql execute $db {
CREATE TABLE t1(x, y, z);
INSERT INTO t1 (x, y, z) VALUES(1, 'foo', 1234);
}
set dataReader [sql execute -execute reader -format datareader \
|
Changes to Tests/common.eagle.
1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 |
# NOTE: Attempt to determine if various compile-time options needed for
# test constraints were enabled for the managed assembly. There
# are some compile-time options that must also have been enabled
# for the interop assembly in order to be effective. For those
# options, it will be assumed that it was enabled for the interop
# assembly if it was enabled for the managed assembly.
#
foreach defineConstant [list CHECK_STATE COUNT_HANDLE INTEROP_DEBUG \
INTEROP_LOG INTEROP_EXTENSION_FUNCTIONS \
INTEROP_TEST_EXTENSION SQLITE_STANDARD \
USE_INTEROP_DLL] {
#
# NOTE: Check if the compile-time option is listed in the list of
# "define constants" kept track of by the managed assembly.
#
checkForSQLiteDefineConstant $::test_channel $defineConstant
|
| > | |
1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 1584 |
# NOTE: Attempt to determine if various compile-time options needed for
# test constraints were enabled for the managed assembly. There
# are some compile-time options that must also have been enabled
# for the interop assembly in order to be effective. For those
# options, it will be assumed that it was enabled for the interop
# assembly if it was enabled for the managed assembly.
#
foreach defineConstant [list CHECK_STATE COUNT_HANDLE INTEROP_CODEC \
INTEROP_DEBUG INTEROP_LOG \
INTEROP_EXTENSION_FUNCTIONS \
INTEROP_TEST_EXTENSION SQLITE_STANDARD \
USE_INTEROP_DLL] {
#
# NOTE: Check if the compile-time option is listed in the list of
# "define constants" kept track of by the managed assembly.
#
checkForSQLiteDefineConstant $::test_channel $defineConstant
|