globegit-postgresql-plruby 0.5.4

data/test/plt/b.rb

@@ -0,0 +1,34 @@
+#!/usr/bin/ruby
+require 'rbconfig'
+include Config
+pwd = Dir.pwd
+pwd.sub!(%r{[^/]+/[^/]+$}, "")
+
+language, extension = 'C', '_new_trigger'
+opaque = 'language_handler'
+
+version = ARGV[0].to_i
+suffix = ARGV[1].to_s
+
+begin
+   f = File.new("test_setup.sql", "w")
+   IO.foreach("test_setup.sql.in") do |x| 
+      x.gsub!(/language\s+'plruby'/i, "language 'plruby#{suffix}'")
+      f.print x
+   end
+   f.close
+   f = File.new("test_mklang.sql", "w")
+   f.print <<EOF
+ 
+   create function plruby#{suffix}_call_handler() returns #{opaque}
+    as '#{pwd}src/plruby#{suffix}.#{CONFIG["DLEXT"]}'
+   language '#{language}';
+ 
+   create trusted procedural language 'plruby#{suffix}'
+        handler plruby#{suffix}_call_handler
+        lancompiler 'PL/Ruby';
+EOF
+   f.close
+rescue
+   raise "Why I can't write #$!"
+end

data/test/plt/runtest

@@ -0,0 +1,29 @@
+#!/bin/sh
+
+DBNAME=plruby_test
+export DBNAME
+
+sleep 1
+echo "**** Destroy old database $DBNAME ****"
+dropdb $DBNAME
+
+echo "**** Create test database $DBNAME ****"
+createdb $DBNAME
+
+echo "**** Create procedural language plruby$2 ****"
+"${RUBY-ruby}" b.rb $*
+psql -q -n -X $DBNAME < test_mklang.sql
+
+echo "**** Create tables, functions and triggers ****"
+psql -q -n -X $DBNAME < test_setup.sql
+
+echo "**** Running test queries ****"
+psql -q -n -X -e $DBNAME < test_queries.sql > test.out 2>&1
+
+if cmp -s test.expected.$1 test.out; then
+    echo "    Tests passed O.K."
+else
+    echo "    Tests failed - look at diffs between"
+    echo "    test.expected.$1 and test.out"
+fi
+

data/test/plt/test.expected.73

@@ -0,0 +1,178 @@
+insert into T_pkey1 values (1, 'key1-1', 'test key');
+insert into T_pkey1 values (1, 'key1-2', 'test key');
+insert into T_pkey1 values (1, 'key1-3', 'test key');
+insert into T_pkey1 values (2, 'key2-1', 'test key');
+insert into T_pkey1 values (2, 'key2-2', 'test key');
+insert into T_pkey1 values (2, 'key2-3', 'test key');
+insert into T_pkey2 values (1, 'key1-1', 'test key');
+insert into T_pkey2 values (1, 'key1-2', 'test key');
+insert into T_pkey2 values (1, 'key1-3', 'test key');
+insert into T_pkey2 values (2, 'key2-1', 'test key');
+insert into T_pkey2 values (2, 'key2-2', 'test key');
+insert into T_pkey2 values (2, 'key2-3', 'test key');
+select * from T_pkey1;
+ key1 |  key2  |   txt    
+------+--------+----------
+    1 | key1-1 | test key
+    1 | key1-2 | test key
+    1 | key1-3 | test key
+    2 | key2-1 | test key
+    2 | key2-2 | test key
+    2 | key2-3 | test key
+(6 rows)
+
+select * from T_pkey2;
+ key1 |  key2  |   txt    
+------+--------+----------
+    1 | KEY1-1 | test key
+    1 | KEY1-2 | test key
+    1 | KEY1-3 | test key
+    2 | KEY2-1 | test key
+    2 | KEY2-2 | test key
+    2 | KEY2-3 | test key
+(6 rows)
+
+insert into T_pkey1 values (1, 'KEY1-3', 'should work');
+insert into T_pkey2 values (1, 'KEY1-3', 'should fail');
+ERROR:  duplicate key '1', 'KEY1-3' for T_pkey2
+insert into T_dta1 values ('trec 1', 1, 'key1-1');
+insert into T_dta1 values ('trec 2', 1, 'key1-2');
+insert into T_dta1 values ('trec 3', 1, 'key1-3');
+insert into T_dta1 values ('trec 4', 1, 'key1-4');
+ERROR:  key for t_dta1 not in t_pkey1
+insert into T_dta2 values ('trec 1', 1, 'KEY1-1');
+insert into T_dta2 values ('trec 2', 1, 'KEY1-2');
+insert into T_dta2 values ('trec 3', 1, 'KEY1-3');
+insert into T_dta2 values ('trec 4', 1, 'KEY1-4');
+ERROR:  key for t_dta2 not in t_pkey2
+select * from T_dta1;
+  tkey  | ref1 |  ref2  
+--------+------+--------
+ trec 1 |    1 | key1-1
+ trec 2 |    1 | key1-2
+ trec 3 |    1 | key1-3
+(3 rows)
+
+select * from T_dta2;
+  tkey  | ref1 |  ref2  
+--------+------+--------
+ trec 1 |    1 | KEY1-1
+ trec 2 |    1 | KEY1-2
+ trec 3 |    1 | KEY1-3
+(3 rows)
+
+update T_pkey1 set key2 = 'key2-9' where key1 = 2 and key2 = 'key2-1';
+update T_pkey1 set key2 = 'key1-9' where key1 = 1 and key2 = 'key1-1';
+ERROR:  key '1', 'key1-1' referenced by T_dta1
+delete from T_pkey1 where key1 = 2 and key2 = 'key2-2';
+delete from T_pkey1 where key1 = 1 and key2 = 'key1-2';
+ERROR:  key '1', 'key1-2' referenced by T_dta1
+update T_pkey2 set key2 = 'KEY2-9' where key1 = 2 and key2 = 'KEY2-1';
+update T_pkey2 set key2 = 'KEY1-9' where key1 = 1 and key2 = 'KEY1-1';
+NOTICE:  updated 1 entries in T_dta2 for new key in T_pkey2
+delete from T_pkey2 where key1 = 2 and key2 = 'KEY2-2';
+delete from T_pkey2 where key1 = 1 and key2 = 'KEY1-2';
+NOTICE:  deleted 1 entries from T_dta2
+select * from T_pkey1;
+ key1 |  key2  |     txt     
+------+--------+-------------
+    1 | key1-1 | test key
+    1 | key1-2 | test key
+    1 | key1-3 | test key
+    2 | key2-3 | test key
+    1 | KEY1-3 | should work
+    2 | key2-9 | test key
+(6 rows)
+
+select * from T_pkey2;
+ key1 |  key2  |   txt    
+------+--------+----------
+    1 | KEY1-3 | test key
+    2 | KEY2-3 | test key
+    2 | KEY2-9 | test key
+    1 | KEY1-9 | test key
+(4 rows)
+
+select * from T_dta1;
+  tkey  | ref1 |  ref2  
+--------+------+--------
+ trec 1 |    1 | key1-1
+ trec 2 |    1 | key1-2
+ trec 3 |    1 | key1-3
+(3 rows)
+
+select * from T_dta2;
+  tkey  | ref1 |  ref2  
+--------+------+--------
+ trec 3 |    1 | KEY1-3
+ trec 1 |    1 | KEY1-9
+(2 rows)
+
+select ruby_avg(key1) from T_pkey1;
+ ruby_avg 
+----------
+        1
+(1 row)
+
+select ruby_sum(key1) from T_pkey1;
+ ruby_sum 
+----------
+        8
+(1 row)
+
+select ruby_avg(key1) from T_pkey2;
+ ruby_avg 
+----------
+        1
+(1 row)
+
+select ruby_sum(key1) from T_pkey2;
+ ruby_sum 
+----------
+        6
+(1 row)
+
+select ruby_avg(key1) from T_pkey1 where key1 = 99;
+ ruby_avg 
+----------
+         
+(1 row)
+
+select ruby_sum(key1) from T_pkey1 where key1 = 99;
+ ruby_sum 
+----------
+        0
+(1 row)
+
+select 1 @< 2;
+ ?column? 
+----------
+ t
+(1 row)
+
+select 100 @< 4;
+ ?column? 
+----------
+ f
+(1 row)
+
+select * from T_pkey1 order by key1 using @<;
+ key1 |  key2  |     txt     
+------+--------+-------------
+    1 | key1-1 | test key
+    1 | key1-2 | test key
+    1 | key1-3 | test key
+    1 | KEY1-3 | should work
+    2 | key2-3 | test key
+    2 | key2-9 | test key
+(6 rows)
+
+select * from T_pkey2 order by key1 using @<;
+ key1 |  key2  |   txt    
+------+--------+----------
+    1 | KEY1-3 | test key
+    1 | KEY1-9 | test key
+    2 | KEY2-3 | test key
+    2 | KEY2-9 | test key
+(4 rows)
+

data/test/plt/test.expected.74

@@ -0,0 +1,178 @@
+insert into T_pkey1 values (1, 'key1-1', 'test key');
+insert into T_pkey1 values (1, 'key1-2', 'test key');
+insert into T_pkey1 values (1, 'key1-3', 'test key');
+insert into T_pkey1 values (2, 'key2-1', 'test key');
+insert into T_pkey1 values (2, 'key2-2', 'test key');
+insert into T_pkey1 values (2, 'key2-3', 'test key');
+insert into T_pkey2 values (1, 'key1-1', 'test key');
+insert into T_pkey2 values (1, 'key1-2', 'test key');
+insert into T_pkey2 values (1, 'key1-3', 'test key');
+insert into T_pkey2 values (2, 'key2-1', 'test key');
+insert into T_pkey2 values (2, 'key2-2', 'test key');
+insert into T_pkey2 values (2, 'key2-3', 'test key');
+select * from T_pkey1;
+ key1 |  key2  |   txt    
+------+--------+----------
+    1 | key1-1 | test key
+    1 | key1-2 | test key
+    1 | key1-3 | test key
+    2 | key2-1 | test key
+    2 | key2-2 | test key
+    2 | key2-3 | test key
+(6 rows)
+
+select * from T_pkey2;
+ key1 |  key2  |   txt    
+------+--------+----------
+    1 | KEY1-1 | test key
+    1 | KEY1-2 | test key
+    1 | KEY1-3 | test key
+    2 | KEY2-1 | test key
+    2 | KEY2-2 | test key
+    2 | KEY2-3 | test key
+(6 rows)
+
+insert into T_pkey1 values (1, 'KEY1-3', 'should work');
+insert into T_pkey2 values (1, 'KEY1-3', 'should fail');
+ERROR:  duplicate key '1', 'KEY1-3' for T_pkey2
+insert into T_dta1 values ('trec 1', 1, 'key1-1');
+insert into T_dta1 values ('trec 2', 1, 'key1-2');
+insert into T_dta1 values ('trec 3', 1, 'key1-3');
+insert into T_dta1 values ('trec 4', 1, 'key1-4');
+ERROR:  key for t_dta1 not in t_pkey1
+insert into T_dta2 values ('trec 1', 1, 'KEY1-1');
+insert into T_dta2 values ('trec 2', 1, 'KEY1-2');
+insert into T_dta2 values ('trec 3', 1, 'KEY1-3');
+insert into T_dta2 values ('trec 4', 1, 'KEY1-4');
+ERROR:  key for t_dta2 not in t_pkey2
+select * from T_dta1;
+  tkey  | ref1 |  ref2  
+--------+------+--------
+ trec 1 |    1 | key1-1
+ trec 2 |    1 | key1-2
+ trec 3 |    1 | key1-3
+(3 rows)
+
+select * from T_dta2;
+  tkey  | ref1 |  ref2  
+--------+------+--------
+ trec 1 |    1 | KEY1-1
+ trec 2 |    1 | KEY1-2
+ trec 3 |    1 | KEY1-3
+(3 rows)
+
+update T_pkey1 set key2 = 'key2-9' where key1 = 2 and key2 = 'key2-1';
+update T_pkey1 set key2 = 'key1-9' where key1 = 1 and key2 = 'key1-1';
+ERROR:  key '1', 'key1-1' referenced by T_dta1
+delete from T_pkey1 where key1 = 2 and key2 = 'key2-2';
+delete from T_pkey1 where key1 = 1 and key2 = 'key1-2';
+ERROR:  key '1', 'key1-2' referenced by T_dta1
+update T_pkey2 set key2 = 'KEY2-9' where key1 = 2 and key2 = 'KEY2-1';
+update T_pkey2 set key2 = 'KEY1-9' where key1 = 1 and key2 = 'KEY1-1';
+NOTICE:  updated 1 entries in T_dta2 for new key in T_pkey2
+delete from T_pkey2 where key1 = 2 and key2 = 'KEY2-2';
+delete from T_pkey2 where key1 = 1 and key2 = 'KEY1-2';
+NOTICE:  deleted 1 entries from T_dta2
+select * from T_pkey1;
+ key1 |  key2  |     txt     
+------+--------+-------------
+    1 | key1-1 | test key
+    1 | key1-2 | test key
+    1 | key1-3 | test key
+    2 | key2-3 | test key
+    1 | KEY1-3 | should work
+    2 | key2-9 | test key
+(6 rows)
+
+select * from T_pkey2;
+ key1 |  key2  |   txt    
+------+--------+----------
+    1 | KEY1-3 | test key
+    2 | KEY2-3 | test key
+    2 | KEY2-9 | test key
+    1 | KEY1-9 | test key
+(4 rows)
+
+select * from T_dta1;
+  tkey  | ref1 |  ref2  
+--------+------+--------
+ trec 1 |    1 | key1-1
+ trec 2 |    1 | key1-2
+ trec 3 |    1 | key1-3
+(3 rows)
+
+select * from T_dta2;
+  tkey  | ref1 |  ref2  
+--------+------+--------
+ trec 3 |    1 | KEY1-3
+ trec 1 |    1 | KEY1-9
+(2 rows)
+
+select ruby_avg(key1) from T_pkey1;
+ ruby_avg 
+----------
+        1
+(1 row)
+
+select ruby_sum(key1) from T_pkey1;
+ ruby_sum 
+----------
+        8
+(1 row)
+
+select ruby_avg(key1) from T_pkey2;
+ ruby_avg 
+----------
+        1
+(1 row)
+
+select ruby_sum(key1) from T_pkey2;
+ ruby_sum 
+----------
+        6
+(1 row)
+
+select ruby_avg(key1) from T_pkey1 where key1 = 99;
+ ruby_avg 
+----------
+         
+(1 row)
+
+select ruby_sum(key1) from T_pkey1 where key1 = 99;
+ ruby_sum 
+----------
+        0
+(1 row)
+
+select 1 @< 2;
+ ?column? 
+----------
+ t
+(1 row)
+
+select 100 @< 4;
+ ?column? 
+----------
+ f
+(1 row)
+
+select * from T_pkey1 order by key1 using @<;
+ key1 |  key2  |     txt     
+------+--------+-------------
+    1 | key1-1 | test key
+    1 | key1-2 | test key
+    1 | key1-3 | test key
+    1 | KEY1-3 | should work
+    2 | key2-3 | test key
+    2 | key2-9 | test key
+(6 rows)
+
+select * from T_pkey2 order by key1 using @<;
+ key1 |  key2  |   txt    
+------+--------+----------
+    1 | KEY1-3 | test key
+    1 | KEY1-9 | test key
+    2 | KEY2-3 | test key
+    2 | KEY2-9 | test key
+(4 rows)
+

data/test/plt/test.expected.75

@@ -0,0 +1,178 @@
+insert into T_pkey1 values (1, 'key1-1', 'test key');
+insert into T_pkey1 values (1, 'key1-2', 'test key');
+insert into T_pkey1 values (1, 'key1-3', 'test key');
+insert into T_pkey1 values (2, 'key2-1', 'test key');
+insert into T_pkey1 values (2, 'key2-2', 'test key');
+insert into T_pkey1 values (2, 'key2-3', 'test key');
+insert into T_pkey2 values (1, 'key1-1', 'test key');
+insert into T_pkey2 values (1, 'key1-2', 'test key');
+insert into T_pkey2 values (1, 'key1-3', 'test key');
+insert into T_pkey2 values (2, 'key2-1', 'test key');
+insert into T_pkey2 values (2, 'key2-2', 'test key');
+insert into T_pkey2 values (2, 'key2-3', 'test key');
+select * from T_pkey1;
+ key1 |  key2  |   txt    
+------+--------+----------
+    1 | key1-1 | test key
+    1 | key1-2 | test key
+    1 | key1-3 | test key
+    2 | key2-1 | test key
+    2 | key2-2 | test key
+    2 | key2-3 | test key
+(6 rows)
+
+select * from T_pkey2;
+ key1 |  key2  |   txt    
+------+--------+----------
+    1 | KEY1-1 | test key
+    1 | KEY1-2 | test key
+    1 | KEY1-3 | test key
+    2 | KEY2-1 | test key
+    2 | KEY2-2 | test key
+    2 | KEY2-3 | test key
+(6 rows)
+
+insert into T_pkey1 values (1, 'KEY1-3', 'should work');
+insert into T_pkey2 values (1, 'KEY1-3', 'should fail');
+ERROR:  duplicate key '1', 'KEY1-3' for T_pkey2
+insert into T_dta1 values ('trec 1', 1, 'key1-1');
+insert into T_dta1 values ('trec 2', 1, 'key1-2');
+insert into T_dta1 values ('trec 3', 1, 'key1-3');
+insert into T_dta1 values ('trec 4', 1, 'key1-4');
+ERROR:  key for t_dta1 not in t_pkey1
+insert into T_dta2 values ('trec 1', 1, 'KEY1-1');
+insert into T_dta2 values ('trec 2', 1, 'KEY1-2');
+insert into T_dta2 values ('trec 3', 1, 'KEY1-3');
+insert into T_dta2 values ('trec 4', 1, 'KEY1-4');
+ERROR:  key for t_dta2 not in t_pkey2
+select * from T_dta1;
+  tkey  | ref1 |  ref2  
+--------+------+--------
+ trec 1 |    1 | key1-1
+ trec 2 |    1 | key1-2
+ trec 3 |    1 | key1-3
+(3 rows)
+
+select * from T_dta2;
+  tkey  | ref1 |  ref2  
+--------+------+--------
+ trec 1 |    1 | KEY1-1
+ trec 2 |    1 | KEY1-2
+ trec 3 |    1 | KEY1-3
+(3 rows)
+
+update T_pkey1 set key2 = 'key2-9' where key1 = 2 and key2 = 'key2-1';
+update T_pkey1 set key2 = 'key1-9' where key1 = 1 and key2 = 'key1-1';
+ERROR:  key '1', 'key1-1' referenced by T_dta1
+delete from T_pkey1 where key1 = 2 and key2 = 'key2-2';
+delete from T_pkey1 where key1 = 1 and key2 = 'key1-2';
+ERROR:  key '1', 'key1-2' referenced by T_dta1
+update T_pkey2 set key2 = 'KEY2-9' where key1 = 2 and key2 = 'KEY2-1';
+update T_pkey2 set key2 = 'KEY1-9' where key1 = 1 and key2 = 'KEY1-1';
+NOTICE:  updated 1 entries in T_dta2 for new key in T_pkey2
+delete from T_pkey2 where key1 = 2 and key2 = 'KEY2-2';
+delete from T_pkey2 where key1 = 1 and key2 = 'KEY1-2';
+NOTICE:  deleted 1 entries from T_dta2
+select * from T_pkey1;
+ key1 |  key2  |     txt     
+------+--------+-------------
+    1 | key1-1 | test key
+    1 | key1-2 | test key
+    1 | key1-3 | test key
+    2 | key2-3 | test key
+    1 | KEY1-3 | should work
+    2 | key2-9 | test key
+(6 rows)
+
+select * from T_pkey2;
+ key1 |  key2  |   txt    
+------+--------+----------
+    1 | KEY1-3 | test key
+    2 | KEY2-3 | test key
+    2 | KEY2-9 | test key
+    1 | KEY1-9 | test key
+(4 rows)
+
+select * from T_dta1;
+  tkey  | ref1 |  ref2  
+--------+------+--------
+ trec 1 |    1 | key1-1
+ trec 2 |    1 | key1-2
+ trec 3 |    1 | key1-3
+(3 rows)
+
+select * from T_dta2;
+  tkey  | ref1 |  ref2  
+--------+------+--------
+ trec 3 |    1 | KEY1-3
+ trec 1 |    1 | KEY1-9
+(2 rows)
+
+select ruby_avg(key1) from T_pkey1;
+ ruby_avg 
+----------
+        1
+(1 row)
+
+select ruby_sum(key1) from T_pkey1;
+ ruby_sum 
+----------
+        8
+(1 row)
+
+select ruby_avg(key1) from T_pkey2;
+ ruby_avg 
+----------
+        1
+(1 row)
+
+select ruby_sum(key1) from T_pkey2;
+ ruby_sum 
+----------
+        6
+(1 row)
+
+select ruby_avg(key1) from T_pkey1 where key1 = 99;
+ ruby_avg 
+----------
+         
+(1 row)
+
+select ruby_sum(key1) from T_pkey1 where key1 = 99;
+ ruby_sum 
+----------
+        0
+(1 row)
+
+select 1 @< 2;
+ ?column? 
+----------
+ t
+(1 row)
+
+select 100 @< 4;
+ ?column? 
+----------
+ f
+(1 row)
+
+select * from T_pkey1 order by key1 using @<;
+ key1 |  key2  |     txt     
+------+--------+-------------
+    1 | key1-1 | test key
+    1 | key1-2 | test key
+    1 | key1-3 | test key
+    1 | KEY1-3 | should work
+    2 | key2-3 | test key
+    2 | key2-9 | test key
+(6 rows)
+
+select * from T_pkey2 order by key1 using @<;
+ key1 |  key2  |   txt    
+------+--------+----------
+    1 | KEY1-3 | test key
+    1 | KEY1-9 | test key
+    2 | KEY2-3 | test key
+    2 | KEY2-9 | test key
+(4 rows)
+