X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F10_02mysql_common.t;h=9a538ea037fa832e8873f43b0442f4a4b3ced5f2;hb=ea998e8ea908a2f10462740b568831737224a75e;hp=bf6eb4a87e2f72c2362e59dd4149681cf21e313d;hpb=5c06aa08ab17d9d0e8437a990b5717238deeb8fd;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

diff --git a/t/10_02mysql_common.t b/t/10_02mysql_common.t
index bf6eb4a..9a538ea 100644
--- a/t/10_02mysql_common.t
+++ b/t/10_02mysql_common.t
@@ -1,10 +1,8 @@
 use strict;
-use File::Slurp qw(slurp);
+use DBIx::Class::Schema::Loader::Utils 'slurp_file';
 use Test::More;
 use lib qw(t/lib);
 use dbixcsl_common_tests;
-use utf8;
-use Encode 'decode';
 
 my $dsn         = $ENV{DBICTEST_MYSQL_DSN} || '';
 my $user        = $ENV{DBICTEST_MYSQL_USER} || '';
@@ -191,9 +189,9 @@ my $tester = dbixcsl_common_tests->new(
                 'hairy enum introspected correctly';
 
             my $class    = $classes->{'mysql_loader-test1'};
-            my $filename = $schema->_loader->get_dump_filename($class);
+            my $filename = $schema->loader->get_dump_filename($class);
 
-            my $code = decode('UTF-8', scalar slurp $filename);
+            my $code = slurp_file $filename;
 
             like $code, qr/^=head1 NAME\n\n^$class - The\nTable\n\n^=cut\n/m,
                 'table comment';