$| = 1;
use strict;
-use Test::More tests => 232;
+use Test::More tests => 229;
use SQL::Translator::Schema::Constants;
require_ok( 'SQL::Translator' );
}
#
-# 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');
-}
-
-#
# Test ability to introspect some values
#
{
name => 'foo',
database => 'PostgreSQL',
);
- my $t = $s->add_table( name => 'person' ) or warn $s->erro;
+ my $t = $s->add_table( name => 'person' ) or warn $s->error;
my $f = $t->add_field( name => 'person_id' ) or warn $t->error;
$f->data_type('serial');
#
{
my $s = SQL::Translator::Schema->new(name => 'TrigTest');
+ $s->add_table(name=>'foo') or die "Couldn't create table: ", $s->error;
my $name = 'foo_trigger';
my $perform_action_when = 'after';
my $database_event = 'insert';
qq[Perform action when is "$perform_action_when"] );
is( $t->database_event, $database_event,
qq[Database event is "$database_event"] );
- is( $t->on_table, $on_table, qq[Table is "$on_table"] );
+ isa_ok( $t->table, 'SQL::Translator::Schema::Table', qq[table is a Table"] );
is( $t->action, $action, qq[Action is "$action"] );
my @triggs = $s->get_triggers;