use strict;
use warnings;
use utf8;
use Test::More;
package Hoge;
use DBIx::Schema::DSL;
create_table user => columns {
varchar 'name';
};
package Fuga;
use DBIx::Schema::DSL;
add_table_options
mysql_charset => 'utf8mb4';
create_table user => columns {
varchar 'name';
};
package main;
subtest utf8 => sub {
my $c = Hoge->context;
my $sql = $c->translate;
like $sql, qr/255/;
unlike $sql, qr/191/;
};
subtest utf8mb4 => sub {
my $c = Fuga->context;
my $sql = $c->translate;
like $sql, qr/191/;
like $sql, qr/utf8mb4/;
unlike $sql, qr/255/;
};
done_testing;