OLD | NEW |
1 | 1 |
2 package require sqlite3 | 2 package require sqlite3 |
3 | 3 |
4 proc do_test {name cmd expected} { | 4 proc do_test {name cmd expected} { |
5 puts -nonewline "$name ..." | 5 puts -nonewline "$name ..." |
6 set res [uplevel $cmd] | 6 set res [uplevel $cmd] |
7 if {$res eq $expected} { | 7 if {$res eq $expected} { |
8 puts Ok | 8 puts Ok |
9 } else { | 9 } else { |
10 puts Error | 10 puts Error |
(...skipping 334 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
345 do_test genfkey-6.6 { | 345 do_test genfkey-6.6 { |
346 catchsql { UPDATE child SET "b.2"=7 } | 346 catchsql { UPDATE child SET "b.2"=7 } |
347 } {1 {constraint failed}} | 347 } {1 {constraint failed}} |
348 do_test genfkey-6.7 { | 348 do_test genfkey-6.7 { |
349 execsql { | 349 execsql { |
350 SELECT * FROM parent; | 350 SELECT * FROM parent; |
351 SELECT * FROM child; | 351 SELECT * FROM child; |
352 } | 352 } |
353 } {1 1} | 353 } {1 1} |
354 | 354 |
OLD | NEW |