summaryrefslogtreecommitdiffstats
path: root/src/pl/tcl/expected/pltcl_unicode.out
blob: eea7d70664f47fb854ece84e33e07753ce362d7b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
--
-- Unicode handling
--
-- Note: this test case is known to fail if the database encoding is
-- EUC_CN, EUC_JP, EUC_KR, or EUC_TW, for lack of any equivalent to
-- U+00A0 (no-break space) in those encodings.  However, testing with
-- plain ASCII data would be rather useless, so we must live with that.
--
SET client_encoding TO UTF8;
CREATE TABLE unicode_test (
    testvalue  text NOT NULL
);
CREATE FUNCTION unicode_return() RETURNS text AS $$
  return "\xA0"
$$ LANGUAGE pltcl;
CREATE FUNCTION unicode_trigger() RETURNS trigger AS $$
  set NEW(testvalue) "\xA0"
  return [array get NEW]
$$ LANGUAGE pltcl;
CREATE TRIGGER unicode_test_bi BEFORE INSERT ON unicode_test
  FOR EACH ROW EXECUTE PROCEDURE unicode_trigger();
CREATE FUNCTION unicode_plan1() RETURNS text AS $$
  set plan [ spi_prepare {SELECT $1 AS testvalue} [ list "text" ] ]
  spi_execp $plan [ list "\xA0" ]
  return $testvalue
$$ LANGUAGE pltcl;
SELECT unicode_return();
 unicode_return 
----------------
  
(1 row)

INSERT INTO unicode_test (testvalue) VALUES ('test');
SELECT * FROM unicode_test;
 testvalue 
-----------
  
(1 row)

SELECT unicode_plan1();
 unicode_plan1 
---------------
  
(1 row)