use SQL::Translator::Generator::DDL::SQLServer;
use SQL::Translator::Schema::Field;
+use SQL::Translator::Schema::Table;
my $shim = SQL::Translator::Generator::DDL::SQLServer->new();
size => 10,
)), '[nice] varchar(10) NULL', 'sized field is generated correctly';
+my $table = SQL::Translator::Schema::Table->new(
+ name => 'mytable',
+);
+
+$table->add_field(
+ name => 'myenum',
+ data_type => 'enum',
+ extra => { list => [qw(foo ba'r)] },
+);
+
+like $shim->table($table),
+ qr/\b\QCONSTRAINT [myenum_chk] CHECK ([myenum] IN ('foo','ba''r'))\E/,
+ 'enum constraint is generated and escaped correctly';
+
done_testing;