Add automatic naming of unique constraints

[dbsrgits/DBIx-Class.git] / t / 86sqlt.t

diff --git a/t/86sqlt.t b/t/86sqlt.t
index d01a630..1b80e21 100644 (file)
--- a/t/86sqlt.t
+++ b/t/86sqlt.t
@@ -12,7 +12,7 @@ plan skip_all => 'SQL::Translator required' if $@;
 
 my $schema = 'DBICTest::Schema';
 
-plan tests => 31;
+plan tests => 33;
 
 my $translator           =  SQL::Translator->new( 
     parser_args          => {
@@ -95,6 +95,9 @@ my @unique_constraints = (
   {'display' => 'cd artist and title unique',
    'table' => 'cd', 'cols' => ['artist', 'title'],
    'needed' => 1},
+  {'display' => 'producer name unique',
+   'table' => 'producer', 'cols' => ['name'],
+   'needed' => 1},
   {'display' => 'twokeytreelike name unique',
    'table' => 'twokeytreelike', 'cols'  => ['name'],
    'needed' => 1},