support alternate line endings

[dbsrgits/DBIx-Class-Schema-Loader.git] / t / 10_05ora_common.t

diff --git a/t/10_05ora_common.t b/t/10_05ora_common.t
index 25805e1..3eb59f5 100644 (file)
--- a/t/10_05ora_common.t
+++ b/t/10_05ora_common.t
@@ -1,9 +1,11 @@
 use strict;
-use lib qw(t/lib);
-use dbixcsl_common_tests;
+use warnings;
 use Test::More;
 use Test::Exception;
-use File::Slurp ();
+use DBIx::Class::Schema::Loader::Utils 'slurp_file';
+use namespace::clean;
+use lib qw(t/lib);
+use dbixcsl_common_tests;
 
 my $dsn      = $ENV{DBICTEST_ORA_DSN} || '';
 my $user     = $ENV{DBICTEST_ORA_USER} || '';
@@ -160,7 +162,7 @@ my $tester = dbixcsl_common_tests->new(
 
             my $class = $classes->{oracle_loader_test1};
             my $filename = $schema->_loader->get_dump_filename($class);
-            my $code = File::Slurp::slurp $filename;
+            my $code = slurp_file $filename;
 
             like $code, qr/^=head1 NAME\n\n^$class - oracle_loader_test1 table comment\n\n^=cut\n/m,
                 'table comment';