1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
#!/usr/bin/perl -w
# vim:filetype=perl
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
#
# Run script with -d for debug.
use strict;
use FindBin qw/$Bin/;
use Test::More;
use Test::SQL::Translator;
#use Test::Exception;
use Data::Dumper;
use SQL::Translator;
use SQL::Translator::Schema;
use SQL::Translator::Schema::Constants;
# Simple options. -d for debug
my %opt;
BEGIN { map { $opt{$_}=1 if s/^-// } @ARGV; }
use constant DEBUG => (exists $opt{d} ? 1 : 0);
# Setup a (somewaht contrived!) test schema
#=============================================================================
my $schema = SQL::Translator::Schema->new( name => "Lookup-tests" );
my $tbl_order = $schema->add_table( name => "Order" );
# Fields
$tbl_order->add_field(
name => "order_id",
data_type => "INT",
size => "10",
is_primary_key => 1,
);
$tbl_order->add_field(
name => "customer_id",
data_type => "INT",
size => "10",
);
$tbl_order->add_field(
name => "invoice_number",
data_type => "VARCHAR",
size => "20",
);
$tbl_order->add_field(
name => "notes",
data_type => "TEXT",
);
# Constraints
$tbl_order->add_constraint(
name => "con_pkey",
type => PRIMARY_KEY,
fields => "order_id",
);
$tbl_order->add_constraint(
name => "con_customer_fkey",
type => FOREIGN_KEY,
fields => "customer_id",
reference_table => "Customer",
reference_fields => "customer_id",
);
$tbl_order->add_constraint(
name => "con_unique_invoice",
type => UNIQUE,
fields => "invoice_number",
);
print STDERR "Test Schema:",Dumper($schema) if DEBUG;
die "Test is schema is invalid! : ".$schema->err unless $schema->is_valid;
# Testing 1,2,3,..
#=============================================================================
plan( tests => 15 );
my (@flds,@cons);
@flds = $tbl_order->pkey_fields;
is( join(",",@flds), "order_id", "pkey_fields" );
isa_ok( $flds[0], "SQL::Translator::Schema::Field" );
@flds = $tbl_order->fkey_fields;
is( join(",",@flds), "customer_id", "fkey_fields" );
isa_ok( $flds[0], "SQL::Translator::Schema::Field" );
@flds = $tbl_order->nonpkey_fields;
is( join(",",@flds), "customer_id,invoice_number,notes", "nonpkey_fields" );
isa_ok( $flds[0], "SQL::Translator::Schema::Field" );
isa_ok( $flds[1], "SQL::Translator::Schema::Field" );
@flds = $tbl_order->data_fields;
is( join(",",@flds), "invoice_number,notes", "data_fields" );
isa_ok( $flds[0], "SQL::Translator::Schema::Field" );
@flds = $tbl_order->unique_fields;
is( join(",",@flds), "invoice_number", "unique_fields" );
isa_ok( $flds[0], "SQL::Translator::Schema::Field" );
@cons = $tbl_order->unique_constraints;
is( scalar @cons, 1, "Number of unique_constraints is 1" );
is( $cons[0]->name, "con_unique_invoice", "unique_constraints" );
@cons = $tbl_order->fkey_constraints;
is( scalar @cons, 1, "Number of fkey_constraints is 1" );
is( $cons[0]->name, "con_customer_fkey", "fkey_constraints" );
|
