Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Some test portability enhancements for Mono. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
62d83650d54c8b09ba9b0e670d3438e6 |
User & Date: | mistachkin 2016-03-22 04:29:19.503 |
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 | $serializer Serialize $stream $exception(1) $stream Seek 0 Begin set exception(2) [$serializer -alias Deserialize $stream] | | > | > | | | 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 | public static void Main() { // do nothing. } } } | | > | 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] \ |
︙ | ︙ |