From: Ken Youens-Clark <kclark@cpan.org>
Date: Tue, 19 Aug 2003 21:04:29 +0000 (+0000)
Subject: Almost functional.
X-Git-Tag: v0.04~292
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d730d512788b407083982a30fd3a6b2ab861f76d;p=dbsrgits%2FSQL-Translator.git

Almost functional.
---

diff --git a/t/19sybase-parser.t b/t/19sybase-parser.t
index 1ee4260..c705e9c 100644
--- a/t/19sybase-parser.t
+++ b/t/19sybase-parser.t
@@ -7,16 +7,100 @@ use strict;
 use FindBin qw/$Bin/;
 use Test::More 'no_plan'; #tests => 1;
 use SQL::Translator;
+use SQL::Translator::Schema::Constants;
 use SQL::Translator::Parser::Sybase qw(parse);
 
 my $file = "$Bin/data/sybase/create.sql";
 
 ok( -e $file, "File exists" );
 
+my $data;
+{
+    local $/;
+    open my $fh, "<$file" or die "Can't read file '$file': $!\n";
+    $data = <$fh>;
+    close $fh;
+}
+
+ok( $data, 'Data' );
+
 my $t = SQL::Translator->new;
 
-my $val = parse($t, $file);
+my $val = parse($t, $data);
+
+is( $val, 1, 'Parse' );
 
 my $schema = $t->schema;
+
+isa_ok( $schema, 'SQL::Translator::Schema', 'Schema' );
+
 is( $schema->is_valid, 1, 'Schema is valid' );
+
 my @tables = $schema->get_tables;
+
+is( scalar @tables, 9, 'Nine tables' );
+
+{
+    my $t = $schema->get_table( 'jdbc_function_escapes' );
+    isa_ok( $t, 'SQL::Translator::Schema::Table', 'Table' );
+    is( $t->name, 'jdbc_function_escapes', "Name = 'jdbc_function_escapes'" );
+
+    my @fields = $t->get_fields;
+    is( scalar @fields, 2, 'Two fields' );
+
+    is( $fields[0]->name, 'escape_name', "First field name is 'escape_name'" );
+    is( $fields[0]->data_type, 'varchar', "First field is 'varchar'" );
+    is( $fields[0]->size, 40, "First field size is '40'" );
+    is( $fields[0]->is_nullable, 0, "First field cannot be null" );
+
+    is( $fields[1]->name, 'map_string', "Second field name is 'map_string'" );
+    is( $fields[1]->data_type, 'varchar', "Second field is 'varchar'" );
+    is( $fields[1]->size, 40, "Second field size is '40'" );
+    is( $fields[1]->is_nullable, 0, "Second field cannot be null" );
+}
+
+{
+    my $t = $schema->get_table( 'spt_jtext' );
+    isa_ok( $t, 'SQL::Translator::Schema::Table', 'Table' );
+    is( $t->name, 'spt_jtext', "Name = 'spt_jtext'" );
+
+    my @fields = $t->get_fields;
+    is( scalar @fields, 2, 'Two fields' );
+
+    is( $fields[0]->name, 'mdinfo', "First field name is 'mdinfo'" );
+    is( $fields[0]->data_type, 'varchar', "First field is 'varchar'" );
+    is( $fields[0]->size, 30, "First field size is '30'" );
+    is( $fields[0]->is_nullable, 0, "First field cannot be null" );
+
+    is( $fields[1]->name, 'value', "Second field name is 'value'" );
+    is( $fields[1]->data_type, 'text', "Second field is 'text'" );
+    is( $fields[1]->size, 0, "Second field size is '0'" );
+    is( $fields[1]->is_nullable, 0, "Second field cannot be null" );
+
+    my @constraints = $t->get_constraints;
+    is( scalar @constraints, 1, 'One constraint' );
+
+    is( $constraints[0]->type, UNIQUE, 'Constraint is UNIQUE' );
+    is( join(',', $constraints[0]->fields), 'mdinfo', 'On "mdinfo"' );
+}
+
+{
+    my $t = $schema->get_table( 'spt_mda' );
+    isa_ok( $t, 'SQL::Translator::Schema::Table', 'Table' );
+    is( $t->name, 'spt_mda', "Name = 'spt_mda'" );
+
+    my @fields = $t->get_fields;
+    is( scalar @fields, 7, 'Seven fields' );
+
+    is( $fields[0]->name, 'mdinfo', "First field name is 'mdinfo'" );
+    is( $fields[0]->data_type, 'varchar', "First field is 'varchar'" );
+    is( $fields[0]->size, 30, "First field size is '30'" );
+    is( $fields[0]->is_nullable, 0, "First field cannot be null" );
+
+    my @constraints = $t->get_constraints;
+    is( scalar @constraints, 1, 'One constraint' );
+
+    is( $constraints[0]->type, UNIQUE, 'Constraint is UNIQUE' );
+    is( join(',', $constraints[0]->fields), 
+        'mdinfo,mdaver_end,srvver_end', 'On "mdinfo,mdaver_end,srvver_end"' );
+}