X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F27sqlite-parser.t;fp=t%2F27sqlite-parser.t;h=c221312e4591ceee499cc8fa53d60a8fa5ef5c86;hb=03d12def97d014fc5672c45909b59bc31bf85b15;hp=054044924f38c45383b4fa884615975b02727d84;hpb=6ceb5f1c1bbf3e434e82f2d312631c62b40b7efa;p=dbsrgits%2FSQL-Translator.git

diff --git a/t/27sqlite-parser.t b/t/27sqlite-parser.t
index 0540449..c221312 100644
--- a/t/27sqlite-parser.t
+++ b/t/27sqlite-parser.t
@@ -10,7 +10,7 @@ use SQL::Translator;
 use SQL::Translator::Schema::Constants;
 
 BEGIN {
-    maybe_plan(9,
+    maybe_plan(12,
         'SQL::Translator::Parser::SQLite');
 }
 SQL::Translator::Parser::SQLite->import('parse');
@@ -32,6 +32,12 @@ my $file = "$Bin/data/sqlite/create.sql";
     my $t1 = shift @tables;
     is( $t1->name, 'person', "'Person' table" );
 
+    my @fields = $t1->get_fields;
+    is( scalar @fields, 6, 'Six fields in "person" table');
+    my $fld1 = shift @fields;
+    is( $fld1->name, 'person_id', 'First field is "person_id"');
+    is( $fld1->is_auto_increment, 1, 'Is an autoincrement field');
+
     my $t2 = shift @tables;
     is( $t2->name, 'pet', "'Pet' table" );