Tweak tests

Signed-off-by: Morgan Douglas <[email protected]>

tests/constraints.test/t20.req

@@ -4,7 +4,7 @@ drop table if exists foo
 create table foo(i int)$$
 create table bar(i int)$$
 begin
-alter table foo {schema{int i} keys{dup "key" = i} constraints{"key" -> <"bar" : "pk">}} $$
+alter table foo {schema{int i} keys{dup "key" = i} constraints{"key" -> "bar":"pk" on delete cascade }} $$
 alter table bar {schema{int i} keys{"pk" = i}} $$
 commit
 insert into foo values(1)

tests/constraints.test/t20.req.exp

@@ -3,6 +3,20 @@
 [create table foo(i int)] rc 0
 [create table bar(i int)] rc 0
 [begin] rc 0
-[alter table foo {schema{int i} keys{dup "key" = i} constraints{"key" -> <"bar" : "pk">}}] rc 0
+[alter table foo {schema{int i} keys{dup "key" = i} constraints{"key" -> "bar":"pk" on delete cascade }}] rc 0
 [alter table bar {schema{int i} keys{"pk" = i}}] rc 0
 [commit] rc 0
+[insert into foo values(1)] failed with rc 3 Transaction violates foreign key constraint foo(i) -> bar(i): key value does not exist in parent table
+[select 'shouldnt see me' from foo] rc 0
+(rows inserted=1)
+[insert into bar values(1)] rc 0
+(rows inserted=1)
+[insert into foo values(1)] rc 0
+('should see me'='should see me')
+[select 'should see me' from foo] rc 0
+('should see me'='should see me')
+[select 'should see me' from bar] rc 0
+(rows deleted=1)
+[delete from bar where 1] rc 0
+[select 'shouldnt see me' from foo] rc 0
+[select 'shouldnt see me' from bar] rc 0