Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Correct culture-related test constraints for a couple tests that parse DateTime strings. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk | release |
Files: | files | file ages | folders |
SHA1: |
7e279c4a6422e9980ef671a7bd2573dc |
User & Date: | mistachkin 2011-11-28 07:54:38.682 |
Context
2011-11-28
| ||
09:05 | Update downloads page for 1.0.77.0 release. check-in: f643120ddb user: mistachkin tags: trunk | |
07:54 | Correct culture-related test constraints for a couple tests that parse DateTime strings. check-in: 7e279c4a64 user: mistachkin tags: trunk, release | |
06:32 | Final doc updates for release 77. check-in: a133cebbc4 user: mistachkin tags: trunk | |
Changes
Changes to Externals/Eagle/lib/Test1.0/constraints.eagle.
︙ | ︙ | |||
1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 | set culture [info culture] if {[string length $culture] > 0} then { # # NOTE: The culture information is present, use it and show it. # addConstraint [appendArgs culture. [string map [list - _] $culture]] tputs $channel [appendArgs $culture \n] } else { tputs $channel [appendArgs unknown \n] } } | > > > > > > > > > > > > > > > > > > > > > > > | 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 | set culture [info culture] if {[string length $culture] > 0} then { # # NOTE: The culture information is present, use it and show it. # addConstraint [appendArgs culture. [string map [list - _] $culture]] tputs $channel [appendArgs $culture \n] } else { tputs $channel [appendArgs unknown \n] } } proc checkForThreadCulture { channel } { tputs $channel "---- checking for thread culture... " # # NOTE: Grab the current thread culture. # set culture [object invoke Eagle._Components.Private.FormatOps \ CultureName [object invoke System.Threading.Thread.CurrentThread \ CurrentCulture] false] if {[string length $culture] > 0} then { # # NOTE: The culture information is present, use it and show it. # addConstraint [appendArgs threadCulture. [string map [list - _] \ $culture]] tputs $channel [appendArgs $culture \n] } else { tputs $channel [appendArgs unknown \n] } } |
︙ | ︙ |
Changes to Externals/Eagle/lib/Test1.0/prologue.eagle.
︙ | ︙ | |||
588 589 590 591 592 593 594 595 596 597 598 599 600 601 | # # NOTE: Has culture detection support been disabled? # if {![info exists no(culture)]} then { checkForCulture $test_channel } # # NOTE: Has software update trust detection support been disabled? # if {![info exists no(softwareUpdate)]} then { checkForSoftwareUpdateTrust $test_channel } | > > > > > > > | 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 | # # NOTE: Has culture detection support been disabled? # if {![info exists no(culture)]} then { checkForCulture $test_channel } # # NOTE: Has thread culture detection support been disabled? # if {![info exists no(threadCulture)]} then { checkForThreadCulture $test_channel } # # NOTE: Has software update trust detection support been disabled? # if {![info exists no(softwareUpdate)]} then { checkForSoftwareUpdateTrust $test_channel } |
︙ | ︙ |
Changes to Tests/basic.eagle.
︙ | ︙ | |||
811 812 813 814 815 816 817 | set result } -cleanup { cleanupDb $fileName unset -nocomplain name rows result db fileName } -constraints \ | | | 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 | set result } -cleanup { cleanupDb $fileName unset -nocomplain name rows result db fileName } -constraints \ {eagle culture.invariant monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result [subst {{1 {{x 1} {y2 {Wednesday, 16 December\ 2009}}}} {2 {{x 2} {y2 12:00:00}}} {3 {{x 3} {y2 {Wednesday, 16 December 2009\ 12:00:00}}}} {4 {{x 4} {y2 12/16/2009}}} {5 {{x 5} {y2 12:00}}} {6 {{x 6} {y2\ {12/16/2009 12:00}}}} {7 {{x 7} {y2 2009-12-16T00:00:00.0000000Z}}} {8 {{x 8}\ {y2 ${date}T12:00:00.0000000Z}}} {9 {{x 9} {y2 2009-12-16T12:00:00.0000000Z}}}\ {10 {{x 10} {y2 2009-12-16T00:00:00.0000000Z}}} {11 {{x 11} {y2\ ${date}T12:00:00.0000000Z}}} {12 {{x 12} {y2 2009-12-16T12:00:00.0000000Z}}}}]} |
︙ | ︙ |
Changes to Tests/tkt-343d392b51.eagle.
︙ | ︙ | |||
71 72 73 74 75 76 77 | [sql execute -verbatim -execute reader -format list -datetimeformat \ [getDateTimeFormat] $db "SELECT x FROM t1 WHERE x = ?;" \ [list param1 DateTime $paramDateTime1]] } -cleanup { cleanupDb $fileName unset -nocomplain paramDateTime2 paramDateTime1 dateTime db fileName | > | | 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 | [sql execute -verbatim -execute reader -format list -datetimeformat \ [getDateTimeFormat] $db "SELECT x FROM t1 WHERE x = ?;" \ [list param1 DateTime $paramDateTime1]] } -cleanup { cleanupDb $fileName unset -nocomplain paramDateTime2 paramDateTime1 dateTime db fileName } -constraints \ {eagle threadCulture.en_US monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {{{2011-10-04 15:27:50Z}} {{2011-10-04 15:27:50Z}}}} } ############################################################################### unset -nocomplain dateTimeFormat i dateTimeFormats |
︙ | ︙ |