From a4e61f133704e2a99d53f3cf8462db95813ef38e Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Wed, 7 Sep 2022 16:36:12 -0700 Subject: [PATCH] missing test from git --- t/mysql-text-default.t | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 t/mysql-text-default.t diff --git a/t/mysql-text-default.t b/t/mysql-text-default.t new file mode 100644 index 0000000..21d446a --- /dev/null +++ b/t/mysql-text-default.t @@ -0,0 +1,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"; + -- 2.11.0