X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F13schema.t;h=981c25279f8e002dc3355694789e42893d397751;hb=e21fb9ddcbc950972543edee7cd4c30a2af54978;hp=f031ef289c34018950354aceaca83c8c8b8b0ded;hpb=90fd4bf5788e22b5cd7514579bb5cc0cc638fb13;p=dbsrgits%2FSQL-Translator.git diff --git a/t/13schema.t b/t/13schema.t index f031ef2..981c252 100644 --- a/t/13schema.t +++ b/t/13schema.t @@ -4,7 +4,7 @@ $| = 1; use strict; -use Test::More tests => 166; +use Test::More tests => 201; use SQL::Translator::Schema::Constants; require_ok( 'SQL::Translator::Schema' ); @@ -54,10 +54,21 @@ require_ok( 'SQL::Translator::Schema' ); like( $schema->error, qr/can't use table name/i, '... because "foo" exists' ); + $redundant_table = $schema->add_table(name => ''); + is( $redundant_table, undef, qq[Can't add an anonymouse table...] ); + like( $schema->error, qr/No table name/i, + '... because if has no name ' ); + + $redundant_table = SQL::Translator::Schema::Table->new(name => ''); + is( $redundant_table, undef, qq[Can't create an anonymouse table] ); + like( SQL::Translator::Schema::Table->error, qr/No table name/i, + '... because if has no name ' ); + # # Table default new # is( $foo_table->name, 'foo', 'Table name is "foo"' ); + is( "$foo_table", 'foo', 'Table stringifies to "foo"' ); is( $foo_table->is_valid, undef, 'Table "foo" is not yet valid' ); my $fields = $foo_table->get_fields; @@ -87,12 +98,16 @@ require_ok( 'SQL::Translator::Schema' ); warn $person_table->error; isa_ok( $f1, 'SQL::Translator::Schema::Field', 'Field' ); is( $f1->name, 'foo', 'Field name is "foo"' ); + is( $f1->full_name, 'person.foo', 'Field full_name is "person.foo"' ); + is( "$f1", 'foo', 'Field stringifies to "foo"' ); is( $f1->data_type, '', 'Field data type is blank' ); is( $f1->size, 0, 'Field size is "0"' ); is( $f1->is_primary_key, '0', 'Field is_primary_key is false' ); is( $f1->is_nullable, 1, 'Field can be NULL' ); is( $f1->default_value, undef, 'Field default is undefined' ); is( $f1->comments, '', 'No comments' ); + is( $f1->table, 'person', 'Field table is person' ); + is( $f1->schema->database, 'PostgreSQL', 'Field schema shortcut works' ); my $f2 = SQL::Translator::Schema::Field->new ( name => 'f2', @@ -121,6 +136,16 @@ require_ok( 'SQL::Translator::Schema' ); like( $person_table->error, qr/can't use field/i, '... because it exists' ); + $redundant_field = $person_table->add_field(name => ''); + is( $redundant_field, undef, qq[Didn't add a "" field...] ); + like( $person_table->error, qr/No field name/i, + '... because it has no name' ); + + $redundant_field = SQL::Translator::Schema::Field->new(name => ''); + is( $redundant_field, undef, qq[Didn't create a "" field...] ); + like( SQL::Translator::Schema::Field->error, qr/No field name/i, + '... because it has no name' ); + my @fields = $person_table->get_fields; is( scalar @fields, 2, 'Table "foo" has 2 fields' ); @@ -130,7 +155,7 @@ require_ok( 'SQL::Translator::Schema' ); # # Field methods # - is( $f1->name('person_name'), 'person_name', + is( $f1->name('person_name'), 'person_name', 'Field name is "person_name"' ); is( $f1->data_type('varchar'), 'varchar', 'Field data type is "varchar"' ); is( $f1->size('30'), '30', 'Field size is "30"' ); @@ -208,26 +233,33 @@ require_ok( 'SQL::Translator::Schema' ); isa_ok( $constraint1, 'SQL::Translator::Schema::Constraint', 'Constraint' ); is( $constraint1->name, 'foo', 'Constraint name is "foo"' ); - $fields = join(',', $constraint1->fields('id') ); - is( $fields, 'id', 'Constraint field = "id"' ); + $fields = join(',', $constraint1->fields('age') ); + is( $fields, 'age', 'Constraint field = "age"' ); + + $fields = $constraint1->fields; + ok( ref $fields[0] && $fields[0]->isa("SQL::Translator::Schema::Field"), + 'Constraint fields returns a SQL::Translator::Schema::Field' ); - $fields = join(',', $constraint1->fields('id,id') ); - is( $fields, 'id', 'Constraint field = "id"' ); + $fields = join(',', $constraint1->fields('age,age') ); + is( $fields, 'age', 'Constraint field = "age"' ); - $fields = join(',', $constraint1->fields('id', 'name') ); - is( $fields, 'id,name', 'Constraint field = "id,name"' ); + $fields = join(',', $constraint1->fields('age', 'name') ); + is( $fields, 'age,name', 'Constraint field = "age,name"' ); - $fields = join(',', $constraint1->fields( 'id,name,id' ) ); - is( $fields, 'id,name', 'Constraint field = "id,name"' ); + $fields = join(',', $constraint1->fields( 'age,name,age' ) ); + is( $fields, 'age,name', 'Constraint field = "age,name"' ); - $fields = join(',', $constraint1->fields( 'id, name' ) ); - is( $fields, 'id,name', 'Constraint field = "id,name"' ); + $fields = join(',', $constraint1->fields( 'age, name' ) ); + is( $fields, 'age,name', 'Constraint field = "age,name"' ); - $fields = join(',', $constraint1->fields( [ 'id', 'name' ] ) ); - is( $fields, 'id,name', 'Constraint field = "id,name"' ); + $fields = join(',', $constraint1->fields( [ 'age', 'name' ] ) ); + is( $fields, 'age,name', 'Constraint field = "age,name"' ); - $fields = join(',', $constraint1->fields( qw[ id name ] ) ); - is( $fields, 'id,name', 'Constraint field = "id,name"' ); + $fields = join(',', $constraint1->fields( qw[ age name ] ) ); + is( $fields, 'age,name', 'Constraint field = "age,name"' ); + + $fields = join(',', $constraint1->field_names ); + is( $fields, 'age,name', 'Constraint field_names = "age,name"' ); is( $constraint1->match_type, '', 'Constraint match type is empty' ); is( $constraint1->match_type('foo'), undef, @@ -447,32 +479,42 @@ require_ok( 'SQL::Translator::Schema' ); # View # { + my $s = SQL::Translator::Schema->new( name => 'ViewTest' ); my $name = 'foo_view'; my $sql = 'select name, age from person'; my $fields = 'name, age'; - my $s = SQL::Translator::Schema->new; my $v = $s->add_view( name => $name, sql => $sql, fields => $fields, + schema => $s, ); isa_ok( $v, 'SQL::Translator::Schema::View', 'View' ); + isa_ok( $v->schema, 'SQL::Translator::Schema', 'Schema' ); + is( $v->schema->name, 'ViewTest', qq[Schema name is "'ViewTest'"] ); is( $v->name, $name, qq[Name is "$name"] ); is( $v->sql, $sql, qq[Name is "$sql"] ); is( join(':', $v->fields), 'name:age', qq[Fields are "$fields"] ); + + my @views = $s->get_views; + is( scalar @views, 1, 'Number of views is 1' ); + + my $v1 = $s->get_view( $name ); + isa_ok( $v1, 'SQL::Translator::Schema::View', 'View' ); + is( $v1->name, $name, qq[Name is "$name"] ); } # # Trigger # { + my $s = SQL::Translator::Schema->new(name => 'TrigTest'); my $name = 'foo_trigger'; my $perform_action_when = 'after'; my $database_event = 'insert'; my $on_table = 'foo'; my $action = 'update modified=timestamp();'; - my $s = SQL::Translator::Schema->new; my $t = $s->add_trigger( name => $name, perform_action_when => $perform_action_when, @@ -482,6 +524,8 @@ require_ok( 'SQL::Translator::Schema' ); ) or die $s->error; isa_ok( $t, 'SQL::Translator::Schema::Trigger', 'Trigger' ); + isa_ok( $t->schema, 'SQL::Translator::Schema', 'Schema' ); + is( $t->schema->name, 'TrigTest', qq[Schema name is "'TrigTest'"] ); is( $t->name, $name, qq[Name is "$name"] ); is( $t->perform_action_when, $perform_action_when, qq[Perform action when is "$perform_action_when"] ); @@ -489,4 +533,45 @@ require_ok( 'SQL::Translator::Schema' ); qq[Database event is "$database_event"] ); is( $t->on_table, $on_table, qq[Table is "$on_table"] ); is( $t->action, $action, qq[Action is "$action"] ); + + my @triggs = $s->get_triggers; + is( scalar @triggs, 1, 'Number of triggers is 1' ); + + my $t1 = $s->get_trigger( $name ); + isa_ok( $t1, 'SQL::Translator::Schema::Trigger', 'Trigger' ); + is( $t1->name, $name, qq[Name is "$name"] ); +} + +# +# Procedure +# +{ + my $s = SQL::Translator::Schema->new( name => 'ProcTest' ); + my $name = 'foo_proc'; + my $sql = 'select foo from bar'; + my $parameters = 'foo, bar'; + my $owner = 'Nomar'; + my $comments = 'Go Sox!'; + my $p = $s->add_procedure( + name => $name, + sql => $sql, + parameters => $parameters, + owner => $owner, + comments => $comments, + ) or die $s->error; + + isa_ok( $p, 'SQL::Translator::Schema::Procedure', 'Procedure' ); + isa_ok( $p->schema, 'SQL::Translator::Schema', 'Schema' ); + is( $p->schema->name, 'ProcTest', qq[Schema name is "'ProcTest'"] ); + is( $p->name, $name, qq[Name is "$name"] ); + is( $p->sql, $sql, qq[SQL is "$sql"] ); + is( join(',', $p->parameters), 'foo,bar', qq[Params = 'foo,bar'] ); + is( $p->comments, $comments, qq[Comments = "$comments"] ); + + my @procs = $s->get_procedures; + is( scalar @procs, 1, 'Number of procedures is 1' ); + + my $p1 = $s->get_procedure( $name ); + isa_ok( $p1, 'SQL::Translator::Schema::Procedure', 'Procedure' ); + is( $p1->name, $name, qq[Name is "$name"] ); }