Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Some test portability enhancements for Mono. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
62d83650d54c8b09ba9b0e670d3438e6 |
| User & Date: | mistachkin 2016-03-22 04:29:19 |
Context
|
2016-03-22
| ||
| 13:38 | Another test portability enhancement for Mono. check-in: 4744c835cb user: mistachkin tags: trunk | |
| 04:29 | Some test portability enhancements for Mono. check-in: 62d83650d5 user: mistachkin tags: trunk | |
| 04:04 | Running the 'legacy' test program from the test suite should require the 'winForms' test constraint. check-in: d650aaeda5 user: mistachkin tags: trunk | |
Changes
Changes to Tests/basic.eagle.
1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 1936 1937 1938 1939 1940 1941 1942 1943 1944 1945 |
$serializer Serialize $stream $exception(1) $stream Seek 0 Begin set exception(2) [$serializer -alias Deserialize $stream] list [$exception(1) ResultCode] [$exception(1) Message] \ [$exception(2) ResultCode] [$exception(2) Message] \ [expr {[$exception(1) ResultCode] eq [$exception(2) ResultCode]}] \ [expr {[$exception(1) Message] eq [$exception(2) Message]}] } -cleanup { unset -nocomplain exception stream serializer } -constraints {eagle command.object 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.39 {unencrypted database, with password} -setup { setupDb [set fileName data-1.39.db] } -body { sql execute $db "CREATE TABLE t1(x);" |
| > | > | | |
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 |
$serializer Serialize $stream $exception(1) $stream Seek 0 Begin set exception(2) [$serializer -alias Deserialize $stream] list [$exception(1) ResultCode] \ [string map [list \r\n \n] [$exception(1) Message]] \ [$exception(2) ResultCode] \ [string map [list \r\n \n] [$exception(2) Message]] \ [expr {[$exception(1) ResultCode] eq [$exception(2) ResultCode]}] \ [expr {[$exception(1) Message] eq [$exception(2) Message]}] } -cleanup { unset -nocomplain exception stream serializer } -constraints {eagle command.object SQLite System.Data.SQLite} -result \ {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.39 {unencrypted database, with password} -setup { setupDb [set fileName data-1.39.db] } -body { sql execute $db "CREATE TABLE t1(x);" |
Changes to Tests/thread.eagle.
439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 |
public static void Main()
{
// do nothing.
}
}
}
}] true true true results errors [list System.Data.SQLite.dll Eagle.dll]]
list $code $results \
[expr {[info exists errors] ? $errors : ""}] \
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} RunTestThreads
} result] : [set result ""]}] $result \
[collectGarbage $test_channel [expr {$count(1) * 1000}] false] \
|
| > |
439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 |
public static void Main()
{
// do nothing.
}
}
}
}] true true true results errors [list System.Data.SQLite.dll Eagle.dll] \
WarningLevel 0]
list $code $results \
[expr {[info exists errors] ? $errors : ""}] \
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} RunTestThreads
} result] : [set result ""]}] $result \
[collectGarbage $test_channel [expr {$count(1) * 1000}] false] \
|