← Back to branch summary

~ubuntu-branches/ubuntu/oneiric/postgresql-9.1/oneiric-security

« back to all changes in this revision

Viewing changes to src/pl/plperl/expected/plperl_trigger.out

  • Committer: Bazaar Package Importer
  • Author(s): Martin Pitt
  • Date: 2011-06-14 09:53:29 UTC
  • mto: (6.1.1 sid) (10.1.1 oneiric-proposed) (1.2.1)
  • mto: This revision was merged to the branch mainline in revision 5.
  • Revision ID: james.westby@ubuntu.com-20110614095329-71gfhjywyp2c27au
Tags: upstream-9.1~beta2
Import upstream version 9.1~beta2

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/pl/plperl/expected/plperl_trigger.out
255
255
 5 | third line(modified by trigger)(modified by trigger) | ("(5)")
256
256
(4 rows)
257
257
 
 
258
DROP TRIGGER "test_valid_id_trig" ON trigger_test;
 
259
CREATE OR REPLACE FUNCTION trigger_recurse() RETURNS trigger AS $$
 
260
        use strict;
 
261
 
 
262
        if ($_TD->{new}{i} == 10000)
 
263
        {
 
264
                spi_exec_query("insert into trigger_test (i, v) values (20000, 'child');");
 
265
 
 
266
                if ($_TD->{new}{i} != 10000)
 
267
                {
 
268
                        die "recursive trigger modified: ". $_TD->{new}{i};
 
269
                }
 
270
        }
 
271
    return;
 
272
$$ LANGUAGE plperl;
 
273
CREATE TRIGGER "test_trigger_recurse" BEFORE INSERT ON trigger_test
 
274
FOR EACH ROW EXECUTE PROCEDURE "trigger_recurse"();
 
275
INSERT INTO trigger_test (i, v) values (10000, 'top');
 
276
SELECT * FROM trigger_test;
 
277
   i   |                          v                           |   foo   
 
278
-------+------------------------------------------------------+---------
 
279
     1 | first line(modified by trigger)                      | ("(2)")
 
280
     2 | second line(modified by trigger)                     | ("(3)")
 
281
     4 | immortal                                             | ("(4)")
 
282
     5 | third line(modified by trigger)(modified by trigger) | ("(5)")
 
283
 20000 | child                                                | 
 
284
 10000 | top                                                  | 
 
285
(6 rows)
 
286
 
258
287
CREATE OR REPLACE FUNCTION immortal() RETURNS trigger AS $$
259
288
    if ($_TD->{old}{v} eq $_TD->{args}[0])
260
289
    {