X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Frun%2F25utf8.tl;h=c0f39ed99ce55c5307a5b39b41a1784d519022e6;hb=70350518bbb31e5ac22fb3cb73d3e17409fcd332;hp=278dde4cfe9279ad4d35e65162e61c92b368f60a;hpb=4b8dcc58874223164d4a379a5db4a9cb737d7c7a;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/run/25utf8.tl b/t/run/25utf8.tl
index 278dde4..c0f39ed 100644
--- a/t/run/25utf8.tl
+++ b/t/run/25utf8.tl
@@ -1,23 +1,27 @@
-sub run_tests {
-    my $schema = shift;
+use strict;
+use warnings;  
 
-    eval 'use Encode ; 1'
-        or plan skip_all, 'Install Encode run this test';
+use Test::More;
+use lib qw(t/lib);
+use DBICTest;
 
-    plan tests => 2;
+my $schema = DBICTest::init_schema();
 
-    DBICTest::Schema::Artist->load_components('UTF8Columns');
-    DBICTest::Schema::Artist->utf8_columns('name');
-    Class::C3->reinitialize();
+eval 'use Encode ; 1'
+    or plan skip_all => 'Install Encode run this test';
 
-    my $artist = $schema->resultset("Artist")->create( { name => 'uni' } );
-    ok( Encode::is_utf8( $artist->name ), 'got name with utf8 flag' );
+plan tests => 2;
 
-    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' );
-}
+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;