List of valid values is now compatible with the SQLT producers

Signed-off-by: Pedro Melo <melo@simplicidade.org>
melo · Oct 28, 2008 · f63068d · f63068d
1 parent 14e18aa
commit f63068d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/DBICx-CORM/lib/DBICx/CORM/EnumFields.pm b/DBICx-CORM/lib/DBICx/CORM/EnumFields.pm
@@ -34,7 +34,7 @@ sub add_columns {
       croak("Invalid value for extra.valid_values in field '$name', ");
     }
 
-    $info->{extra}{valid_values_list} = \@values;
+    $info->{extra}{list} = \@values; # For SQL::Translator
 
     {
       no strict 'refs';

diff --git a/DBICx-CORM/t/20-enum-fields.t b/DBICx-CORM/t/20-enum-fields.t
@@ -27,3 +27,5 @@ cmp_deeply($vv, {
   canceled  => 'Canceled',
 });
 
+my $info = $user->result_source->column_info('state');
+cmp_deeply($info->{extra}{list}, [ 'active', 'suspended', 'canceled' ]);