text: CREATE TABLE xmltest (
      id int,
      data xml
  );
  
  INSERT INTO xmltest VALUES (1, '<value>one</value>');
  INSERT INTO xmltest VALUES (2, '<value>two</value>');
  INSERT INTO xmltest VALUES (3, '<wrong');
  
  SELECT * FROM xmltest;
  
  
  SELECT xmlcomment('test');
  SELECT xmlcomment('-test');
  SELECT xmlcomment('test-');
  SELECT xmlcomment('--test');
  SELECT xmlcomment('te st');
  
  
  SELECT xmlconcat(xmlcomment('hello'),
                   xmlelement(NAME qux, 'foo'),
                   xmlcomment('world'));
  
  SELECT xmlconcat('hello', 'you');
  SELECT xmlconcat(1, 2);
  SELECT xmlconcat('bad', '<syntax');
  SELECT xmlconcat('<foo/>', NULL, '<?xml version="1.1" standalone="no"?><bar/>');
  SELECT xmlconcat('<?xml version="1.1"?><foo/>', NULL, '<?xml version="1.1" standalone="no"?><bar/>');
  SELECT xmlconcat(NULL);
  SELECT xmlconcat(NULL, NULL);
  
  
  SELECT xmlelement(name element,
                    xmlattributes (1 as one, 'deuce' as two),
                    'content');
  
  SELECT xmlelement(name element,
                    xmlattributes ('unnamed and wrong'));
  
  SELECT xmlelement(name element, xmlelement(name nested, 'stuff'));
  
  SELECT xmlelement(name employee, xmlforest(name, age, salary as pay)) FROM emp;
  
  SELECT xmlelement(name duplicate, xmlattributes(1 as a, 2 as b, 3 as a));
  
  SELECT xmlelement(name num, 37);
  SELECT xmlelement(name foo, text 'bar');
  SELECT xmlelement(name foo, xml 'bar');
  SELECT xmlelement(name foo, text 'b<a/>r');
  SELECT xmlelement(name foo, xml 'b<a/>r');
  SELECT xmlelement(name foo, array[1, 2, 3]);
  SET xmlbinary TO base64;
  SELECT xmlelement(name foo, bytea 'bar');
  SET xmlbinary TO hex;
  SELECT xmlelement(name foo, bytea 'bar');
  
  SELECT xmlelement(name foo, xmlattributes(true as bar));
  SELECT xmlelement(name foo, xmlattributes('2009-04-09 00:24:37'::timestamp as bar));
  SELECT xmlelement(name foo, xmlattributes('infinity'::timestamp as bar));
  SELECT xmlelement(name foo, xmlattributes('<>&"''' as funny, xml 'b<a/>r' as funnier));
  
  
  SELECT xmlparse(content '');
  SELECT xmlparse(content '  ');
  SELECT xmlparse(content 'abc');
  SELECT xmlparse(content '<abc>x</abc>');
  SELECT xmlparse(content '<invalidentity>&</invalidentity>');
  SELECT xmlparse(content '<undefinedentity>&idontexist;</undefinedentity>');
  SELECT xmlparse(content '<invalidns xmlns=''&lt;''/>');
  SELECT xmlparse(content '<relativens xmlns=''relative''/>');
  SELECT xmlparse(content '<twoerrors>&idontexist;</unbalanced>');
  SELECT xmlparse(content '<nosuchprefix:tag/>');
  
  SELECT xmlparse(document '   ');
  SELECT xmlparse(document 'abc');
  SELECT xmlparse(document '<abc>x</abc>');
  SELECT xmlparse(document '<invalidentity>&</abc>');
  SELECT xmlparse(document '<undefinedentity>&idontexist;</abc>');
  SELECT xmlparse(document '<invalidns xmlns=''&lt;''/>');
  SELECT xmlparse(document '<relativens xmlns=''relative''/>');
  SELECT xmlparse(document '<twoerrors>&idontexist;</unbalanced>');
  SELECT xmlparse(document '<nosuchprefix:tag/>');
  
  
  SELECT xmlpi(name foo);
  SELECT xmlpi(name xml);
  SELECT xmlpi(name xmlstuff);
  SELECT xmlpi(name foo, 'bar');
  SELECT xmlpi(name foo, 'in?>valid');
  SELECT xmlpi(name foo, null);
  SELECT xmlpi(name xml, null);
  SELECT xmlpi(name xmlstuff, null);
  SELECT xmlpi(name "xml-stylesheet", 'href="mystyle.css" type="text/css"');
  SELECT xmlpi(name foo, '   bar');
  
  
  SELECT xmlroot(xml '<foo/>', version no value, standalone no value);
  SELECT xmlroot(xml '<foo/>', version '2.0');
  SELECT xmlroot(xml '<foo/>', version no value, standalone yes);
  SELECT xmlroot(xml '<?xml version="1.1"?><foo/>', version no value, standalone yes);
  SELECT xmlroot(xmlroot(xml '<foo/>', version '1.0'), version '1.1', standalone no);
  SELECT xmlroot('<?xml version="1.1" standalone="yes"?><foo/>', version no value, standalone no);
  SELECT xmlroot('<?xml version="1.1" standalone="yes"?><foo/>', version no value, standalone no value);
  SELECT xmlroot('<?xml version="1.1" standalone="yes"?><foo/>', version no value);
  
  
  SELECT xmlroot (
    xmlelement (
      name gazonk,
      xmlattributes (
        'val' AS name,
        1 + 1 AS num
      ),
      xmlelement (
        NAME qux,
        'foo'
      )
    ),
    version '1.0',
    standalone yes
  );
  
  
  SELECT xmlserialize(content data as character varying(20)) FROM xmltest;
  SELECT xmlserialize(content 'good' as char(10));
  SELECT xmlserialize(document 'bad' as text);
  
  
  SELECT xml '<foo>bar</foo>' IS DOCUMENT;
  SELECT xml '<foo>bar</foo><bar>foo</bar>' IS DOCUMENT;
  SELECT xml '<abc/>' IS NOT DOCUMENT;
  SELECT xml 'abc' IS NOT DOCUMENT;
  SELECT '<>' IS NOT DOCUMENT;
  
  
  SELECT xmlagg(data) FROM xmltest;
  SELECT xmlagg(data) FROM xmltest WHERE id > 10;
  SELECT xmlelement(name employees, xmlagg(xmlelement(name name, name))) FROM emp;
  
  
  -- Check mapping SQL identifier to XML name
  
  SELECT xmlpi(name ":::_xml_abc135.%-&_");
  SELECT xmlpi(name "123");
  
  
  PREPARE foo (xml) AS SELECT xmlconcat('<foo/>', $1);
  
  SET XML OPTION DOCUMENT;
  EXECUTE foo ('<bar/>');
  EXECUTE foo ('bad');
  SELECT xml '<!DOCTYPE a><a/><b/>';
  
  SET XML OPTION CONTENT;
  EXECUTE foo ('<bar/>');
  EXECUTE foo ('good');
  SELECT xml '<!-- in SQL:2006+ a doc is content too--> <?y z?> <!DOCTYPE a><a/>';
  SELECT xml '<?xml version="1.0"?> <!-- hi--> <!DOCTYPE a><a/>';
  SELECT xml '<!DOCTYPE a><a/>';
  SELECT xml '<!-- hi--> oops <!DOCTYPE a><a/>';
  SELECT xml '<!-- hi--> <oops/> <!DOCTYPE a><a/>';
  SELECT xml '<!DOCTYPE a><a/><b/>';
  
  
  -- Test backwards parsing
  
  CREATE VIEW xmlview1 AS SELECT xmlcomment('test');
  CREATE VIEW xmlview2 AS SELECT xmlconcat('hello', 'you');
  CREATE VIEW xmlview3 AS SELECT xmlelement(name element, xmlattributes (1 as ":one:", 'deuce' as two), 'content&');
  CREATE VIEW xmlview4 AS SELECT xmlelement(name employee, xmlforest(name, age, salary as pay)) FROM emp;
  CREATE VIEW xmlview5 AS SELECT xmlparse(content '<abc>x</abc>');
  CREATE VIEW xmlview6 AS SELECT xmlpi(name foo, 'bar');
  CREATE VIEW xmlview7 AS SELECT xmlroot(xml '<foo/>', version no value, standalone yes);
  CREATE VIEW xmlview8 AS SELECT xmlserialize(content 'good' as char(10));
  CREATE VIEW xmlview9 AS SELECT xmlserialize(content 'good' as text);
  
  SELECT table_name, view_definition FROM information_schema.views
    WHERE table_name LIKE 'xmlview%' ORDER BY 1;
  
  -- Text XPath expressions evaluation
  
  SELECT xpath('/value', data) FROM xmltest;
  SELECT xpath(NULL, NULL) IS NULL FROM xmltest;
  SELECT xpath('', '<!-- error -->');
  SELECT xpath('//text()', '<local:data xmlns:local="http://127.0.0.1"><local:piece id="1">number one</local:piece><local:piece id="2" /></local:data>');
  SELECT xpath('//loc:piece/@id', '<local:data xmlns:local="http://127.0.0.1"><local:piece id="1">number one</local:piece><local:piece id="2" /></local:data>', ARRAY[ARRAY['loc', 'http://127.0.0.1']]);
  SELECT xpath('//loc:piece', '<local:data xmlns:local="http://127.0.0.1"><local:piece id="1">number one</local:piece><local:piece id="2" /></local:data>', ARRAY[ARRAY['loc', 'http://127.0.0.1']]);
  SELECT xpath('//loc:piece', '<local:data xmlns:local="http://127.0.0.1" xmlns="http://127.0.0.2"><local:piece id="1"><internal>number one</internal><internal2/></local:piece><local:piece id="2" /></local:data>', ARRAY[ARRAY['loc', 'http://127.0.0.1']]);
  SELECT xpath('//b', '<a>one <b>two</b> three <b>etc</b></a>');
  SELECT xpath('//text()', '<root>&lt;</root>');
  SELECT xpath('//@value', '<root value="&lt;"/>');
  SELECT xpath('''<<invalid>>''', '<root/>');
  SELECT xpath('count(//*)', '<root><sub/><sub/></root>');
  SELECT xpath('count(//*)=0', '<root><sub/><sub/></root>');
  SELECT xpath('count(//*)=3', '<root><sub/><sub/></root>');
  SELECT xpath('name(/*)', '<root><sub/><sub/></root>');
  SELECT xpath('/nosuchtag', '<root/>');
  SELECT xpath('root', '<root/>');
  
  -- Round-trip non-ASCII data through xpath().
  DO $$
  DECLARE
    xml_declaration text := '<?xml version="1.0" encoding="ISO-8859-1"?>';
    degree_symbol text;
    res xml[];
  BEGIN
    -- Per the documentation, except when the server encoding is UTF8, xpath()
    -- may not work on non-ASCII data.  The untranslatable_character and
    -- undefined_function traps below, currently dead code, will become relevant
    -- if we remove this limitation.
    IF current_setting('server_encoding') <> 'UTF8' THEN
      RAISE LOG 'skip: encoding % unsupported for xpath',
        current_setting('server_encoding');
      RETURN;
    END IF;
  
    degree_symbol := convert_from('\xc2b0', 'UTF8');
    res := xpath('text()', (xml_declaration ||
      '<x>' || degree_symbol || '</x>')::xml);
    IF degree_symbol <> res[1]::text THEN
      RAISE 'expected % (%), got % (%)',
        degree_symbol, convert_to(degree_symbol, 'UTF8'),
        res[1], convert_to(res[1]::text, 'UTF8');
    END IF;
  EXCEPTION
    -- character with byte sequence 0xc2 0xb0 in encoding "UTF8" has no equivalent in encoding "LATIN8"
    WHEN untranslatable_character
    -- default conversion function for encoding "UTF8" to "MULE_INTERNAL" does not exist
    OR undefined_function
    -- unsupported XML feature
    OR feature_not_supported THEN
      RAISE LOG 'skip: %', SQLERRM;
  END
  $$;
  
  -- Test xmlexists and xpath_exists
  SELECT xmlexists('//town[text() = ''Toronto'']' PASSING BY REF '<towns><town>Bidford-on-Avon</town><town>Cwmbran</town><town>Bristol</town></towns>');
  SELECT xmlexists('//town[text() = ''Cwmbran'']' PASSING BY REF '<towns><town>Bidford-on-Avon</town><town>Cwmbran</town><town>Bristol</town></towns>');
  SELECT xmlexists('count(/nosuchtag)' PASSING BY REF '<root/>');
  SELECT xpath_exists('//town[text() = ''Toronto'']','<towns><town>Bidford-on-Avon</town><town>Cwmbran</town><town>Bristol</town></towns>'::xml);
  SELECT xpath_exists('//town[text() = ''Cwmbran'']','<towns><town>Bidford-on-Avon</town><town>Cwmbran</town><town>Bristol</town></towns>'::xml);
  SELECT xpath_exists('count(/nosuchtag)', '<root/>'::xml);
  
  INSERT INTO xmltest VALUES (4, '<menu><beers><name>Budvar</name><cost>free</cost><name>Carling</name><cost>lots</cost></beers></menu>'::xml);
  INSERT INTO xmltest VALUES (5, '<menu><beers><name>Molson</name><cost>free</cost><name>Carling</name><cost>lots</cost></beers></menu>'::xml);
  INSERT INTO xmltest VALUES (6, '<myns:menu xmlns:myns="http://myns.com"><myns:beers><myns:name>Budvar</myns:name><myns:cost>free</myns:cost><myns:name>Carling</myns:name><myns:cost>lots</myns:cost></myns:beers></myns:menu>'::xml);
  INSERT INTO xmltest VALUES (7, '<myns:menu xmlns:myns="http://myns.com"><myns:beers><myns:name>Molson</myns:name><myns:cost>free</myns:cost><myns:name>Carling</myns:name><myns:cost>lots</myns:cost></myns:beers></myns:menu>'::xml);
  
  SELECT COUNT(id) FROM xmltest WHERE xmlexists('/menu/beer' PASSING data);
  SELECT COUNT(id) FROM xmltest WHERE xmlexists('/menu/beer' PASSING BY REF data BY REF);
  SELECT COUNT(id) FROM xmltest WHERE xmlexists('/menu/beers' PASSING BY REF data);
  SELECT COUNT(id) FROM xmltest WHERE xmlexists('/menu/beers/name[text() = ''Molson'']' PASSING BY REF data);
  
  SELECT COUNT(id) FROM xmltest WHERE xpath_exists('/menu/beer',data);
  SELECT COUNT(id) FROM xmltest WHERE xpath_exists('/menu/beers',data);
  SELECT COUNT(id) FROM xmltest WHERE xpath_exists('/menu/beers/name[text() = ''Molson'']',data);
  SELECT COUNT(id) FROM xmltest WHERE xpath_exists('/myns:menu/myns:beer',data,ARRAY[ARRAY['myns','http://myns.com']]);
  SELECT COUNT(id) FROM xmltest WHERE xpath_exists('/myns:menu/myns:beers',data,ARRAY[ARRAY['myns','http://myns.com']]);
  SELECT COUNT(id) FROM xmltest WHERE xpath_exists('/myns:menu/myns:beers/myns:name[text() = ''Molson'']',data,ARRAY[ARRAY['myns','http://myns.com']]);
  
  CREATE TABLE query ( expr TEXT );
  INSERT INTO query VALUES ('/menu/beers/cost[text() = ''lots'']');
  SELECT COUNT(id) FROM xmltest, query WHERE xmlexists(expr PASSING BY REF data);
  
  -- Test xml_is_well_formed and variants
  
  SELECT xml_is_well_formed_document('<foo>bar</foo>');
  SELECT xml_is_well_formed_document('abc');
  SELECT xml_is_well_formed_content('<foo>bar</foo>');
  SELECT xml_is_well_formed_content('abc');
  
  SET xmloption TO DOCUMENT;
  SELECT xml_is_well_formed('abc');
  SELECT xml_is_well_formed('<>');
  SELECT xml_is_well_formed('<abc/>');
  SELECT xml_is_well_formed('<foo>bar</foo>');
  SELECT xml_is_well_formed('<foo>bar</foo');
  SELECT xml_is_well_formed('<foo><bar>baz</foo>');
  SELECT xml_is_well_formed('<local:data xmlns:local="http://127.0.0.1"><local:piece id="1">number one</local:piece><local:piece id="2" /></local:data>');
  SELECT xml_is_well_formed('<pg:foo xmlns:pg="http://postgresql.org/stuff">bar</my:foo>');
  SELECT xml_is_well_formed('<pg:foo xmlns:pg="http://postgresql.org/stuff">bar</pg:foo>');
  SELECT xml_is_well_formed('<invalidentity>&</abc>');
  SELECT xml_is_well_formed('<undefinedentity>&idontexist;</abc>');
  SELECT xml_is_well_formed('<invalidns xmlns=''&lt;''/>');
  SELECT xml_is_well_formed('<relativens xmlns=''relative''/>');
  SELECT xml_is_well_formed('<twoerrors>&idontexist;</unbalanced>');
  
  SET xmloption TO CONTENT;
  SELECT xml_is_well_formed('abc');
  
  -- Since xpath() deals with namespaces, it's a bit stricter about
  -- what's well-formed and what's not. If we don't obey these rules
  -- (i.e. ignore namespace-related errors from libxml), xpath()
  -- fails in subtle ways. The following would for example produce
  -- the xml value
  --   <invalidns xmlns='<'/>
  -- which is invalid because '<' may not appear un-escaped in
  -- attribute values.
  -- Since different libxml versions emit slightly different
  -- error messages, we suppress the DETAIL in this test.
  \set VERBOSITY terse
  SELECT xpath('/*', '<invalidns xmlns=''&lt;''/>');
  \set VERBOSITY default
  
  -- Again, the XML isn't well-formed for namespace purposes
  SELECT xpath('/*', '<nosuchprefix:tag/>');
  
  -- XPath deprecates relative namespaces, but they're not supposed to
  -- throw an error, only a warning.
  SELECT xpath('/*', '<relativens xmlns=''relative''/>');
  
  -- External entity references should not leak filesystem information.
  SELECT XMLPARSE(DOCUMENT '<!DOCTYPE foo [<!ENTITY c SYSTEM "/etc/passwd">]><foo>&c;</foo>');
  SELECT XMLPARSE(DOCUMENT '<!DOCTYPE foo [<!ENTITY c SYSTEM "/etc/no.such.file">]><foo>&c;</foo>');
  -- This might or might not load the requested DTD, but it mustn't throw error.
  SELECT XMLPARSE(DOCUMENT '<!DOCTYPE chapter PUBLIC "-//OASIS//DTD DocBook XML V4.1.2//EN" "http://www.oasis-open.org/docbook/xml/4.1.2/docbookx.dtd"><chapter>&nbsp;</chapter>');
  
  -- XMLPATH tests
  CREATE TABLE xmldata(data xml);
  INSERT INTO xmldata VALUES('<ROWS>
  <ROW id="1">
    <COUNTRY_ID>AU</COUNTRY_ID>
    <COUNTRY_NAME>Australia</COUNTRY_NAME>
    <REGION_ID>3</REGION_ID>
  </ROW>
  <ROW id="2">
    <COUNTRY_ID>CN</COUNTRY_ID>
    <COUNTRY_NAME>China</COUNTRY_NAME>
    <REGION_ID>3</REGION_ID>
  </ROW>
  <ROW id="3">
    <COUNTRY_ID>IN</COUNTRY_ID>
    <COUNTRY_NAME>India</COUNTRY_NAME>
    <REGION_ID>3</REGION_ID>
  </ROW>
  <ROW id="4">
    <COUNTRY_ID>JP</COUNTRY_ID>
    <COUNTRY_NAME>Japan</COUNTRY_NAME>
    <REGION_ID>3</REGION_ID><PREMIER_NAME>Sinzo Abe</PREMIER_NAME>
  </ROW>
  <ROW id="5">
    <COUNTRY_ID>SG</COUNTRY_ID>
    <COUNTRY_NAME>Singapore</COUNTRY_NAME>
    <REGION_ID>3</REGION_ID><SIZE unit="km">791</SIZE>
  </ROW>
  </ROWS>');
  
  -- XMLTABLE with columns
  SELECT  xmltable.*
     FROM (SELECT data FROM xmldata) x,
          LATERAL XMLTABLE('/ROWS/ROW'
                           PASSING data
                           COLUMNS id int PATH '@id',
                                    _id FOR ORDINALITY,
                                    country_name text PATH 'COUNTRY_NAME/text()' NOT NULL,
                                    country_id text PATH 'COUNTRY_ID',
                                    region_id int PATH 'REGION_ID',
                                    size float PATH 'SIZE',
                                    unit text PATH 'SIZE/@unit',
                                    premier_name text PATH 'PREMIER_NAME' DEFAULT 'not specified');
  
  CREATE VIEW xmltableview1 AS SELECT  xmltable.*
     FROM (SELECT data FROM xmldata) x,
          LATERAL XMLTABLE('/ROWS/ROW'
                           PASSING data
                           COLUMNS id int PATH '@id',
                                    _id FOR ORDINALITY,
                                    country_name text PATH 'COUNTRY_NAME/text()' NOT NULL,
                                    country_id text PATH 'COUNTRY_ID',
                                    region_id int PATH 'REGION_ID',
                                    size float PATH 'SIZE',
                                    unit text PATH 'SIZE/@unit',
                                    premier_name text PATH 'PREMIER_NAME' DEFAULT 'not specified');
  
  SELECT * FROM xmltableview1;
  
  \sv xmltableview1
  
  EXPLAIN (COSTS OFF) SELECT * FROM xmltableview1;
  EXPLAIN (COSTS OFF, VERBOSE) SELECT * FROM xmltableview1;
  
  -- XMLNAMESPACES tests
  SELECT * FROM XMLTABLE(XMLNAMESPACES('http://x.y' AS zz),
                        '/zz:rows/zz:row'
                        PASSING '<rows xmlns="http://x.y"><row><a>10</a></row></rows>'
                        COLUMNS a int PATH 'zz:a');
  
  CREATE VIEW xmltableview2 AS SELECT * FROM XMLTABLE(XMLNAMESPACES('http://x.y' AS zz),
                        '/zz:rows/zz:row'
                        PASSING '<rows xmlns="http://x.y"><row><a>10</a></row></rows>'
                        COLUMNS a int PATH 'zz:a');
  
  SELECT * FROM xmltableview2;
  
  SELECT * FROM XMLTABLE(XMLNAMESPACES(DEFAULT 'http://x.y'),
                        '/rows/row'
                        PASSING '<rows xmlns="http://x.y"><row><a>10</a></row></rows>'
                        COLUMNS a int PATH 'a');
  
  SELECT * FROM XMLTABLE('.'
                         PASSING '<foo/>'
                         COLUMNS a text PATH 'foo/namespace::node()');
  
  -- used in prepare statements
  PREPARE pp AS
  SELECT  xmltable.*
     FROM (SELECT data FROM xmldata) x,
          LATERAL XMLTABLE('/ROWS/ROW'
                           PASSING data
                           COLUMNS id int PATH '@id',
                                    _id FOR ORDINALITY,
                                    country_name text PATH 'COUNTRY_NAME' NOT NULL,
                                    country_id text PATH 'COUNTRY_ID',
                                    region_id int PATH 'REGION_ID',
                                    size float PATH 'SIZE',
                                    unit text PATH 'SIZE/@unit',
                                    premier_name text PATH 'PREMIER_NAME' DEFAULT 'not specified');
  
  EXECUTE pp;
  
  SELECT xmltable.* FROM xmldata, LATERAL xmltable('/ROWS/ROW[COUNTRY_NAME="Japan" or COUNTRY_NAME="India"]' PASSING data COLUMNS "COUNTRY_NAME" text, "REGION_ID" int);
  SELECT xmltable.* FROM xmldata, LATERAL xmltable('/ROWS/ROW[COUNTRY_NAME="Japan" or COUNTRY_NAME="India"]' PASSING data COLUMNS id FOR ORDINALITY, "COUNTRY_NAME" text, "REGION_ID" int);
  SELECT xmltable.* FROM xmldata, LATERAL xmltable('/ROWS/ROW[COUNTRY_NAME="Japan" or COUNTRY_NAME="India"]' PASSING data COLUMNS id int PATH '@id', "COUNTRY_NAME" text, "REGION_ID" int);
  SELECT xmltable.* FROM xmldata, LATERAL xmltable('/ROWS/ROW[COUNTRY_NAME="Japan" or COUNTRY_NAME="India"]' PASSING data COLUMNS id int PATH '@id');
  SELECT xmltable.* FROM xmldata, LATERAL xmltable('/ROWS/ROW[COUNTRY_NAME="Japan" or COUNTRY_NAME="India"]' PASSING data COLUMNS id FOR ORDINALITY);
  SELECT xmltable.* FROM xmldata, LATERAL xmltable('/ROWS/ROW[COUNTRY_NAME="Japan" or COUNTRY_NAME="India"]' PASSING data COLUMNS id int PATH '@id', "COUNTRY_NAME" text, "REGION_ID" int, rawdata xml PATH '.');
  SELECT xmltable.* FROM xmldata, LATERAL xmltable('/ROWS/ROW[COUNTRY_NAME="Japan" or COUNTRY_NAME="India"]' PASSING data COLUMNS id int PATH '@id', "COUNTRY_NAME" text, "REGION_ID" int, rawdata xml PATH './*');
  
  SELECT * FROM xmltable('/root' passing '<root><element>a1a<!-- aaaa -->a2a<?aaaaa?> <!--z-->  bbbb<x>xxx</x>cccc</element></root>' COLUMNS element text);
  SELECT * FROM xmltable('/root' passing '<root><element>a1a<!-- aaaa -->a2a<?aaaaa?> <!--z-->  bbbb<x>xxx</x>cccc</element></root>' COLUMNS element text PATH 'element/text()'); -- should fail
  
  -- CDATA test
  select * from xmltable('d/r' passing '<d><r><c><![CDATA[<hello> &"<>!<a>foo</a>]]></c></r><r><c>2</c></r></d>' columns c text);
  
  -- XML builtin entities
  SELECT * FROM xmltable('/x/a' PASSING '<x><a><ent>&apos;</ent></a><a><ent>&quot;</ent></a><a><ent>&amp;</ent></a><a><ent>&lt;</ent></a><a><ent>&gt;</ent></a></x>' COLUMNS ent text);
  SELECT * FROM xmltable('/x/a' PASSING '<x><a><ent>&apos;</ent></a><a><ent>&quot;</ent></a><a><ent>&amp;</ent></a><a><ent>&lt;</ent></a><a><ent>&gt;</ent></a></x>' COLUMNS ent xml);
  
  EXPLAIN (VERBOSE, COSTS OFF)
  SELECT  xmltable.*
     FROM (SELECT data FROM xmldata) x,
          LATERAL XMLTABLE('/ROWS/ROW'
                           PASSING data
                           COLUMNS id int PATH '@id',
                                    _id FOR ORDINALITY,
                                    country_name text PATH 'COUNTRY_NAME' NOT NULL,
                                    country_id text PATH 'COUNTRY_ID',
                                    region_id int PATH 'REGION_ID',
                                    size float PATH 'SIZE',
                                    unit text PATH 'SIZE/@unit',
                                    premier_name text PATH 'PREMIER_NAME' DEFAULT 'not specified');
  
  -- test qual
  SELECT xmltable.* FROM xmldata, LATERAL xmltable('/ROWS/ROW[COUNTRY_NAME="Japan" or COUNTRY_NAME="India"]' PASSING data COLUMNS "COUNTRY_NAME" text, "REGION_ID" int) WHERE "COUNTRY_NAME" = 'Japan';
  
  EXPLAIN (VERBOSE, COSTS OFF)
  SELECT xmltable.* FROM xmldata, LATERAL xmltable('/ROWS/ROW[COUNTRY_NAME="Japan" or COUNTRY_NAME="India"]' PASSING data COLUMNS "COUNTRY_NAME" text, "REGION_ID" int) WHERE "COUNTRY_NAME" = 'Japan';
  
  -- should to work with more data
  INSERT INTO xmldata VALUES('<ROWS>
  <ROW id="10">
    <COUNTRY_ID>CZ</COUNTRY_ID>
    <COUNTRY_NAME>Czech Republic</COUNTRY_NAME>
    <REGION_ID>2</REGION_ID><PREMIER_NAME>Milos Zeman</PREMIER_NAME>
  </ROW>
  <ROW id="11">
    <COUNTRY_ID>DE</COUNTRY_ID>
    <COUNTRY_NAME>Germany</COUNTRY_NAME>
    <REGION_ID>2</REGION_ID>
  </ROW>
  <ROW id="12">
    <COUNTRY_ID>FR</COUNTRY_ID>
    <COUNTRY_NAME>France</COUNTRY_NAME>
    <REGION_ID>2</REGION_ID>
  </ROW>
  </ROWS>');
  
  INSERT INTO xmldata VALUES('<ROWS>
  <ROW id="20">
    <COUNTRY_ID>EG</COUNTRY_ID>
    <COUNTRY_NAME>Egypt</COUNTRY_NAME>
    <REGION_ID>1</REGION_ID>
  </ROW>
  <ROW id="21">
    <COUNTRY_ID>SD</COUNTRY_ID>
    <COUNTRY_NAME>Sudan</COUNTRY_NAME>
    <REGION_ID>1</REGION_ID>
  </ROW>
  </ROWS>');
  
  SELECT  xmltable.*
     FROM (SELECT data FROM xmldata) x,
          LATERAL XMLTABLE('/ROWS/ROW'
                           PASSING data
                           COLUMNS id int PATH '@id',
                                    _id FOR ORDINALITY,
                                    country_name text PATH 'COUNTRY_NAME' NOT NULL,
                                    country_id text PATH 'COUNTRY_ID',
                                    region_id int PATH 'REGION_ID',
                                    size float PATH 'SIZE',
                                    unit text PATH 'SIZE/@unit',
                                    premier_name text PATH 'PREMIER_NAME' DEFAULT 'not specified');
  
  SELECT  xmltable.*
     FROM (SELECT data FROM xmldata) x,
          LATERAL XMLTABLE('/ROWS/ROW'
                           PASSING data
                           COLUMNS id int PATH '@id',
                                    _id FOR ORDINALITY,
                                    country_name text PATH 'COUNTRY_NAME' NOT NULL,
                                    country_id text PATH 'COUNTRY_ID',
                                    region_id int PATH 'REGION_ID',
                                    size float PATH 'SIZE',
                                    unit text PATH 'SIZE/@unit',
                                    premier_name text PATH 'PREMIER_NAME' DEFAULT 'not specified')
    WHERE region_id = 2;
  
  EXPLAIN (VERBOSE, COSTS OFF)
  SELECT  xmltable.*
     FROM (SELECT data FROM xmldata) x,
          LATERAL XMLTABLE('/ROWS/ROW'
                           PASSING data
                           COLUMNS id int PATH '@id',
                                    _id FOR ORDINALITY,
                                    country_name text PATH 'COUNTRY_NAME' NOT NULL,
                                    country_id text PATH 'COUNTRY_ID',
                                    region_id int PATH 'REGION_ID',
                                    size float PATH 'SIZE',
                                    unit text PATH 'SIZE/@unit',
                                    premier_name text PATH 'PREMIER_NAME' DEFAULT 'not specified')
    WHERE region_id = 2;
  
  -- should fail, NULL value
  SELECT  xmltable.*
     FROM (SELECT data FROM xmldata) x,
          LATERAL XMLTABLE('/ROWS/ROW'
                           PASSING data
                           COLUMNS id int PATH '@id',
                                    _id FOR ORDINALITY,
                                    country_name text PATH 'COUNTRY_NAME' NOT NULL,
                                    country_id text PATH 'COUNTRY_ID',
                                    region_id int PATH 'REGION_ID',
                                    size float PATH 'SIZE' NOT NULL,
                                    unit text PATH 'SIZE/@unit',
                                    premier_name text PATH 'PREMIER_NAME' DEFAULT 'not specified');
  
  -- if all is ok, then result is empty
  -- one line xml test
  WITH
     x AS (SELECT proname, proowner, procost::numeric, pronargs,
                  array_to_string(proargnames,',') as proargnames,
                  case when proargtypes <> '' then array_to_string(proargtypes::oid[],',') end as proargtypes
             FROM pg_proc WHERE proname = 'f_leak'),
     y AS (SELECT xmlelement(name proc,
                             xmlforest(proname, proowner,
                                       procost, pronargs,
                                       proargnames, proargtypes)) as proc
             FROM x),
     z AS (SELECT xmltable.*
             FROM y,
                  LATERAL xmltable('/proc' PASSING proc
                                   COLUMNS proname name,
                                           proowner oid,
                                           procost float,
                                           pronargs int,
                                           proargnames text,
                                           proargtypes text))
     SELECT * FROM z
     EXCEPT SELECT * FROM x;
  
  -- multi line xml test, result should be empty too
  WITH
     x AS (SELECT proname, proowner, procost::numeric, pronargs,
                  array_to_string(proargnames,',') as proargnames,
                  case when proargtypes <> '' then array_to_string(proargtypes::oid[],',') end as proargtypes
             FROM pg_proc),
     y AS (SELECT xmlelement(name data,
                             xmlagg(xmlelement(name proc,
                                               xmlforest(proname, proowner, procost,
                                                         pronargs, proargnames, proargtypes)))) as doc
             FROM x),
     z AS (SELECT xmltable.*
             FROM y,
                  LATERAL xmltable('/data/proc' PASSING doc
                                   COLUMNS proname name,
                                           proowner oid,
                                           procost float,
                                           pronargs int,
                                           proargnames text,
                                           proargtypes text))
     SELECT * FROM z
     EXCEPT SELECT * FROM x;
  
  CREATE TABLE xmltest2(x xml, _path text);
  
  INSERT INTO xmltest2 VALUES('<d><r><ac>1</ac></r></d>', 'A');
  INSERT INTO xmltest2 VALUES('<d><r><bc>2</bc></r></d>', 'B');
  INSERT INTO xmltest2 VALUES('<d><r><cc>3</cc></r></d>', 'C');
  INSERT INTO xmltest2 VALUES('<d><r><dc>2</dc></r></d>', 'D');
  
  SELECT xmltable.* FROM xmltest2, LATERAL xmltable('/d/r' PASSING x COLUMNS a int PATH '' || lower(_path) || 'c');
  SELECT xmltable.* FROM xmltest2, LATERAL xmltable(('/d/r/' || lower(_path) || 'c') PASSING x COLUMNS a int PATH '.');
  SELECT xmltable.* FROM xmltest2, LATERAL xmltable(('/d/r/' || lower(_path) || 'c') PASSING x COLUMNS a int PATH 'x' DEFAULT ascii(_path) - 54);
  