src/pl/plperl/sql/plperlu.sql

   1 -- Use ONLY plperlu tests here. For plperl/plerlu combined tests
   2 -- see plperl_plperlu.sql
   3
   4 -- This test tests setting on_plperlu_init after loading plperl
   5 LOAD 'plperl';
   6
   7 -- Test plperl.on_plperlu_init gets run
   8 SET plperl.on_plperlu_init = '$_SHARED{init} = 42';
   9 DO $$ warn $_SHARED{init} $$ language plperlu;
  10
  11 --
  12 -- Test compilation of unicode regex - regardless of locale.
  13 -- This code fails in plain plperl in a non-UTF8 database.
  14 --
  15 CREATE OR REPLACE FUNCTION perl_unicode_regex(text) RETURNS INTEGER AS $$
  16   return ($_[0] =~ /\x{263A}|happy/i) ? 1 : 0; # unicode smiley
  17 $$ LANGUAGE plperlu;