| 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 |