Release commit for 1.62

[dbsrgits/SQL-Translator.git] / t / 71-generator-sql_server.t

diff --git a/t/71-generator-sql_server.t b/t/71-generator-sql_server.t
index 17b0da3..9e31ce4 100644 (file)
--- a/t/71-generator-sql_server.t
+++ b/t/71-generator-sql_server.t
@@ -5,6 +5,7 @@ use Test::More;
 
 use SQL::Translator::Generator::DDL::SQLServer;
 use SQL::Translator::Schema::Field;
+use SQL::Translator::Schema::Table;
 
 my $shim = SQL::Translator::Generator::DDL::SQLServer->new();
 
@@ -19,5 +20,19 @@ is $shim->field(SQL::Translator::Schema::Field->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;