Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Add tests for the SetDefaults connection string property. Also, update Eagle script library in externals. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
54f86a8d40a752ae3baa67f450682755 |
| User & Date: | mistachkin 2012-07-21 08:30:10.220 |
Context
|
2012-07-22
| ||
| 06:54 | Remove all superfluous UTF-8 byte-order-marks. check-in: 2c82e6c1a3 user: mistachkin tags: trunk | |
|
2012-07-21
| ||
| 08:30 | Add tests for the SetDefaults connection string property. Also, update Eagle script library in externals. check-in: 54f86a8d40 user: mistachkin tags: trunk | |
| 06:56 | Change the default value for the Synchronous connection string property to Full to match the default used by the SQLite core library itself. Add the ability to skip applying default connection settings to opened databases via the new SetDefaults connection string property. Add the FullUri connection string property to the SQLiteConnectionStringBuilder class. Refactor and enhance all the connection string property handling code in the SQLiteConnection.Open method. Consistently use the three argument overload of the String.Format method (i.e. the one that takes a CultureInfo). check-in: 9dfa1577a6 user: mistachkin tags: trunk | |
Changes
Changes to Externals/Eagle/lib/Eagle1.0/init.eagle.
| ︙ | ︙ | |||
1388 1389 1390 1391 1392 1393 1394 |
if {[string length $type] == 0} then {
return ""
}
return [expr {[$type IsValueType] ? 0 : "null"}]
}
| | > > > > | | | | | 1388 1389 1390 1391 1392 1393 1394 1395 1396 1397 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 1435 1436 |
if {[string length $type] == 0} then {
return ""
}
return [expr {[$type IsValueType] ? 0 : "null"}]
}
proc parray { a args } {
if {[llength $args] > 2} then {
error "wrong # args: should be \"parray a ?pattern?\""
}
upvar 1 $a array
if {![array exists array]} {
error "\"$a\" isn't an array"
}
set names [lsort [eval array names array $args]]
set maxLength 0
foreach name $names {
set length [string length $name]
if {$length > $maxLength} {
set maxLength $length
}
}
set maxLength [expr {$maxLength + [string length $a] + 2}]
set hostLength [lindex [host size] 0]
set valueLength [expr {$hostLength - $maxLength - 5}]; # " ... "
foreach name $names {
#
# NOTE: Format the array element name for display.
#
set nameString [appendArgs $a ( $name )]
#
# NOTE: If the value by itself is too long to fit on one host line,
# just truncate and ellipsis it.
#
set valueString $array($name)
if {[string length $valueString] > $valueLength} then {
set valueString [appendArgs [string range $valueString 0 \
[expr {$valueLength - 4}]] " ..."]
}
|
| ︙ | ︙ | |||
1445 1446 1447 1448 1449 1450 1451 1452 |
}
puts stdout $line
}
}
proc pdict { d } {
foreach {name value} $d {
| > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | | 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 |
}
puts stdout $line
}
}
proc pdict { d } {
set maxLength 0
foreach {name value} $d {
set length [string length $name]
if {$length > $maxLength} {
set maxLength $length
}
}
set hostLength [lindex [host size] 0]
set valueLength [expr {$hostLength - $maxLength - 5}]; # " ... "
foreach {name value} $d {
#
# NOTE: If the value by itself is too long to fit on one host line,
# just truncate and ellipsis it.
#
set valueString $value
if {[string length $valueString] > $valueLength} then {
set valueString [appendArgs [string range $valueString 0 \
[expr {$valueLength - 4}]] " ..."]
}
#
# HACK: Mono does not currently support calling the String.Format
# overload that takes a variable number of arguments via
# reflection (Mono bug #636939).
#
if {![isMono]} then {
set line [string format -verbatim -- "{0,-$maxLength} = {1}" \
$name $valueString]
} else {
set line [object invoke String Format "{0,-$maxLength} = {1}" \
$name $valueString]
}
puts stdout $line
}
}
proc test { name description args } {
#
# NOTE: Determine if the caller is trying to run an old style or
# new style test and use the appropriate command.
|
| ︙ | ︙ |
Changes to Externals/Eagle/lib/Test1.0/constraints.eagle.
| ︙ | ︙ | |||
649 650 651 652 653 654 655 |
tputs $channel yes\n
} else {
tputs $channel no\n
}
}
| > | > | > | > > | > | > > > > > | > > > > > > > > > > > | | 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 |
tputs $channel yes\n
} else {
tputs $channel no\n
}
}
proc checkForTiming {
channel threshold {constraint ""} {tries 1} {delay 1000}
{asynchronous false} } {
tputs $channel [appendArgs \
"---- checking for precision timing (threshold of " $threshold \
" milliseconds, delay of " $delay " milliseconds)... "]
#
# HACK: Sometimes the first try takes quite a bit longer than subsequent
# tries. We attempt to bypass this problem by retrying a set number
# of times (which can be overridden by the caller) before giving up.
#
set try 0
set difference unknown
for {} {$try < $tries} {incr try} {
#
# NOTE: Create a script that will set the final clicks value. This must
# use a global variable due to the nature of [after].
#
set stopScript {
set ::stopClicks [expr {[clock clicks -milliseconds] & 0x7fffffff}]
}
#
# NOTE: Set the initial clicks value and then attempt to wait for about
# one second, either synchronously or asynchronously, depending on
# the preference of the caller.
#
set start [expr {[clock clicks -milliseconds] & 0x7fffffff}]
if {$asynchronous} then {
set event [after $delay $stopScript]; vwait ::stopClicks
} else {
after $delay; eval $stopScript
}
#
# NOTE: Move the final clicks value from the global frame to this one.
#
set stop $::stopClicks; unset ::stopClicks
#
# NOTE: Calculate the difference between the actual and expected
# number of milliseconds.
#
set difference [expr {abs($stop - $start - $delay)}]
#
# NOTE: Are we within the threshold specified by the caller?
#
if {$difference >= 0 && $difference <= $threshold} then {
#
# NOTE: We appear to be capable of fairly precise timing.
|
| ︙ | ︙ |
Changes to Tests/basic.eagle.
| ︙ | ︙ | |||
1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 1526 1527 1528 |
}
unset -nocomplain result sqlite3
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -match \
regexp -result {^0 21 0 0 System#IntPtr#\d+ System#IntPtr#\d+ \d+ \d+ \d+ \d+\
\d+ True True True True True True$}}
###############################################################################
unset -nocomplain systemDataSQLiteDllFile systemDataSQLiteLinqDllFile \
testExeFile testLinqExeFile northwindEfDbFile testLinqOutFile
###############################################################################
| > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 1548 1549 1550 1551 1552 1553 1554 1555 1556 1557 1558 1559 1560 1561 1562 1563 1564 1565 1566 1567 1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 1584 1585 1586 1587 1588 1589 1590 1591 1592 1593 1594 1595 1596 1597 1598 1599 1600 |
}
unset -nocomplain result sqlite3
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -match \
regexp -result {^0 21 0 0 System#IntPtr#\d+ System#IntPtr#\d+ \d+ \d+ \d+ \d+\
\d+ True True True True True True$}}
###############################################################################
runTest {test data-1.29 {SQLiteConnection.Open with SetDefaults=False} -setup {
setupDb [set fileName data-1.29.db] "" "" "" "" SetDefaults=False
} -body {
set result [list]
lappend result [sql execute -execute scalar $db "PRAGMA page_size;"]
lappend result [sql execute -execute scalar $db "PRAGMA max_page_count;"]
lappend result [sql execute -execute scalar $db "PRAGMA legacy_file_format;"]
lappend result [sql execute -execute scalar $db "PRAGMA synchronous;"]
lappend result [sql execute -execute scalar $db "PRAGMA cache_size;"]
lappend result [sql execute -execute scalar $db "PRAGMA journal_mode;"]
lappend result [sql execute -execute scalar $db "PRAGMA foreign_keys;"]
set result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \
{1024 1073741823 0 2 2000 delete 0}}
###############################################################################
runTest {test data-1.30 {SQLiteConnection.Open with SetDefaults=True} -setup {
setupDb [set fileName data-1.30.db] "" "" "" "" SetDefaults=True
} -body {
set result [list]
lappend result [sql execute -execute scalar $db "PRAGMA page_size;"]
lappend result [sql execute -execute scalar $db "PRAGMA max_page_count;"]
lappend result [sql execute -execute scalar $db "PRAGMA legacy_file_format;"]
lappend result [sql execute -execute scalar $db "PRAGMA synchronous;"]
lappend result [sql execute -execute scalar $db "PRAGMA cache_size;"]
lappend result [sql execute -execute scalar $db "PRAGMA journal_mode;"]
lappend result [sql execute -execute scalar $db "PRAGMA foreign_keys;"]
set result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \
{1024 1073741823 0 2 2000 delete 0}}
###############################################################################
runTest {test data-1.31 {SQLiteConnection.Open without SetDefaults} -setup {
setupDb [set fileName data-1.31.db]
} -body {
set result [list]
lappend result [sql execute -execute scalar $db "PRAGMA page_size;"]
lappend result [sql execute -execute scalar $db "PRAGMA max_page_count;"]
lappend result [sql execute -execute scalar $db "PRAGMA legacy_file_format;"]
lappend result [sql execute -execute scalar $db "PRAGMA synchronous;"]
lappend result [sql execute -execute scalar $db "PRAGMA cache_size;"]
lappend result [sql execute -execute scalar $db "PRAGMA journal_mode;"]
lappend result [sql execute -execute scalar $db "PRAGMA foreign_keys;"]
set result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \
{1024 1073741823 0 2 2000 delete 0}}
###############################################################################
unset -nocomplain systemDataSQLiteDllFile systemDataSQLiteLinqDllFile \
testExeFile testLinqExeFile northwindEfDbFile testLinqOutFile
###############################################################################
|
| ︙ | ︙ |