use v5.36; use Test::More; plan skip_all => $@ if !eval { require FU::PG; } && $@ =~ /Unable to load libpq/; die $@ if $@; plan skip_all => 'Please set FU_TEST_DB to a PostgreSQL connection string to run these tests' if !$ENV{FU_TEST_DB}; my $conn = FU::PG->connect($ENV{FU_TEST_DB}); ok !eval { $conn->q('SELECT $1::aclitem', '')->exec; 1 }; like $@, qr/Unable to use type/; { my $txn = $conn->txn; $txn->exec("CREATE TYPE fupg_test_enum AS ENUM('a', 'b', 'ccccccccccccccccccc')"); is $txn->q("SELECT 'a'::fupg_test_enum")->val, 'a'; is $txn->q('SELECT $1::fupg_test_enum', 'ccccccccccccccccccc')->val, 'ccccccccccccccccccc'; } done_testing;