sub run_tests {
my $schema = shift;
eval 'use Encode ; 1'
or plan skip_all, 'Install Encode run this test';
plan tests => 2;
DBICTest::Schema::Artist->load_components('UTF8Columns');
DBICTest::Schema::Artist->utf8_columns('name');
Class::C3->reinitialize();
my $artist = $schema->resultset("Artist")->create( { name => 'uni' } );
ok( Encode::is_utf8( $artist->name ), 'got name with utf8 flag' );
my $utf8_char = 'uniuni';
Encode::_utf8_on($utf8_char);
$artist->name($utf8_char);
ok( !Encode::is_utf8( $artist->{_column_data}->{name} ),
'store utf8 less chars' );
}
1;