Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Add test for ticket [da685c0bac]. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
2b1ca5ca01d6ddb604cebb97d4ff65fc |
User & Date: | mistachkin 2016-03-09 01:20:31.159 |
Context
2016-03-09
| ||
02:05 | Update the master release archive manifest. check-in: 3ec5b8b4b1 user: mistachkin tags: trunk | |
01:20 | Add test for ticket [da685c0bac]. check-in: 2b1ca5ca01 user: mistachkin tags: trunk | |
2016-03-08
| ||
23:16 | Avoid using Path.Combine with null values in the native library pre-loader. Fix for [da685c0bac]. check-in: 61eafc5985 user: mistachkin tags: trunk | |
Changes
Added Tests/tkt-da685c0bac.eagle.
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | ############################################################################### # # tkt-da685c0bac.eagle -- # # Written by Joe Mistachkin. # Released to the public domain, use at your own risk! # ############################################################################### package require Eagle package require Eagle.Library package require Eagle.Test runTestPrologue ############################################################################### package require System.Data.SQLite.Test runSQLiteTestPrologue ############################################################################### moveSystemDataSQLiteDllConfig false true ############################################################################### runTest {test tkt-da685c0bac-1.1 {GetXmlConfigFileName path handling} -setup \ [getAppDomainPreamble] -body { package require Eagle.Library package require Eagle.Test package require System.Data.SQLite.Test moveSystemDataSQLiteDllConfig false true object load -loadtype Bytes [base64 encode [readFile [file join \ [getBinaryDirectory] System.Data.SQLite.dll]]] object invoke -flags +NonPublic \ System.Data.SQLite.UnsafeNativeMethods GetXmlConfigFileName } -cleanup { moveSystemDataSQLiteDllConfig true true } -isolationLevel AppDomain -constraints {eagle command.object dotNet\ compile.ISOLATED_INTERPRETERS System.Data.SQLite} -result {}} ############################################################################### moveSystemDataSQLiteDllConfig true true ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to lib/System.Data.SQLite/common.eagle.
︙ | ︙ | |||
959 960 961 962 963 964 965 966 967 968 969 970 971 972 | # if {[string length $result] > 0} then { append result \n } return $result } proc getAppDomainPreamble { {prefix ""} {suffix ""} } { # # NOTE: This procedure returns a test setup script fragment suitable for # evaluation by an interpreter created in an isolated application # domain. The script fragment being returned will be surrounded by # the prefix and suffix "script fragments" specified by our caller, | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 | # if {[string length $result] > 0} then { append result \n } return $result } proc moveSystemDataSQLiteDllConfig { {restore false} {verbose false} } { set directory [object invoke AppDomain CurrentDomain.BaseDirectory] if {[string length $directory] == 0} then { if {$verbose} then { tputs $::test_channel [appendArgs \ "---- skipped moving \"System.Data.SQLite.dll.config\", " \ "no base directory\n"] } return } set fileName(1) [file normalize \ [file join $directory System.Data.SQLite.dll.config]] set fileName(2) [appendArgs $fileName(1) .moved] if {$restore} then { if {[file exists $fileName(2)]} then { file rename $fileName(2) $fileName(1) if {$verbose} then { tputs $::test_channel [appendArgs \ "---- moved \"" $fileName(2) "\" to \"" \ $fileName(1) \"\n] } } else { if {$verbose} then { tputs $::test_channel [appendArgs \ "---- skipped moving \"" $fileName(2) \ "\", it does not exist\n"] } } } else { if {[file exists $fileName(1)]} then { file rename $fileName(1) $fileName(2) if {$verbose} then { tputs $::test_channel [appendArgs \ "---- moved \"" $fileName(1) "\" to \"" \ $fileName(2) \"\n] } } else { if {$verbose} then { tputs $::test_channel [appendArgs \ "---- skipped moving \"" $fileName(1) \ "\", it does not exist\n"] } } } } proc getAppDomainPreamble { {prefix ""} {suffix ""} } { # # NOTE: This procedure returns a test setup script fragment suitable for # evaluation by an interpreter created in an isolated application # domain. The script fragment being returned will be surrounded by # the prefix and suffix "script fragments" specified by our caller, |
︙ | ︙ |