t/10-split-sql-chunk.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More tests => 1;
   5
   6 use DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator;
   7
   8 *split_sql_chunk =
   9 *DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator::_split_sql_chunk;
  10
  11 is_deeply [ split_sql_chunk( <<'END' ) ], [ 'SELECT * FROM YADAH END' ];
  12 BEGIN
  13     -- stuff
  14     SELECT * FROM YADAH
  15 END;
  16 END
  17