Commit | Line | Data |
---|---|---|
115c68ce | 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 |