From: Ken Youens-Clark <kclark@cpan.org>
Date: Tue, 14 Apr 2009 19:39:08 +0000 (+0000)
Subject: Added test for fulltext.
X-Git-Tag: v0.11008~212
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a383e9e93cdf7072e3a6fc15c11ae9b57dbb32cb;p=dbsrgits%2FSQL-Translator.git

Added test for fulltext.
---

diff --git a/t/02mysql-parser.t b/t/02mysql-parser.t
index 8981f74..972a095 100644
--- a/t/02mysql-parser.t
+++ b/t/02mysql-parser.t
@@ -11,7 +11,7 @@ use SQL::Translator::Utils qw//;
 use Test::SQL::Translator qw(maybe_plan);
 
 BEGIN {
-    maybe_plan(292, "SQL::Translator::Parser::MySQL");
+    maybe_plan(293, "SQL::Translator::Parser::MySQL");
     SQL::Translator::Parser::MySQL->import('parse');
 }
 
@@ -21,7 +21,8 @@ BEGIN {
         id char(32) not null default '0' primary key,
         a_session text,
         ssn varchar(12) unique key,
-        age int key
+        age int key,
+        fulltext key `session_fulltext` (a_session)
     );|;
 
     my $val = parse($tr, $data);
@@ -51,7 +52,9 @@ BEGIN {
     is( $f2->is_primary_key, 0, 'Field is not PK' );
 
     my @indices = $table->get_indices;
-    is( scalar @indices, 1, 'Right number of indices (1)' );
+    is( scalar @indices, 2, 'Right number of indices (2)' );
+    my $i = pop @indices;
+    is( $i->type, 'FULLTEXT', 'Found fulltext' );
 
     my @constraints = $table->get_constraints;
     is( scalar @constraints, 2, 'Right number of constraints (2)' );