t/mysql-text-default.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::More tests => 2;
   6
   7 use_ok 'DBIx::DBSchema::Column';
   8
   9 my $col = DBIx::DBSchema::Column->new({
  10     name    => 'bar',
  11     type    => 'text',
  12     default => "'bat'"
  13 });
  14
  15 my $sql = $col->line("DBI:mysql:test");
  16 diag "Generated: $sql";
  17 unlike $sql, qr/default/i, "column bar doesn't have a default";
  18