-#!/usr/local/bin/perl
-# vim: set ft=perl:
-
+use warnings;
use strict;
use Test::More;
use Test::Differences;
}
my $sqlt_version = $SQL::Translator::VERSION;
-my $yaml = <<YAML;
+use YAML qw(Dump Load);
+my $yaml = Dump(Load(<<YAML));
---
schema:
procedures: {}
age:
data_type: integer
default_value: ~
- extra: {}
is_nullable: 1
is_primary_key: 0
is_unique: 0
description:
data_type: text
default_value: ~
- extra: {}
is_nullable: 1
is_primary_key: 0
is_unique: 0
iq:
data_type: tinyint
default_value: 0
- extra: {}
is_nullable: 1
is_primary_key: 0
is_unique: 0
name:
data_type: varchar
default_value: ~
- extra: {}
is_nullable: 0
is_primary_key: 0
is_unique: 1
size:
- 20
person_id:
+ comments:
+ - field comment 1
+ - field comment 2
data_type: INTEGER
default_value: ~
- extra: {}
+ is_auto_increment: 1
is_nullable: 0
is_primary_key: 1
is_unique: 0
weight:
data_type: double
default_value: ~
- extra: {}
is_nullable: 1
is_primary_key: 0
is_unique: 0
reference_fields: []
reference_table: ''
type: PRIMARY KEY
+ - deferrable: 1
+ expression: ''
+ fields:
+ - person_id
+ match_type: ''
+ name: ''
+ on_delete: ''
+ on_update: ''
+ options: []
+ reference_fields:
+ - person_id
+ reference_table: person
+ type: FOREIGN KEY
fields:
age:
data_type: int
default_value: ~
- extra: {}
is_nullable: 1
is_primary_key: 0
is_unique: 0
name:
data_type: varchar
default_value: ~
- extra: {}
is_nullable: 1
is_primary_key: 0
is_unique: 0
person_id:
data_type: int
default_value: ~
- extra: {}
is_nullable: 0
is_primary_key: 1
is_unique: 0
pet_id:
data_type: int
default_value: ~
- extra: {}
is_nullable: 0
is_primary_key: 1
is_unique: 0
perform_action_when: after
views:
person_pet:
- fields: ''
+ fields: []
name: person_pet
order: 1
sql: |