From: Dagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Date: Sat, 26 Jul 2014 12:33:31 +0000 (+0100)
Subject: Add 'use warnings', test case-insensitive ->get_field
X-Git-Tag: v0.11019~12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6b7dc6f7e74f797ac91d45e7eb87e711bd16508b;p=dbsrgits%2FSQL-Translator.git

Add 'use warnings', test case-insensitive ->get_field
---

diff --git a/t/13schema.t b/t/13schema.t
index c42dd74..3d9df32 100644
--- a/t/13schema.t
+++ b/t/13schema.t
@@ -4,6 +4,7 @@
 $| = 1;
 
 use strict;
+use warnings;
 use Test::More;
 use Test::Exception;
 use SQL::Translator::Schema::Constants;
@@ -168,6 +169,8 @@ require_ok( 'SQL::Translator::Schema' );
     is( join(",",$person_table->field_names), 'foo,f2',
         'field_names is "foo,f2"' );
 
+    my $ci_field = $person_table->get_field('FOO', 'case_insensitive');
+    is( $ci_field->name, 'foo', 'Got field case-insensitively' );
     #
     # $table-> drop_field
     #