$| = 1;
use strict;
-use Test::More tests => 196;
+use Test::More tests => 206;
use SQL::Translator::Schema::Constants;
+require_ok( 'SQL::Translator' );
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_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',
is( $fields[0]->name, 'foo', 'First field is "foo"' );
is( $fields[1]->name, 'f2', 'Second field is "f2"' );
+ is( join(",",$person_table->field_names), 'foo,f2',
+ 'field_names is "foo,f2"' );
#
# Field methods
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 = join(',', $constraint1->fields('id,id') );
- is( $fields, 'id', 'Constraint field = "id"' );
+ $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', 'name') );
- is( $fields, 'id,name', 'Constraint field = "id,name"' );
+ $fields = join(',', $constraint1->fields('age,age') );
+ is( $fields, 'age', 'Constraint field = "age"' );
- $fields = join(',', $constraint1->fields( 'id,name,id' ) );
- 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,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( qw[ 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[ 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,
my @views = $schema->get_views;
is( scalar @views, 2, 'Found 1 view' );
+
+}
+
+#
+# Graph
+#
+{
+ my $tr = SQL::Translator->new(
+ parser => "PostgreSQL",
+ );
+
+ ok( $tr->translate('t/data/pgsql/wiki.sql'), 'Translate PG' );
+ ok( my $schema = $tr->schema, 'Got Schema' );
+ ok( my $graph = $schema->as_graph, 'Graph made');
}
#