Commit | Line | Data |
---|---|---|
115c68ce | 1 | use strict; |
2 | use warnings; | |
3 | ||
55e13b19 | 4 | use Test::More; |
115c68ce | 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 | ||
55e13b19 | 18 | is_deeply [ split_sql_chunk( 'foo', ' ', 'bar' ) ], [qw( foo bar)]; |
19 | ||
20 | done_testing; |