From: Ken Youens-Clark Date: Fri, 9 May 2003 17:12:46 +0000 (+0000) Subject: Lots of changes to reflect library mods. X-Git-Tag: v0.02~120 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=14f8758f3976b5c4982cd2b4ad462c5aaca87dc9;p=dbsrgits%2FSQL-Translator.git Lots of changes to reflect library mods. --- diff --git a/t/13schema.t b/t/13schema.t index aaece72..7b596d7 100644 --- a/t/13schema.t +++ b/t/13schema.t @@ -80,7 +80,7 @@ require_ok( 'SQL::Translator::Schema' ); 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->nullable, 1, 'Field can be NULL' ); + is( $f1->is_nullable, 1, 'Field can be NULL' ); is( $f1->default_value, undef, 'Field default is undefined' ); my $f2 = SQL::Translator::Schema::Field->new (name => 'f2') or @@ -88,9 +88,9 @@ require_ok( 'SQL::Translator::Schema' ); $f2 = $person_table->add_field( $f2 ); isa_ok( $f1, 'SQL::Translator::Schema::Field', 'f2' ); is( $f2->name, 'f2', 'Add field "f2"' ); - is( $f2->nullable(0), 0, 'Field cannot be NULL' ); - is( $f2->nullable(''), 0, 'Field cannot be NULL' ); - is( $f2->nullable('0'), 0, 'Field cannot be NULL' ); + is( $f2->is_nullable(0), 0, 'Field cannot be NULL' ); + is( $f2->is_nullable(''), 0, 'Field cannot be NULL' ); + is( $f2->is_nullable('0'), 0, 'Field cannot be NULL' ); is( $f1->default_value(''), '', 'Field default is empty string' ); $person_table = $f2->table( $person_table ); @@ -101,9 +101,15 @@ require_ok( 'SQL::Translator::Schema' ); my $redundant_field = $person_table->add_field(name => 'f2'); is( $redundant_field, undef, qq[Didn't create another "f2" field...] ); - like( $person_table->error, qr/can't create field/i, + like( $person_table->error, qr/can't use field/i, '... because it exists' ); + my @fields = $person_table->get_fields; + is( scalar @fields, 2, 'Table "foo" has 2 fields' ); + + is( $fields[0]->name, 'foo', 'First field is "foo"' ); + is( $fields[1]->name, 'f2', 'Second field is "f2"' ); + # # Field methods # @@ -127,6 +133,7 @@ require_ok( 'SQL::Translator::Schema' ); is( $age->size(10,2), '10,2', 'Field size still "10,2"' ); is( $age->size([10,2]), '10,2', 'Field size still "10,2"' ); is( $age->size(qw[ 10 2 ]), '10,2', 'Field size still "10,2"' ); + is( join(':', $age->size), '10:2', 'Field size returns array' ); # # Index @@ -139,6 +146,22 @@ require_ok( 'SQL::Translator::Schema' ); isa_ok( $index1, 'SQL::Translator::Schema::Index', 'Index' ); is( $index1->name, 'foo', 'Index name is "foo"' ); + is( $index1->is_valid, undef, 'Index name is not valid...' ); + like( $index1->error, qr/no fields/i, '...because it has no fields' ); + + is( join(':', $index1->fields('foo,bar')), 'foo:bar', + 'Index accepts fields'); + + is( $index1->is_valid, undef, 'Index name is not valid...' ); + like( $index1->error, qr/does not exist in table/i, + '...because it used fields not in the table' ); + + is( join(':', $index1->fields(qw[foo age])), 'foo:age', + 'Index accepts fields'); + is( $index1->is_valid, 1, 'Index name is now valid' ); + + is( $index1->type, NORMAL, 'Index type is "normal"' ); + my $index2 = SQL::Translator::Schema::Index->new( name => "bar" ) or warn SQL::Translator::Schema::Index->error; $index2 = $person_table->add_index( $index2 ); @@ -183,6 +206,14 @@ require_ok( 'SQL::Translator::Schema' ); $fields = join(',', $constraint1->fields( qw[ id name ] ) ); is( $fields, 'id,name', 'Constraint field = "id,name"' ); + is( $constraint1->match_type, '', 'Constraint match type is empty' ); + is( $constraint1->match_type('foo'), undef, + 'Constraint match type rejects bad arg...' ); + like( $constraint1->error, qr/invalid match type/i, + '...because it is invalid'); + is( $constraint1->match_type('FULL'), 'full', + 'Constraint match type = "full"' ); + my $constraint2 = SQL::Translator::Schema::Constraint->new( name => 'bar' ); $constraint2 = $person_table->add_constraint( $constraint2 ); isa_ok( $constraint2, 'SQL::Translator::Schema::Constraint', 'Constraint' ); @@ -329,9 +360,7 @@ require_ok( 'SQL::Translator::Schema' ); is( $pet_id->name, 'pet_id', 'Added field "pet_id"' ); is( $c->is_valid, 1, 'Constraint now valid' ); - } -exit; # # $table->primary_key test @@ -382,3 +411,23 @@ exit; is( join('', $c2->reference_fields), 'id', 'FK found PK "person.id"' ); } + +# +# View +# +{ + 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, + ); + + isa_ok( $v, 'SQL::Translator::Schema::View', 'View' ); + 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"] ); +}