2 # vim: set ft=perl ts=4 et:
5 # Copied from 19sybase-parser.t with some additions
11 use Test::SQL::Translator qw(maybe_plan);
13 use SQL::Translator::Schema::Constants;
16 maybe_plan(46, 'SQL::Translator::Parser::SQLServer');
17 SQL::Translator::Parser::SQLServer->import('parse');
20 my $file = "$Bin/data/sqlserver/create.sql";
22 ok( -e $file, "File exists" );
27 open my $fh, "<$file" or die "Can't read file '$file': $!\n";
34 my $t = SQL::Translator->new;
36 my $val = parse($t, $data);
38 is( $val, 1, 'Parse' );
40 my $schema = $t->schema;
42 isa_ok( $schema, 'SQL::Translator::Schema', 'Schema' );
44 is( $schema->is_valid, 1, 'Schema is valid' );
46 my @tables = $schema->get_tables;
48 is( scalar @tables, 8, 'Eight tables' );
51 my $t = $schema->get_table( 'jdbc_function_escapes' );
52 isa_ok( $t, 'SQL::Translator::Schema::Table', 'Table' );
53 is( $t->name, 'jdbc_function_escapes', "Name = 'jdbc_function_escapes'" );
55 my @fields = $t->get_fields;
56 is( scalar @fields, 2, 'Two fields' );
58 is( $fields[0]->name, 'escape_name', "First field name is 'escape_name'" );
59 is( $fields[0]->data_type, 'varchar', "First field is 'varchar'" );
60 is( $fields[0]->size, 40, "First field size is '40'" );
61 is( $fields[0]->is_nullable, 0, "First field cannot be null" );
63 is( $fields[1]->name, 'map_string', "Second field name is 'map_string'" );
64 is( $fields[1]->data_type, 'varchar', "Second field is 'varchar'" );
65 is( $fields[1]->size, 40, "Second field size is '40'" );
66 is( $fields[1]->is_nullable, 0, "Second field cannot be null" );
70 my $t = $schema->get_table( 'spt_jtext' );
71 isa_ok( $t, 'SQL::Translator::Schema::Table', 'Table' );
72 is( $t->name, 'spt_jtext', "Name = 'spt_jtext'" );
74 my @fields = $t->get_fields;
75 is( scalar @fields, 2, 'Two fields' );
77 is( $fields[0]->name, 'mdinfo', "First field name is 'mdinfo'" );
78 is( $fields[0]->data_type, 'varchar', "First field is 'varchar'" );
79 is( $fields[0]->size, 30, "First field size is '30'" );
80 is( $fields[0]->is_nullable, 0, "First field cannot be null" );
82 is( $fields[1]->name, 'value', "Second field name is 'value'" );
83 is( $fields[1]->data_type, 'text', "Second field is 'text'" );
84 is( $fields[1]->size, 0, "Second field size is '0'" );
85 is( $fields[1]->is_nullable, 0, "Second field cannot be null" );
87 my @constraints = $t->get_constraints;
88 is( scalar @constraints, 1, 'One constraint' );
90 is( $constraints[0]->type, UNIQUE, 'Constraint is UNIQUE' );
91 is( join(',', $constraints[0]->fields), 'mdinfo', 'On "mdinfo"' );
95 my $t = $schema->get_table( 'spt_mda' );
96 isa_ok( $t, 'SQL::Translator::Schema::Table', 'Table' );
97 is( $t->name, 'spt_mda', "Name = 'spt_mda'" );
99 my @fields = $t->get_fields;
100 is( scalar @fields, 7, 'Seven fields' );
102 is( $fields[0]->name, 'mdinfo', "First field name is 'mdinfo'" );
103 is( $fields[0]->data_type, 'varchar', "First field is 'varchar'" );
104 is( $fields[0]->size, 30, "First field size is '30'" );
105 is( $fields[0]->is_nullable, 0, "First field cannot be null" );
107 my @constraints = $t->get_constraints;
108 is( scalar @constraints, 1, 'One constraint' );
110 is( $constraints[0]->type, UNIQUE, 'Constraint is UNIQUE' );
111 is( join(',', $constraints[0]->fields),
112 'mdinfo,mdaver_end,srvver_end', 'On "mdinfo,mdaver_end,srvver_end"' );
115 # New testing for views and procedures
116 my @views = $schema->get_views;
118 is( scalar @views, 1, 'One view' );
119 like($views[0]->sql, qr/vs_xdp_data/, "Detected view vs_xdp_data");
121 my @procedures = $schema->get_procedures;
123 is( scalar @procedures, 10, 'Ten procedures' );
124 like($procedures[8]->sql, qr/Tx_B_Get_Vlan/, "Detected procedure Tx_B_Get_Vlan");
125 like($procedures[9]->sql, qr/\[dbo\].inet_ntoa/, "Detected function [dbo].inet_ntoa");