Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix some whitespace. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
f034fafd6ba105f5efc184709ff96833 |
| User & Date: | mistachkin 2011-12-21 05:35:19 |
Context
|
2011-12-25
| ||
| 08:40 | Update Eagle in externals to the official beta 21 release. check-in: 2585b7c6f9 user: mistachkin tags: trunk | |
|
2011-12-21
| ||
| 05:35 | Fix some whitespace. check-in: f034fafd6b user: mistachkin tags: trunk | |
| 01:39 | Modify the unit tests and infrastructure to support the new semantics for the compileCSharp script library procedure. Also, update the included Eagle script library in Externals. check-in: d7f2f75ba3 user: mistachkin tags: trunk | |
Changes
Changes to Tests/all.eagle.
42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 |
}
#
# NOTE: Run all the unit tests.
#
set test_time [time {
runAllTests $test_channel $path \
[getTestFiles [list $path] $test_flags(-file) $test_flags(-notFile)] \
[list [file tail [info script]] *.tcl pkgIndex.eagle common.eagle \
constraints.eagle epilogue.eagle prologue.eagle]
}]
#
# NOTE: Run the local test epilogue, if any.
#
if {[file exists [file join $path epilogue.eagle]]} then {
source [file join $path epilogue.eagle]
|
| | | |
42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 |
}
#
# NOTE: Run all the unit tests.
#
set test_time [time {
runAllTests $test_channel $path \
[getTestFiles [list $path] $test_flags(-file) $test_flags(-notFile)] \
[list [file tail [info script]] *.tcl pkgIndex.eagle common.eagle \
constraints.eagle epilogue.eagle prologue.eagle]
}]
#
# NOTE: Run the local test epilogue, if any.
#
if {[file exists [file join $path epilogue.eagle]]} then {
source [file join $path epilogue.eagle]
|
Changes to Tests/basic.eagle.
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
..
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
set code [catch {
#
# NOTE: For the sake of backward compatibility, the "-autoRun" argument
# must be first.
#
testClrExec $testExeFile [list -eventflags Wait -directory \
[file dirname $testExeFile] -stdout output -success 0] -autoRun \
-fileName [appendArgs \" [file nativename $fileName] \"]
} error]
tlog "---- BEGIN STDOUT OUTPUT\n"
tlog $output
tlog "\n---- END STDOUT OUTPUT\n"
list $code [expr {$code == 0 ? "" : $error}]
................................................................................
object invoke Console OutputEncoding $encoding
} -body {
set output ""
set code [catch {
testClrExec $testLinqExeFile [list -eventflags Wait -directory \
[file dirname $testLinqExeFile] -stdout output -success 0]
} error]
tlog "---- BEGIN STDOUT OUTPUT\n"
tlog $output
tlog "\n---- END STDOUT OUTPUT\n"
list $code [string equal $output [readFile $testLinqOutFile]] \
|
|
|
|
|
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
..
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
set code [catch {
#
# NOTE: For the sake of backward compatibility, the "-autoRun" argument
# must be first.
#
testClrExec $testExeFile [list -eventflags Wait -directory \
[file dirname $testExeFile] -stdout output -success 0] -autoRun \
-fileName [appendArgs \" [file nativename $fileName] \"]
} error]
tlog "---- BEGIN STDOUT OUTPUT\n"
tlog $output
tlog "\n---- END STDOUT OUTPUT\n"
list $code [expr {$code == 0 ? "" : $error}]
................................................................................
object invoke Console OutputEncoding $encoding
} -body {
set output ""
set code [catch {
testClrExec $testLinqExeFile [list -eventflags Wait -directory \
[file dirname $testLinqExeFile] -stdout output -success 0]
} error]
tlog "---- BEGIN STDOUT OUTPUT\n"
tlog $output
tlog "\n---- END STDOUT OUTPUT\n"
list $code [string equal $output [readFile $testLinqOutFile]] \
|
Changes to Tests/tkt-00f86f9739.eagle.
45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 |
set result [list]
foreach value [list "" a b z 1+1 don notthere] {
set output ""
set code [catch {
testClrExec $testLinqExeFile [list -eventflags Wait -directory \
[file dirname $testLinqExeFile] -nocarriagereturns -stdout output \
-success 0] -startsWith $value
} error]
tlog "---- BEGIN STDOUT OUTPUT\n"
tlog $output
tlog "\n---- END STDOUT OUTPUT\n"
lappend result $code
|
| | |
45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 |
set result [list]
foreach value [list "" a b z 1+1 don notthere] {
set output ""
set code [catch {
testClrExec $testLinqExeFile [list -eventflags Wait -directory \
[file dirname $testLinqExeFile] -nocarriagereturns -stdout output \
-success 0] -startsWith $value
} error]
tlog "---- BEGIN STDOUT OUTPUT\n"
tlog $output
tlog "\n---- END STDOUT OUTPUT\n"
lappend result $code
|
Changes to Tests/tkt-2c630bffa7.eagle.
31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 .. 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 .. 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 |
for {set x 0} {$x < [llength $y]} {incr x} {
sql execute $db \
"INSERT INTO t1 (x, y) VALUES($x, [lindex $y $x]);"
}
set result [sql execute -execute reader -format list $db \
"SELECT x, y FROM t1 ORDER BY x;"]
} -cleanup {
cleanupDb $fileName
unset -nocomplain x result db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \
{0 -1.79769E+308 1 -3.40282E+38 2 -1 3 0 4 1 5 3.40282E+38 6 1.79769E+308}}
................................................................................
for {set x 0} {$x < [llength $y]} {incr x} {
sql execute $db \
"INSERT INTO t2 (x, y) VALUES($x, [lindex $y $x]);"
}
set result [sql execute -execute reader -format list $db \
"SELECT x, y FROM t2 ORDER BY x;"]
} -cleanup {
cleanupDb $fileName
unset -nocomplain x result db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \
{0 -1.79769E+308 1 -3.40282E+38 2 -1 3 0 4 1 5 3.40282E+38 6 1.79769E+308}}
................................................................................
for {set x 0} {$x < [llength $y]} {incr x} {
sql execute $db \
"INSERT INTO t3 (x, y) VALUES($x, [lindex $y $x]);"
}
set result [sql execute -execute reader -format list $db \
"SELECT x, y FROM t3 ORDER BY x;"]
} -cleanup {
cleanupDb $fileName
unset -nocomplain x result db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \
{0 -1.79769E+308 1 -3.40282E+38 2 -1 3 0 4 1 5 3.40282E+38 6 1.79769E+308}}
|
| | | |
31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 .. 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 .. 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 |
for {set x 0} {$x < [llength $y]} {incr x} {
sql execute $db \
"INSERT INTO t1 (x, y) VALUES($x, [lindex $y $x]);"
}
set result [sql execute -execute reader -format list $db \
"SELECT x, y FROM t1 ORDER BY x;"]
} -cleanup {
cleanupDb $fileName
unset -nocomplain x result db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \
{0 -1.79769E+308 1 -3.40282E+38 2 -1 3 0 4 1 5 3.40282E+38 6 1.79769E+308}}
................................................................................
for {set x 0} {$x < [llength $y]} {incr x} {
sql execute $db \
"INSERT INTO t2 (x, y) VALUES($x, [lindex $y $x]);"
}
set result [sql execute -execute reader -format list $db \
"SELECT x, y FROM t2 ORDER BY x;"]
} -cleanup {
cleanupDb $fileName
unset -nocomplain x result db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \
{0 -1.79769E+308 1 -3.40282E+38 2 -1 3 0 4 1 5 3.40282E+38 6 1.79769E+308}}
................................................................................
for {set x 0} {$x < [llength $y]} {incr x} {
sql execute $db \
"INSERT INTO t3 (x, y) VALUES($x, [lindex $y $x]);"
}
set result [sql execute -execute reader -format list $db \
"SELECT x, y FROM t3 ORDER BY x;"]
} -cleanup {
cleanupDb $fileName
unset -nocomplain x result db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \
{0 -1.79769E+308 1 -3.40282E+38 2 -1 3 0 4 1 5 3.40282E+38 6 1.79769E+308}}
|
Changes to Tests/tkt-59edc1018b.eagle.
45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 |
set result [list]
foreach value [list "" a b z 1+1 don notthere] {
set output ""
set code [catch {
testClrExec $testLinqExeFile [list -eventflags Wait -directory \
[file dirname $testLinqExeFile] -nocarriagereturns -stdout output \
-success 0] -endsWith $value
} error]
tlog "---- BEGIN STDOUT OUTPUT\n"
tlog $output
tlog "\n---- END STDOUT OUTPUT\n"
lappend result $code
|
| | |
45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 |
set result [list]
foreach value [list "" a b z 1+1 don notthere] {
set output ""
set code [catch {
testClrExec $testLinqExeFile [list -eventflags Wait -directory \
[file dirname $testLinqExeFile] -nocarriagereturns -stdout output \
-success 0] -endsWith $value
} error]
tlog "---- BEGIN STDOUT OUTPUT\n"
tlog $output
tlog "\n---- END STDOUT OUTPUT\n"
lappend result $code
|
Changes to Tests/tkt-8554170e09.eagle.
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
..
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
runTest {test tkt-8554170e09-1.1 {default DATETIME value, NULL} -setup {
setupDb [set fileName tkt-8554170e09-1.1.db]
} -body {
sql execute $db "CREATE TABLE t1(x INTEGER, y DATETIME);"
sql execute $db "INSERT INTO t1 (x, y) VALUES(1, NULL);"
set result [sql execute -execute reader -format list $db \
"SELECT x, y FROM t1 ORDER BY x;"]
} -cleanup {
cleanupDb $fileName
unset -nocomplain result db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} \
-result {1}}
................................................................................
runTest {test tkt-8554170e09-1.2 {default DATETIME value, empty} -setup {
setupDb [set fileName tkt-8554170e09-1.2.db]
} -body {
sql execute $db "CREATE TABLE t1(x INTEGER, y DATETIME);"
sql execute $db "INSERT INTO t1 (x, y) VALUES(1, '');"
set result [sql execute -execute reader -format list $db \
"SELECT x, y FROM t1 ORDER BY x;"]
} -cleanup {
cleanupDb $fileName
unset -nocomplain result db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} \
-returnCodes 1 -match glob -result {*.SQLiteConvert.ToDateTime*}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
|
|
|
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
..
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
runTest {test tkt-8554170e09-1.1 {default DATETIME value, NULL} -setup {
setupDb [set fileName tkt-8554170e09-1.1.db]
} -body {
sql execute $db "CREATE TABLE t1(x INTEGER, y DATETIME);"
sql execute $db "INSERT INTO t1 (x, y) VALUES(1, NULL);"
set result [sql execute -execute reader -format list $db \
"SELECT x, y FROM t1 ORDER BY x;"]
} -cleanup {
cleanupDb $fileName
unset -nocomplain result db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} \
-result {1}}
................................................................................
runTest {test tkt-8554170e09-1.2 {default DATETIME value, empty} -setup {
setupDb [set fileName tkt-8554170e09-1.2.db]
} -body {
sql execute $db "CREATE TABLE t1(x INTEGER, y DATETIME);"
sql execute $db "INSERT INTO t1 (x, y) VALUES(1, '');"
set result [sql execute -execute reader -format list $db \
"SELECT x, y FROM t1 ORDER BY x;"]
} -cleanup {
cleanupDb $fileName
unset -nocomplain result db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} \
-returnCodes 1 -match glob -result {*.SQLiteConvert.ToDateTime*}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
Changes to Tests/tkt-8b7d179c3c.eagle.
45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 |
set result [list]
for {set pageSize 0} {$pageSize <= 2} {incr pageSize} {
set output ""
set code [catch {
testClrExec $testLinqExeFile [list -eventflags Wait -directory \
[file dirname $testLinqExeFile] -nocarriagereturns -stdout output \
-success 0] -skip $pageSize
} error]
tlog "---- BEGIN STDOUT OUTPUT\n"
tlog $output
tlog "\n---- END STDOUT OUTPUT\n"
lappend result $code
|
| | |
45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 |
set result [list]
for {set pageSize 0} {$pageSize <= 2} {incr pageSize} {
set output ""
set code [catch {
testClrExec $testLinqExeFile [list -eventflags Wait -directory \
[file dirname $testLinqExeFile] -nocarriagereturns -stdout output \
-success 0] -skip $pageSize
} error]
tlog "---- BEGIN STDOUT OUTPUT\n"
tlog $output
tlog "\n---- END STDOUT OUTPUT\n"
lappend result $code
|
Changes to Tests/tkt-ccfa69fc32.eagle.
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
..
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
set result [list]
foreach add [list false true false] {
set output ""
set code [catch {
testClrExec $testLinqExeFile [list -eventflags Wait -directory \
[file dirname $testLinqExeFile] -nocarriagereturns -stdout output \
-success 0] -efTransaction $add
} error]
tlog "---- BEGIN STDOUT OUTPUT\n"
tlog $output
tlog "\n---- END STDOUT OUTPUT\n"
lappend result $code
................................................................................
}
}
set result
} -cleanup {
unset -nocomplain code output error result add
} -constraints {eagle monoToDo file_testlinq.exe file_northwindEF.db} -match \
glob -result {0 {1581 1730 1833 2116 2139} 0 {System.Data.UpdateException: * --->\
System.Data.SQLite.SQLiteException: Abort due to constraint violation
PRIMARY KEY must be unique
*} 0 {1 2 3 4 5 6 7 8 9 10 1576 1577 1578 1579 1580 1581 1730 1833 2116 2139}}}
###############################################################################
unset -nocomplain testLinqExeFile northwindEfDbFile
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
|
|
|
|
|
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
..
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
set result [list]
foreach add [list false true false] {
set output ""
set code [catch {
testClrExec $testLinqExeFile [list -eventflags Wait -directory \
[file dirname $testLinqExeFile] -nocarriagereturns -stdout output \
-success 0] -efTransaction $add
} error]
tlog "---- BEGIN STDOUT OUTPUT\n"
tlog $output
tlog "\n---- END STDOUT OUTPUT\n"
lappend result $code
................................................................................
}
}
set result
} -cleanup {
unset -nocomplain code output error result add
} -constraints {eagle monoToDo file_testlinq.exe file_northwindEF.db} -match \
glob -result {0 {1581 1730 1833 2116 2139} 0 {System.Data.UpdateException: *\
---> System.Data.SQLite.SQLiteException: Abort due to constraint violation
PRIMARY KEY must be unique
*} 0 {1 2 3 4 5 6 7 8 9 10 1576 1577 1578 1579 1580 1581 1730 1833 2116 2139}}}
###############################################################################
unset -nocomplain testLinqExeFile northwindEfDbFile
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|