File: mysql-text-default.t

package info (click to toggle)
libdbix-dbschema-perl 0.45-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, stretch
  • size: 244 kB
  • ctags: 133
  • sloc: perl: 1,667; makefile: 2
file content (18 lines) | stat: -rw-r--r-- 351 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/env perl
use strict;
use warnings;

use Test::More tests => 2;

use_ok 'DBIx::DBSchema::Column';

my $col = DBIx::DBSchema::Column->new({
    name    => 'bar',
    type    => 'text',
    default => "'bat'"
});

my $sql = $col->line("DBI:mysql:test");
diag "Generated: $sql";
unlike $sql, qr/default/i, "column bar doesn't have a default";