Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Minor corrections to test suite infrastructure. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
8314652c9486b29c785c7f7f1e524a87 |
User & Date: | mistachkin 2017-12-04 18:01:45.627 |
Context
2017-12-06
| ||
22:38 | Enhance the design-time components installer to support creating a log file of all registry write operations. check-in: 297b44b1ef user: mistachkin tags: trunk | |
21:28 | Work in progress on the design-time components installer. check-in: f808de76f7 user: mistachkin tags: designTimeInstaller | |
2017-12-04
| ||
18:01 | Minor corrections to test suite infrastructure. check-in: 8314652c94 user: mistachkin tags: trunk | |
16:32 | Minor correction to the 'data-1.81' test cleanup. check-in: 16d05f978b user: mistachkin tags: trunk | |
Changes
Changes to Tests/all.eagle.
︙ | ︙ | |||
24 25 26 27 28 29 30 31 32 33 34 35 36 37 | # # NOTE: Pre-load the assembly and the necessary helper procedures now, so that # they do not count as being "leaked" (i.e. the test framework has no way # to know who procedures actually belong to). # package require System.Data.SQLite.Test runSQLiteTestPrologue ############################################################################### set no(prologue.eagle) true set no(epilogue.eagle) true # | > | 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | # # NOTE: Pre-load the assembly and the necessary helper procedures now, so that # they do not count as being "leaked" (i.e. the test framework has no way # to know who procedures actually belong to). # package require System.Data.SQLite.Test runSQLiteTestPrologue runSQLiteTestFilesPrologue ############################################################################### set no(prologue.eagle) true set no(epilogue.eagle) true # |
︙ | ︙ | |||
65 66 67 68 69 70 71 72 73 | unset no(epilogue.eagle) unset no(prologue.eagle) if {[array size no] == 0} then {unset no} ############################################################################### runSQLiteTestEpilogue runTestEpilogue | > | 66 67 68 69 70 71 72 73 74 75 | unset no(epilogue.eagle) unset no(prologue.eagle) if {[array size no] == 0} then {unset no} ############################################################################### runSQLiteTestFilesEpilogue runSQLiteTestEpilogue runTestEpilogue |
Changes to lib/System.Data.SQLite/common.eagle.
︙ | ︙ | |||
2944 2945 2946 2947 2948 2949 2950 | set success true if {!$isMemory && $delete && [file exists $fileName]} then { # # NOTE: Skip deleting database files if somebody sets the global # variable to prevent it. # | | | 2944 2945 2946 2947 2948 2949 2950 2951 2952 2953 2954 2955 2956 2957 2958 | set success true if {!$isMemory && $delete && [file exists $fileName]} then { # # NOTE: Skip deleting database files if somebody sets the global # variable to prevent it. # if {![info exists ::no(cleanupDbFiles)]} then { # # NOTE: Attempt to delete the test WAL file, if any, now. # set walFileName [appendArgs $fileName -wal] if {[file exists $walFileName]} then { # |
︙ | ︙ | |||
4938 4939 4940 4941 4942 4943 4944 | tputs $::test_channel [appendArgs \ "---- System.Data.SQLite tests began at " \ [clock format [clock seconds]] \n] } } proc runSQLiteTestFilesPrologue {} { | > > > > > | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | > | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | > > > > > > > | | | | | | | | | | | | | | | | | | > | 4938 4939 4940 4941 4942 4943 4944 4945 4946 4947 4948 4949 4950 4951 4952 4953 4954 4955 4956 4957 4958 4959 4960 4961 4962 4963 4964 4965 4966 4967 4968 4969 4970 4971 4972 4973 4974 4975 4976 4977 4978 4979 4980 4981 4982 4983 4984 4985 4986 4987 4988 4989 4990 4991 4992 4993 4994 4995 4996 4997 4998 4999 5000 5001 5002 5003 5004 5005 5006 5007 5008 5009 5010 5011 5012 5013 5014 5015 5016 5017 5018 5019 5020 5021 5022 5023 5024 5025 5026 5027 5028 5029 5030 5031 5032 5033 5034 5035 5036 5037 5038 5039 5040 5041 5042 5043 5044 5045 5046 5047 5048 5049 5050 5051 5052 5053 5054 5055 5056 5057 5058 5059 5060 5061 5062 5063 5064 5065 5066 5067 5068 5069 5070 5071 5072 5073 5074 5075 5076 5077 5078 5079 5080 5081 5082 5083 5084 5085 5086 5087 5088 5089 5090 5091 5092 5093 5094 5095 5096 5097 5098 5099 5100 5101 5102 5103 5104 5105 5106 5107 5108 5109 5110 5111 5112 5113 5114 5115 5116 5117 5118 5119 5120 5121 5122 5123 5124 5125 5126 5127 5128 5129 5130 5131 5132 5133 5134 5135 5136 5137 5138 5139 5140 5141 5142 5143 5144 5145 5146 5147 5148 5149 5150 5151 5152 5153 5154 5155 5156 5157 5158 5159 5160 5161 5162 5163 5164 5165 5166 5167 5168 5169 5170 5171 5172 5173 5174 5175 5176 5177 5178 5179 5180 5181 5182 5183 5184 5185 5186 5187 5188 5189 5190 5191 5192 5193 5194 5195 5196 5197 5198 5199 5200 5201 5202 5203 5204 5205 5206 5207 5208 5209 5210 5211 5212 5213 5214 5215 | tputs $::test_channel [appendArgs \ "---- System.Data.SQLite tests began at " \ [clock format [clock seconds]] \n] } } proc runSQLiteTestFilesPrologue {} { # # NOTE: Skip running our custom files prologue if the main one has been # skipped. # if {![info exists ::no(prologue.eagle)]} then { uplevel 1 { # # NOTE: Setup the variables that refer to the various non-data files # required by the tests in this file. # set entityFrameworkDllFile \ [getBuildFileName EntityFramework.dll false] set installerExeFile \ [getBuildFileName Installer.exe false] set sqliteDesignerDllFile \ [getBuildFileName SQLite.Designer.dll false] set systemDataSQLiteDllFile \ [getBuildFileName System.Data.SQLite.dll false] set systemDataSQLiteLinqDllFile \ [getBuildFileName System.Data.SQLite.Linq.dll false] set systemDataSQLiteEf6DllFile \ [getBuildFileName System.Data.SQLite.EF6.dll false] set testExeFile [getBuildFileName test.exe false] set testLinqExeFile [getBuildFileName testlinq.exe false] set testEf6ExeFile [getBuildFileName testef6.exe false] # # NOTE: Setup the variables that refer to the various data files # required by the tests in this file. # set testLinqOutFile [file nativename [file join \ [getSQLiteTestDataPath] testlinq.out]] set northwindEfDbFile [file nativename [file join \ [file dirname [file dirname [getSQLiteTestDataPath]]] \ testlinq northwindEF.db]] set nonWalDbFile [file nativename [file join \ [getSQLiteTestDataPath] nonWal.db]] set walDbFile [file nativename [file join \ [getSQLiteTestDataPath] wal.db]] # # NOTE: The various install/uninstall log files used to test the # design-time component installer. # set testInstallVs2005LogFile [file nativename [file join \ [getSQLiteTestDataPath] Installer_Test_Vs2005.log]] set testInstallVs2008LogFile [file nativename [file join \ [getSQLiteTestDataPath] Installer_Test_Vs2008.log]] set testInstallVs2010LogFile [file nativename [file join \ [getSQLiteTestDataPath] Installer_Test_Vs2010.log]] set testInstallVs2012LogFile [file nativename [file join \ [getSQLiteTestDataPath] Installer_Test_Vs2012.log]] set testInstallVs2013LogFile [file nativename [file join \ [getSQLiteTestDataPath] Installer_Test_Vs2013.log]] set testInstallVs2015LogFile [file nativename [file join \ [getSQLiteTestDataPath] Installer_Test_Vs2015.log]] set testInstallVs2017LogFile [file nativename [file join \ [getSQLiteTestDataPath] Installer_Test_Vs2017.log]] set testUninstallVs2005LogFile [file nativename [file join \ [getSQLiteTestDataPath] Uninstaller_Test_Vs2005.log]] set testUninstallVs2008LogFile [file nativename [file join \ [getSQLiteTestDataPath] Uninstaller_Test_Vs2008.log]] set testUninstallVs2010LogFile [file nativename [file join \ [getSQLiteTestDataPath] Uninstaller_Test_Vs2010.log]] set testUninstallVs2012LogFile [file nativename [file join \ [getSQLiteTestDataPath] Uninstaller_Test_Vs2012.log]] set testUninstallVs2013LogFile [file nativename [file join \ [getSQLiteTestDataPath] Uninstaller_Test_Vs2013.log]] set testUninstallVs2015LogFile [file nativename [file join \ [getSQLiteTestDataPath] Uninstaller_Test_Vs2015.log]] set testUninstallVs2017LogFile [file nativename [file join \ [getSQLiteTestDataPath] Uninstaller_Test_Vs2017.log]] ##################################################################### if {![info exists ::no(checkForSqliteFiles)]} then { if {![haveConstraint [appendArgs file_ \ [file tail $entityFrameworkDllFile]]]} then { checkForFile $test_channel $entityFrameworkDllFile } if {![haveConstraint [appendArgs file_ \ [file tail $installerExeFile]]]} then { checkForFile $test_channel $installerExeFile Installer.exe } if {![haveConstraint [appendArgs file_ \ [file tail $sqliteDesignerDllFile]]]} then { checkForFile $test_channel $sqliteDesignerDllFile } if {![haveConstraint [appendArgs file_ \ [file tail $systemDataSQLiteDllFile]]]} then { checkForFile $test_channel $systemDataSQLiteDllFile } if {![haveConstraint [appendArgs file_ \ [file tail $systemDataSQLiteLinqDllFile]]]} then { checkForFile $test_channel $systemDataSQLiteLinqDllFile } if {![haveConstraint [appendArgs file_ \ [file tail $systemDataSQLiteEf6DllFile]]]} then { checkForFile $test_channel $systemDataSQLiteEf6DllFile } if {![haveConstraint [appendArgs file_ \ [file tail $testExeFile]]]} then { checkForFile $test_channel $testExeFile test.exe } if {![haveConstraint [appendArgs file_ \ [file tail $testLinqExeFile]]]} then { checkForFile $test_channel $testLinqExeFile testlinq.exe } if {![haveConstraint [appendArgs file_ \ [file tail $testEf6ExeFile]]]} then { checkForFile $test_channel $testEf6ExeFile testef6.exe } if {![haveConstraint [appendArgs file_ \ [file tail $testLinqOutFile]]]} then { checkForFile $test_channel $testLinqOutFile } if {![haveConstraint [appendArgs file_ \ [file tail $northwindEfDbFile]]]} then { checkForFile $test_channel $northwindEfDbFile } if {![haveConstraint [appendArgs file_ \ [file tail $nonWalDbFile]]]} then { checkForFile $test_channel $nonWalDbFile } if {![haveConstraint [appendArgs file_ \ [file tail $walDbFile]]]} then { checkForFile $test_channel $walDbFile } if {![haveConstraint [appendArgs file_ \ [file tail $testInstallVs2005LogFile]]]} then { checkForFile $test_channel $testInstallVs2005LogFile } if {![haveConstraint [appendArgs file_ \ [file tail $testInstallVs2008LogFile]]]} then { checkForFile $test_channel $testInstallVs2008LogFile } if {![haveConstraint [appendArgs file_ \ [file tail $testInstallVs2010LogFile]]]} then { checkForFile $test_channel $testInstallVs2010LogFile } if {![haveConstraint [appendArgs file_ \ [file tail $testInstallVs2012LogFile]]]} then { checkForFile $test_channel $testInstallVs2012LogFile } if {![haveConstraint [appendArgs file_ \ [file tail $testInstallVs2013LogFile]]]} then { checkForFile $test_channel $testInstallVs2013LogFile } if {![haveConstraint [appendArgs file_ \ [file tail $testInstallVs2015LogFile]]]} then { checkForFile $test_channel $testInstallVs2015LogFile } if {![haveConstraint [appendArgs file_ \ [file tail $testInstallVs2017LogFile]]]} then { checkForFile $test_channel $testInstallVs2017LogFile } if {![haveConstraint [appendArgs file_ \ [file tail $testUninstallVs2005LogFile]]]} then { checkForFile $test_channel $testUninstallVs2005LogFile } if {![haveConstraint [appendArgs file_ \ [file tail $testUninstallVs2008LogFile]]]} then { checkForFile $test_channel $testUninstallVs2008LogFile } if {![haveConstraint [appendArgs file_ \ [file tail $testUninstallVs2010LogFile]]]} then { checkForFile $test_channel $testUninstallVs2010LogFile } if {![haveConstraint [appendArgs file_ \ [file tail $testUninstallVs2012LogFile]]]} then { checkForFile $test_channel $testUninstallVs2012LogFile } if {![haveConstraint [appendArgs file_ \ [file tail $testUninstallVs2013LogFile]]]} then { checkForFile $test_channel $testUninstallVs2013LogFile } if {![haveConstraint [appendArgs file_ \ [file tail $testUninstallVs2015LogFile]]]} then { checkForFile $test_channel $testUninstallVs2015LogFile } if {![haveConstraint [appendArgs file_ \ [file tail $testUninstallVs2017LogFile]]]} then { checkForFile $test_channel $testUninstallVs2017LogFile } } } } } proc runSQLiteTestFilesEpilogue {} { # # NOTE: Skip running our custom files epilogue if the main one has been # skipped. # if {![info exists ::no(epilogue.eagle)]} then { uplevel 1 { unset -nocomplain \ testUninstallVs2017LogFile testUninstallVs2015LogFile \ testUninstallVs2013LogFile testUninstallVs2012LogFile \ testUninstallVs2010LogFile testUninstallVs2008LogFile \ testUninstallVs2005LogFile testInstallVs2017LogFile \ testInstallVs2015LogFile testInstallVs2013LogFile \ testInstallVs2012LogFile testInstallVs2010LogFile \ testInstallVs2008LogFile testInstallVs2005LogFile unset -nocomplain \ northwindEfDbFile testLinqOutFile \ walDbFile nonWalDbFile unset -nocomplain \ testEf6ExeFile testLinqExeFile \ testExeFile systemDataSQLiteEf6DllFile \ systemDataSQLiteLinqDllFile systemDataSQLiteDllFile \ sqliteDesignerDllFile installerExeFile \ entityFrameworkDllFile } } } proc runSQLiteTestEpilogue {} { # # NOTE: Skip running our custom epilogue if the main one has been # skipped. |
︙ | ︙ |