globegit-postgresql-plruby 0.5.4

data/test/conv_bitstring/b.rb

@@ -0,0 +1,45 @@
+#!/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_queries.sql", "w")
+   IO.foreach("test_queries.sql.in") do |x| 
+      x.gsub!(/language\s+'plruby'/i, "language 'plruby#{suffix}'")
+      f.print x
+   end
+   f.close
+   
+   Dir["test.expected.*.in"].each do |name|
+      result = name.sub(/\.in\z/, '')
+      f = File.new(result, "w")
+      IO.foreach(name) do |x|
+	 x.gsub!(/'plruby'/i, "'plruby#{suffix}'")
+	 f.print x
+      end
+      f.close
+   end
+
+   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/conv_bitstring/runtest

@@ -0,0 +1,26 @@
+#!/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 "**** 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/conv_bitstring/test.expected.73

@@ -0,0 +1,148 @@
+create table bit_op (
+   b0 bit(8), b1 bit(8), band bit(8), bor bit(8),
+   bxor bit(8), bnot0 bit(8), bnot1 bit(8)
+);
+create function bt(integer, integer) returns bit_op as '
+   b0 = BitString.new(args[0], 8)
+   b1 = BitString.new(args[1], 8)
+   [b0, b1, b0 & b1, b0 | b1, b0 ^ b1, ~b0, ~b1]
+' language 'plruby';
+select * from bt(12, 24);
+    b0    |    b1    |   band   |   bor    |   bxor   |  bnot0   |  bnot1   
+----------+----------+----------+----------+----------+----------+----------
+ 00001100 | 00011000 | 00001000 | 00011100 | 00010100 | 11110011 | 11100111
+(1 row)
+
+select * from bt(12, 32);
+    b0    |    b1    |   band   |   bor    |   bxor   |  bnot0   |  bnot1   
+----------+----------+----------+----------+----------+----------+----------
+ 00001100 | 00100000 | 00000000 | 00101100 | 00101100 | 11110011 | 11011111
+(1 row)
+
+select * from bt(15, 278);
+    b0    |    b1    |   band   |   bor    |   bxor   |  bnot0   |  bnot1   
+----------+----------+----------+----------+----------+----------+----------
+ 00001111 | 00010110 | 00000110 | 00011111 | 00011001 | 11110000 | 11101001
+(1 row)
+
+create function be(integer) returns setof integer as '
+   BitString.new(args[0], 8).each {|i| yield i}
+' language 'plruby';
+select * from be(12);
+ be 
+----
+  0
+  0
+  0
+  0
+  1
+  1
+  0
+  0
+(8 rows)
+
+select * from be(257);
+ be 
+----
+  0
+  0
+  0
+  0
+  0
+  0
+  0
+  1
+(8 rows)
+
+create function bx(integer, integer) returns bit varying as '
+   BitString.new(*args)
+' language 'plruby';
+select bx(12, 6);
+   bx   
+--------
+ 001100
+(1 row)
+
+select bx(12, 8);
+    bx    
+----------
+ 00001100
+(1 row)
+
+create table bit_sht (
+   b0 bit(8), shft int, bl bit(8), br bit(8), bs text, bi integer,
+   sz integer, osz integer
+);
+create function bs(integer, integer) returns bit_sht as '
+   b0 = BitString.new(args[0], 8)
+   [b0, args[1], b0 << args[1], b0 >> args[1], b0.to_s, b0.to_i,
+    b0.size, b0.octet_size]
+' language 'plruby';
+select * from bs(12, 2);
+    b0    | shft |    bl    |    br    |    bs    | bi | sz | osz 
+----------+------+----------+----------+----------+----+----+-----
+ 00001100 |    2 | 00110000 | 00000011 | 00001100 | 12 |  8 |   1
+(1 row)
+
+select * from bs(277, -3);
+    b0    | shft |    bl    |    br    |    bs    | bi | sz | osz 
+----------+------+----------+----------+----------+----+----+-----
+ 00010101 |   -3 | 00000010 | 10101000 | 00010101 | 21 |  8 |   1
+(1 row)
+
+create function ext(text, integer) returns integer as '
+   b0 = BitString.new(args[0])
+   b0[args[1]]
+' language 'plruby';
+select ext('011110', 0);
+ ext 
+-----
+   0
+(1 row)
+
+select ext('011110', -1);
+ ext 
+-----
+   0
+(1 row)
+
+select ext('011110', 1);
+ ext 
+-----
+   1
+(1 row)
+
+select ext('011110', 4);
+ ext 
+-----
+   1
+(1 row)
+
+create function ext2(text, integer, integer) returns bit varying(8) as '
+   b0 = BitString.new(args[0])
+   b0[args[1], args[2]]
+' language 'plruby';
+select ext2('0111101', 0, 2);
+ ext2 
+------
+ 01
+(1 row)
+
+select ext2('0111101', -1, 3);
+ ext2 
+------
+ 1
+(1 row)
+
+select ext2('0111101', 1, 2);
+ ext2 
+------
+ 11
+(1 row)
+
+select ext2('0111101', 4, 1);
+ ext2 
+------
+ 1
+(1 row)
+

data/test/conv_bitstring/test.expected.74

@@ -0,0 +1,148 @@
+create table bit_op (
+   b0 bit(8), b1 bit(8), band bit(8), bor bit(8),
+   bxor bit(8), bnot0 bit(8), bnot1 bit(8)
+);
+create function bt(integer, integer) returns bit_op as '
+   b0 = BitString.new(args[0], 8)
+   b1 = BitString.new(args[1], 8)
+   [b0, b1, b0 & b1, b0 | b1, b0 ^ b1, ~b0, ~b1]
+' language 'plruby';
+select * from bt(12, 24);
+    b0    |    b1    |   band   |   bor    |   bxor   |  bnot0   |  bnot1   
+----------+----------+----------+----------+----------+----------+----------
+ 00001100 | 00011000 | 00001000 | 00011100 | 00010100 | 11110011 | 11100111
+(1 row)
+
+select * from bt(12, 32);
+    b0    |    b1    |   band   |   bor    |   bxor   |  bnot0   |  bnot1   
+----------+----------+----------+----------+----------+----------+----------
+ 00001100 | 00100000 | 00000000 | 00101100 | 00101100 | 11110011 | 11011111
+(1 row)
+
+select * from bt(15, 278);
+    b0    |    b1    |   band   |   bor    |   bxor   |  bnot0   |  bnot1   
+----------+----------+----------+----------+----------+----------+----------
+ 00001111 | 00010110 | 00000110 | 00011111 | 00011001 | 11110000 | 11101001
+(1 row)
+
+create function be(integer) returns setof integer as '
+   BitString.new(args[0], 8).each {|i| yield i}
+' language 'plruby';
+select * from be(12);
+ be 
+----
+  0
+  0
+  0
+  0
+  1
+  1
+  0
+  0
+(8 rows)
+
+select * from be(257);
+ be 
+----
+  0
+  0
+  0
+  0
+  0
+  0
+  0
+  1
+(8 rows)
+
+create function bx(integer, integer) returns bit varying as '
+   BitString.new(*args)
+' language 'plruby';
+select bx(12, 6);
+   bx   
+--------
+ 001100
+(1 row)
+
+select bx(12, 8);
+    bx    
+----------
+ 00001100
+(1 row)
+
+create table bit_sht (
+   b0 bit(8), shft int, bl bit(8), br bit(8), bs text, bi integer,
+   sz integer, osz integer
+);
+create function bs(integer, integer) returns bit_sht as '
+   b0 = BitString.new(args[0], 8)
+   [b0, args[1], b0 << args[1], b0 >> args[1], b0.to_s, b0.to_i,
+    b0.size, b0.octet_size]
+' language 'plruby';
+select * from bs(12, 2);
+    b0    | shft |    bl    |    br    |    bs    | bi | sz | osz 
+----------+------+----------+----------+----------+----+----+-----
+ 00001100 |    2 | 00110000 | 00000011 | 00001100 | 12 |  8 |   1
+(1 row)
+
+select * from bs(277, -3);
+    b0    | shft |    bl    |    br    |    bs    | bi | sz | osz 
+----------+------+----------+----------+----------+----+----+-----
+ 00010101 |   -3 | 00000010 | 10101000 | 00010101 | 21 |  8 |   1
+(1 row)
+
+create function ext(text, integer) returns integer as '
+   b0 = BitString.new(args[0])
+   b0[args[1]]
+' language 'plruby';
+select ext('011110', 0);
+ ext 
+-----
+   0
+(1 row)
+
+select ext('011110', -1);
+ ext 
+-----
+   0
+(1 row)
+
+select ext('011110', 1);
+ ext 
+-----
+   1
+(1 row)
+
+select ext('011110', 4);
+ ext 
+-----
+   1
+(1 row)
+
+create function ext2(text, integer, integer) returns bit varying(8) as '
+   b0 = BitString.new(args[0])
+   b0[args[1], args[2]]
+' language 'plruby';
+select ext2('0111101', 0, 2);
+ ext2 
+------
+ 01
+(1 row)
+
+select ext2('0111101', -1, 3);
+ ext2 
+------
+ 1
+(1 row)
+
+select ext2('0111101', 1, 2);
+ ext2 
+------
+ 11
+(1 row)
+
+select ext2('0111101', 4, 1);
+ ext2 
+------
+ 1
+(1 row)
+

data/test/conv_bitstring/test.expected.80

@@ -0,0 +1,148 @@
+create table bit_op (
+   b0 bit(8), b1 bit(8), band bit(8), bor bit(8),
+   bxor bit(8), bnot0 bit(8), bnot1 bit(8)
+);
+create function bt(integer, integer) returns bit_op as '
+   b0 = BitString.new(args[0], 8)
+   b1 = BitString.new(args[1], 8)
+   [b0, b1, b0 & b1, b0 | b1, b0 ^ b1, ~b0, ~b1]
+' language 'plruby';
+select * from bt(12, 24);
+    b0    |    b1    |   band   |   bor    |   bxor   |  bnot0   |  bnot1   
+----------+----------+----------+----------+----------+----------+----------
+ 00001100 | 00011000 | 00001000 | 00011100 | 00010100 | 11110011 | 11100111
+(1 row)
+
+select * from bt(12, 32);
+    b0    |    b1    |   band   |   bor    |   bxor   |  bnot0   |  bnot1   
+----------+----------+----------+----------+----------+----------+----------
+ 00001100 | 00100000 | 00000000 | 00101100 | 00101100 | 11110011 | 11011111
+(1 row)
+
+select * from bt(15, 278);
+    b0    |    b1    |   band   |   bor    |   bxor   |  bnot0   |  bnot1   
+----------+----------+----------+----------+----------+----------+----------
+ 00001111 | 00010110 | 00000110 | 00011111 | 00011001 | 11110000 | 11101001
+(1 row)
+
+create function be(integer) returns setof integer as '
+   BitString.new(args[0], 8).each {|i| yield i}
+' language 'plruby';
+select * from be(12);
+ be 
+----
+  0
+  0
+  0
+  0
+  1
+  1
+  0
+  0
+(8 rows)
+
+select * from be(257);
+ be 
+----
+  0
+  0
+  0
+  0
+  0
+  0
+  0
+  1
+(8 rows)
+
+create function bx(integer, integer) returns bit varying as '
+   BitString.new(*args)
+' language 'plruby';
+select bx(12, 6);
+   bx   
+--------
+ 001100
+(1 row)
+
+select bx(12, 8);
+    bx    
+----------
+ 00001100
+(1 row)
+
+create table bit_sht (
+   b0 bit(8), shft int, bl bit(8), br bit(8), bs text, bi integer,
+   sz integer, osz integer
+);
+create function bs(integer, integer) returns bit_sht as '
+   b0 = BitString.new(args[0], 8)
+   [b0, args[1], b0 << args[1], b0 >> args[1], b0.to_s, b0.to_i,
+    b0.size, b0.octet_size]
+' language 'plruby';
+select * from bs(12, 2);
+    b0    | shft |    bl    |    br    |    bs    | bi | sz | osz 
+----------+------+----------+----------+----------+----+----+-----
+ 00001100 |    2 | 00110000 | 00000011 | 00001100 | 12 |  8 |   1
+(1 row)
+
+select * from bs(277, -3);
+    b0    | shft |    bl    |    br    |    bs    | bi | sz | osz 
+----------+------+----------+----------+----------+----+----+-----
+ 00010101 |   -3 | 00000010 | 10101000 | 00010101 | 21 |  8 |   1
+(1 row)
+
+create function ext(text, integer) returns integer as '
+   b0 = BitString.new(args[0])
+   b0[args[1]]
+' language 'plruby';
+select ext('011110', 0);
+ ext 
+-----
+   0
+(1 row)
+
+select ext('011110', -1);
+ ext 
+-----
+   0
+(1 row)
+
+select ext('011110', 1);
+ ext 
+-----
+   1
+(1 row)
+
+select ext('011110', 4);
+ ext 
+-----
+   1
+(1 row)
+
+create function ext2(text, integer, integer) returns bit varying(8) as '
+   b0 = BitString.new(args[0])
+   b0[args[1], args[2]]
+' language 'plruby';
+select ext2('0111101', 0, 2);
+ ext2 
+------
+ 01
+(1 row)
+
+select ext2('0111101', -1, 3);
+ ext2 
+------
+ 1
+(1 row)
+
+select ext2('0111101', 1, 2);
+ ext2 
+------
+ 11
+(1 row)
+
+select ext2('0111101', 4, 1);
+ ext2 
+------
+ 1
+(1 row)
+