Index: lib/System.Data.SQLite/common.eagle ================================================================== --- lib/System.Data.SQLite/common.eagle +++ lib/System.Data.SQLite/common.eagle @@ -4862,67 +4862,74 @@ } foreach fileNameOnly $nativeFileNames { catch { tputs $::test_channel [appendArgs \ - "---- file version of \"" $fileNameOnly "\"... \"" \ - [file version [getBinaryFileName $fileNameOnly]] \"\n] + "---- file version of \"" native/ $fileNameOnly \ + "\"... \"" [file version [getBinaryFileName \ + $fileNameOnly]] \"\n] } } foreach fileNameOnly $mixedFileNames { catch { tputs $::test_channel [appendArgs \ - "---- file version of \"" $fileNameOnly "\"... \"" \ - [file version [getBinaryFileName $fileNameOnly]] \"\n] + "---- file version of \"" mixed/ $fileNameOnly \ + "\"... \"" [file version [getBinaryFileName \ + $fileNameOnly]] \"\n] } } foreach fileNameOnly $managedFileNames { catch { tputs $::test_channel [appendArgs \ - "---- file version of \"" $fileNameOnly "\"... \"" \ - [file version [getBinaryFileName $fileNameOnly]] \"\n] + "---- file version of \"" managed/ $fileNameOnly \ + "\"... \"" [file version [getBinaryFileName \ + $fileNameOnly]] \"\n] } } if {[string length $platform] > 0} then { foreach fileNameOnly $nativeFileNames { catch { tputs $::test_channel [appendArgs \ - "---- file version of \"" $platform \ - / $fileNameOnly "\"... \"" [file version \ - [getBinaryFileName $fileNameOnly $platform]] \"\n] + "---- file version of \"" native/platform/ \ + $platform / $fileNameOnly "\"... \"" [file \ + version [getBinaryFileName $fileNameOnly \ + $platform]] \"\n] } } foreach fileNameOnly $mixedFileNames { catch { tputs $::test_channel [appendArgs \ - "---- file version of \"" $platform \ - / $fileNameOnly "\"... \"" [file version \ - [getBinaryFileName $fileNameOnly $platform]] \"\n] + "---- file version of \"" mixed/platform/ \ + $platform / $fileNameOnly "\"... \"" [file \ + version [getBinaryFileName $fileNameOnly \ + $platform]] \"\n] } } } if {[string length $architecture] > 0} then { foreach fileNameOnly $nativeFileNames { catch { tputs $::test_channel [appendArgs \ - "---- file version of \"" $architecture \ - / $fileNameOnly "\"... \"" [file version \ - [getBinaryFileName $fileNameOnly $architecture]] \"\n] + "---- file version of \"" native/architecture/ \ + $architecture / $fileNameOnly "\"... \"" [file \ + version [getBinaryFileName $fileNameOnly \ + $architecture]] \"\n] } } foreach fileNameOnly $mixedFileNames { catch { tputs $::test_channel [appendArgs \ - "---- file version of \"" $architecture \ - / $fileNameOnly "\"... \"" [file version \ - [getBinaryFileName $fileNameOnly $architecture]] \"\n] + "---- file version of \"" mixed/architecture/ \ + $architecture / $fileNameOnly "\"... \"" [file \ + version [getBinaryFileName $fileNameOnly \ + $architecture]] \"\n] } } } #