Testcase for $dbh->quote_identifier with special column names

gistfile1.txt

#!/usr/bin/env perl

use strict;
use warnings; 
use feature 'say';

use DBI;
use File::Temp qw/ tempfile /;
use Test::More tests => 3;
use Try::Tiny;

my ($fh,$dbfile) = tempfile();
my $dbh = DBI->connect( "dbi:SQLite:dbname=$dbfile","","" )
              || die "Cannot create handle: $DBI::errstr\n";
my $badtable = "count";
my $badcolumn = "select";
my $column = "select";
my $table = "count";
my $sth = undef;
my $sql = undef;

my $create_sql = "CREATE TABLE ".$dbh->quote_identifier($badtable).
  "( ".$dbh->quote_identifier($badcolumn)." int);";
my $insert_sql = "INSERT INTO ".$dbh->quote_identifier($badtable).
  "VALUES(3),(4),(15)";

diag "Population temporary SQLite DB at '$dbfile'";

$dbh->do($create_sql);
$dbh->do($insert_sql);




$sql = "SELECT max(".$dbh->quote($column).") FROM ".$dbh->quote($table);


$sth = $dbh->prepare($sql) or die $sth->errstr;
$sth->execute or die $sth->errstr;

while (my @result =  $sth->fetchrow_array()){
 is($result[0],15,'$dbh->quote does not work on column names');
}

my $error = 0;

try{
  $sql = "SELECT max($column) FROM $table";
  $sth = $dbh->prepare($sql) or die;
}catch{
 $error = 1;
};


is($error,0,"select without quoting works");
$sql = "SELECT max(".$dbh->quote_identifier($column).") FROM ".$dbh->quote_identifier($table);


$sth = $dbh->prepare($sql) or die $sth->errstr;
$sth->execute or die $sth->errstr;

while (my @result =  $sth->fetchrow_array()){
 is ($result[0],15,'$dbh->quote_identifier gets the correct max value');
}