diff options
Diffstat (limited to 't/snowflake.t')
-rw-r--r-- | t/snowflake.t | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/t/snowflake.t b/t/snowflake.t index e0001ad8..0f957e04 100644 --- a/t/snowflake.t +++ b/t/snowflake.t @@ -516,22 +516,6 @@ is $snow->_char2ts($now), $now->as_string(format => 'iso'), 'Should get ISO output from _char2ts'; ############################################################################## -# Test _quote_ident. -# Mock DBI method. -sub quote_identifier { qq{"$_[1]"} } - -ok my $quote_ident = $CLASS->can('_quote_ident'), 'Should have _quote_ident sub'; -# https://docs.snowflake.com/en/sql-reference/identifiers-syntax#unquoted-identifiers -for my $ident (qw(foo FOO _xXx _ a id1 My$Thing), "foo") { - is $quote_ident->(__PACKAGE__, $ident), $ident, "Should not quote “$ident”"; -} - -for my $ident (qw(my.thing 1go $foo идентификатор), 'hi there', qq{'thing'}) { - is $quote_ident->(__PACKAGE__, $ident), quote_identifier(__PACKAGE__, $ident), - "Should quote “$ident”"; -} - -############################################################################## # Can we do live tests? my $dbh; my $id = DBIEngineTest->randstr; |