-#!/usr/local/bin/perl
-# vim: set ft=perl:
-
+use warnings;
use strict;
use Test::More;
use Test::Differences;
procedures: {}
tables:
person:
- comments: ''
constraints:
- deferrable: 1
expression: ''
type: UNIQUE
fields:
age:
- comments: ''
data_type: integer
default_value: ~
- extra: {}
is_nullable: 1
is_primary_key: 0
is_unique: 0
size:
- 0
description:
- comments: ''
data_type: text
default_value: ~
- extra: {}
is_nullable: 1
is_primary_key: 0
is_unique: 0
size:
- 0
iq:
- comments: ''
data_type: tinyint
default_value: 0
- extra: {}
is_nullable: 1
is_primary_key: 0
is_unique: 0
size:
- 0
name:
- comments: ''
data_type: varchar
default_value: ~
- extra: {}
is_nullable: 0
is_primary_key: 0
is_unique: 1
size:
- 20
person_id:
- comments: ''
data_type: INTEGER
default_value: ~
- extra: {}
is_nullable: 0
is_primary_key: 1
is_unique: 0
size:
- 0
weight:
- comments: ''
data_type: double
default_value: ~
- extra: {}
is_nullable: 1
is_primary_key: 0
is_unique: 0
options: []
order: 1
pet:
- comments: ''
constraints:
- deferrable: 1
expression: ''
- fields: ''
+ fields: []
match_type: ''
name: ''
on_delete: ''
type: PRIMARY KEY
fields:
age:
- comments: ''
data_type: int
default_value: ~
- extra: {}
is_nullable: 1
is_primary_key: 0
is_unique: 0
name: age
- order: 10
+ order: 4
size:
- 0
name:
- comments: ''
data_type: varchar
default_value: ~
- extra: {}
is_nullable: 1
is_primary_key: 0
is_unique: 0
name: name
- order: 9
+ order: 3
size:
- 30
person_id:
- comments: ''
data_type: int
default_value: ~
- extra: {}
is_nullable: 0
is_primary_key: 1
is_unique: 0
name: person_id
- order: 8
+ order: 2
size:
- 0
pet_id:
- comments: ''
data_type: int
default_value: ~
- extra: {}
is_nullable: 0
is_primary_key: 1
is_unique: 0
name: pet_id
- order: 7
+ order: 1
size:
- 0
indices: []
action:
for_each: ~
steps:
- - update name=name
+ - update pet set name=name
when: ~
- database_event: insert
+ database_events:
+ - insert
fields: ~
name: pet_trig
on_table: pet
parser => 'SQLite',
producer => 'YAML',
data => $data,
-# debug => 1,
-# trace => 1,
);
my $out;