Merge 'trunk' into 'DBIx-Class-current'
[dbsrgits/DBIx-Class-Historic.git] / t / run / 25utf8.tl
1 sub run_tests {
2     my $schema = shift;
3
4     eval 'use Encode ; 1'
5         or plan skip_all, 'Install Encode run this test';
6
7     plan tests => 2;
8
9     DBICTest::Schema::Artist->load_components('UTF8Columns');
10     DBICTest::Schema::Artist->utf8_columns('name');
11     Class::C3->reinitialize();
12
13     my $artist = $schema->resultset("Artist")->create( { name => 'uni' } );
14     ok( Encode::is_utf8( $artist->name ), 'got name with utf8 flag' );
15
16     my $utf8_char = 'uniuni';
17     Encode::_utf8_on($utf8_char);
18     $artist->name($utf8_char);
19     ok( !Encode::is_utf8( $artist->{_column_data}->{name} ),
20         'store utf8 less chars' );
21 }
22
23 1;