pg 0.12.2 → 0.13.0.pre298

data/sample/psqlHelp.rb

@@ -1,158 +0,0 @@
-#
-# Help for query language syntax
-#
-# Original source code is written by C.
-#  Copyright (c) 1996, Regents of the University of California
-#
-# ruby version is written by ematsu
-#  Copyright (c) 1997  Eiji-usagi-MATSUmoto <ematsu@pfu.co.jp>
-#
-# $Id: psqlHelp.rb,v a3434e641f6a 2009/12/10 18:22:46 mahlon $
-
-
-QL_HELP = [
-  [ "abort",
-      "abort the current transaction",
-      "abort [transaction];"],
-  [ "abort transaction",
-      "abort the current transaction",
-      "abort [transaction];"],
-  [ "alter table",
-      "add/rename attributes, rename tables",
-      "\talter table <class_name> [*] add column <attr> <type>;\n\talter table <class_name> [*] rename [column] <attr1> to <attr2>;\n\talter table <class_name1> rename to <class_name2>"],
-  [ "begin",
-      "begin a new transaction",
-      "begin [transaction|work];"],
-  [ "begin transaction",
-      "begin a new transaction",
-      "begin [transaction|work];"],
-  [ "begin work",
-      "begin a new transaction",
-      "begin [transaction|work];"],
-  [ "cluster",
-      "create a clustered index (from an existing index)",
-      "cluster <index_name> on <relation_name>"],
-  [ "close",
-      "close an existing cursor (cursor)",
-      "close <cursorname>;"],
-  [ "commit",
-      "commit a transaction",
-      "commit [work]"],
-  [ "commit work",
-      "commit a transaction",
-      "commit [work]"],
-  [ "copy",
-      "copy data to and from a table",
-      "copy [binary] <class_name> [with oids]\n\t{to|from} {<filename>|stdin|stdout} [using delimiters <delim>];"],
-  [ "create",   
-      "Please more be specific:",
-      "\tcreate aggregate\n\tcreate database\n\tcreate function\n\tcreate index\n\tcreate operator\n\tcreate rule\n\tcreate table\n\tcreate type\n\tcreate view"],
-  [ "create aggregate",
-      "define an aggregate function",
-      "create aggregate <agg_name> [as] (basetype = <data_type>, \n\t[sfunc1 = <sfunc_1>, stype1 = <sfunc1_return_type>]\n\t[sfunc2 = <sfunc_2>, stype2 = <sfunc2_return_type>]\n\t[,finalfunc = <final-function>]\n\t[,initcond1 = <initial-cond1>][,initcond2 = <initial-cond2>]);"],
-  [ "create database", 
-    "create a database",
-    "create database <dbname>"],
-  [ "create function",
-      "create a user-defined function",
-      "create function <function_name> ([<type1>,...<typeN>]) returns <return_type>\n\tas '<object_filename>'|'<sql-queries>'\n\tlanguage 'c'|'sql'|'internal';"],
-  [ "create index",
-      "construct an index",
-      "create [unique] index <indexname> on <class_name> [using <access_method>] (<attr1>|<funcname>(<attr1>,...) [<type_class1>]);"],
-  [ "create operator",
-      "create a user-defined operator",
-      "create operator <operator_name> (\n\t[leftarg = <type1>][,rightarg = <type2>]\n\t,procedure = <func_name>,\n\t[,commutator = <com_op>][,negator = <neg_op>]\n\t[,restrict = <res_proc>][,hashes]\n\t[,join = <join_proc>][,sort = <sort_op1>...<sort_opN>]);"],
-  [ "create rule",
-      "define a new rule",
-      "create rule <rule_name> as on\n\t[select|update|delete|insert]\n\tto <object> [where <qual>]\n\tdo [instead] [<action>|nothing| [<actions>]];"],
-  [ "create table",
-      "create a new table",
-      "create table <class_name> ( <attr1> <type1>,... <attrN> <typeN>)\n\t[inherits (<class_name1>,...<class_nameN>\n\tarchive=<archive_mode>\n\tstore=<smgr_name>\n\tarch_store=<smgr_name>];"],
-  [ "create type",
-      "create a new user-defined base data type",
-      "create type <typename> (\n\tinternallength = (<number> | variable),\n\t[externallength = (<number>|variable),]\n\tinput=<input_function>, output = <output_function>\n\t[,element = <typename>][,delimiter=<character>][,default=\'<string>\']\n\t[,send = <send_function>][,receive = <receive_function>][,passedbyvalue]);"],
-  [ "create view",
-      "create a view",
-      "create view <view_name> as select <expr1>[as <attr1>][,... <exprN>[as <attrN>]] [from <from_list>] [where <qual>];"],
-  [ "declare",
-      "set up a cursor",
-      "declare <cursorname> [binary] cursor for\n\tselect [distinct]\n\t<expr1> [as <attr1>],...<exprN> [as <attrN>]\n\t[from <from_list>] [where <qual>]\n\t[order by <attr1> [using <op1>],... <attrN> [using <opN>]];"],
-  [ "delete",
-      "delete tuples",
-      "delete from <class_name> [where <qual>];"],
-  [ "drop",   
-      "Please more be specific:",
-      "\tdrop aggregate\n\tdrop database\n\tdrop function\n\tdrop index\n\tdrop operator\n\tdrop rule\n\tdrop table\n\tdrop type\n\tdrop view"],
-  [ "drop aggregate",
-      "remove an aggregate function",
-      "drop aggregate <agg_name>;"],
-  [ "drop database",
-     "remove a database",
-     "drop database <dbname>"],
-  [ "drop function",
-      "remove a user-defined function",
-      "drop function <funcname> ([<type1>,....<typeN>]);"],
-  [ "drop index", 
-      "remove an existing index",
-      "drop index <indexname>;"],
-  [ "drop operator",
-      "remove a user-defined operator",
-      "drop operator <operator_name> ([<ltype>|none],[<rtype>|none]);"],
-  [ "drop rule",
-      "remove a rule",
-      "drop rule <rulename>;"],
-  [ "drop table", 
-      "remove a table", 
-      "drop table <class_name>[,...<class_nameN];"],
-  [ "drop type",
-      "remove a user-defined base type",
-      "drop type <typename>;"],
-  [ "drop view",
-      "remove a view",
-      "drop view <view_name>"],
-  [ "end",
-      "end the current transaction",
-      "end [transaction];"],
-  [ "end transaction",
-      "end the current transaction",
-      "end [transaction];"],
-  [ "explain",
-      "explain the query execution plan",
-      "explain [with {cost|plan|full}] <query>"],
-  [ "fetch",
-      "retrieve tuples from a cursor",
-      "fetch [forward|backward] [<number>|all] [in <cursorname>];"],
-  [ "grant",
-      "grant access control to a user or group",
-      "grant <privilege[,privilege,...]> on <rel1>[,...<reln>] to \n[public | group <group> | <username>]\n\t privilege is {ALL | SELECT | INSERT | UPDATE | DELETE | RULE}"],
-  [ "insert",
-      "insert tuples",
-      "insert into <class_name> [(<attr1>...<attrN>)]\n\t[values (<expr1>...<exprN>); |\n\tselect <expr1>,...<exprN> [from <from_clause>] [where <qual>];"],
-  [ "listen",
-       "listen for notification on a relation",
-       "listen <class_name>"],
-  [ "load",
-      "dynamically load a module",
-      "load <filename>;"],
-  [ "notify",
-      "signal all frontends and backends listening on a relation",
-      "notify <class_name>"],
-  [ "purge",
-      "purge historical data",
-      "purge <class_name> [before <abstime>] [after <reltime>];"],
-  [ "revoke",
-      "revoke access control from a user or group",
-      "revoke <privilege[,privilege,...]> on <rel1>[,...<reln>] from \n[public | group <group> | <username>]\n\t privilege is {ALL | SELECT | INSERT | UPDATE | DELETE | RULE}"],
-  [ "rollback",
-      "abort a transaction",
-      "rollback [transaction|work]"],
-  [ "select",
-      "retrieve tuples",
-      "select [distinct on <attr>] <expr1> [as <attr1>], ... <exprN> [as <attrN>]\n\t[into table <class_name>] [from <from_list>]\n\t[where <qual>]\n\t[order by <attr1>\n\t\t[using <op1>],..<attrN> [[using <opN>] | ASC | DESC]];" ],
-  [ "update",
-      "update tuples",
-      "update <class_name> set <attr1>=<expr1>,...<attrN>=<exprN> [from <from_clause>] [where <qual>];"],
-  [ "vacuum",
-      "vacuum the database, i.e. cleans out deleted records, updates statistics",
-      "vacuum [table];"]
-]

data/sample/test1.rb

@@ -1,60 +0,0 @@
-#! /usr/bin/env ruby
-#
-# original file src/test/examples/testlibpq.c
-# 
-require 'pg'
-
-def main
-  pghost = nil
-  pgport = nil
-  pgoptions = nil
-  pgtty = nil
-  dbname = "template1"
-  begin
-    conn = PGconn.connect(pghost,pgport,pgoptions,pgtty,dbname)
-    if $DEBUG
-      fd = open("/tmp/trace.out","w")
-      conn.trace(fd)
-    end 
-    res = conn.exec("BEGIN")
-    res.clear
-    res = conn.exec("DECLARE myportal CURSOR FOR select * from pg_database")
-    res.clear
-
-    res = conn.exec("FETCH ALL in myportal")
-    if (res.result_status != PGresult::PGRES_TUPLES_OK)
-      raise PGerror,"FETCH ALL command didn't return tuples properly\n"
-    end
-
-    for fld in res.fields
-      printf("%-15s",fld)
-    end
-    printf("\n\n")
-
-    res.values.each do |tupl|
-      tupl.each do |fld|
-	printf("%-15s",fld)
-      end
-      printf("\n")
-    end
-    res = conn.exec("CLOSE myportal")
-    res = conn.exec("END")
-    res.clear
-    conn.close
-
-    if $DEBUG
-      fl.close
-    end
-  rescue PGError
-    if (conn.status == PGconn::CONNECTION_BAD)
-      printf(STDERR, "We have lost the connection to the backend, so ")
-      printf(STDERR, "further processing is impossible.  ")
-      printf(STDERR, "Terminating.\n")
-    else
-      printf(STDERR, conn.error)
-    end
-    exit(1)
-  end
-end
-
-main

data/sample/test2.rb

@@ -1,44 +0,0 @@
-#! /usr/bin/env ruby
-#
-# original file src/test/examples/testlibpq2.c
-#                       Test of the asynchronous notification interface
-# CREATE TABLE TBL1 (i int4);
-# CREATE TABLE TBL2 (i int4);
-# CREATE RULE r1 AS ON INSERT TO TBL1 DO (INSERT INTO TBL2 values (new.i); \
-#                                         NOTIFY TBL2);
-# Then start up this program
-# After the program has begun, do
-# INSERT INTO TBL1 values (10);
-
-
-require 'pg'
-
-def main
-  pghost = nil
-  pgport = nil
-  pgoptions = nil
-  pgtty = nil
-  dbname = ENV['USER'] 
-  begin
-    conn = PGconn.connect(pghost,pgport,pgoptions,pgtty,dbname)
-  rescue PGError
-    printf(STDERR, "Connection to database '%s' failed.\n",dbname)
-    exit(2)
-  end
-  begin
-    res = conn.exec("LISTEN TBL2")
-  rescue PGError
-    printf(STDERR, "LISTEN command failed\n")
-    exit(2)
-  end
-  res.clear
-  while 1
-    notify = conn.get_notify
-    if (notify)
-      printf(STDERR,"ASYNC NOTIFY '%s' from backend pid '%d' received\n",notify[0],notify[1])
-      break
-    end
-  end
-end
-
-main

data/sample/test4.rb

@@ -1,71 +0,0 @@
-#! /usr/bin/env ruby
-#
-# original file src/test/examples/testlibpq4.c
-#     this test programs shows to use LIBPQ to make multiple backend
-#
-require 'pg'
-
-def main
-  if (ARGV.size != 4)
-    printf(STDERR,"usage: %s tableName dbName1 dbName2\n", ARGV[0])
-    printf(STDERR,"    compares two tables in two databases\n")
-    exit(1)
-  end
-  tblname = ARGV[1]
-  dbname1 = ARGV[2]
-  dbname2 = ARGV[3]
-  pghost = nil
-  pgport = nil
-  pgoptions = nil
-  pgtty = nil
-
-  begin
-    conn1 = PGconn.connect(pghost,pgport,pgoptions,pgtty,dbname1)
-    conn2 = PGconn.connect(pghost,pgport,pgoptions,pgtty,dbname2)
-  rescue PGError
-    printf(STDERR,"connection to database.\n")
-    exit(1)
-  end
-  begin
-    res1 = conn1.exec("BEGIN")
-    res1.clear
-    res1 = conn1.exec("DECLARE myportal CURSOR FOR select * from pg_database")
-    res1.clear
-
-    res1 = conn1.exec("FETCH ALL in myportal")
-    if (res1.status != PGresult::TUPLES_OK)
-      raise PGerror,"FETCH ALL command didn't return tuples properly\n"
-    end
-
-    for fld in res1.fields
-      printf("%-15s",fld)
-    end
-    printf("\n\n")
-
-    res1.result.each do |tupl|
-      tupl.each do |fld|
-	printf("%-15s",fld)
-      end
-      printf("\n")
-    end
-    res1 = conn1.exec("CLOSE myportal")
-    res1 = conn1.exec("END")
-    res1.clear
-    conn1.close
-
-  rescue PGError
-    if (conn1.status == PGconn::CONNECTION_BAD)
-      printf(STDERR, "We have lost the connection to the backend, so ")
-      printf(STDERR, "further processing is impossible.  ")
-      printf(STDERR, "Terminating.\n")
-    else
-      printf(STDERR, conn1.error)
-    end
-    exit(1)
-  end
-end
-
-main
-
-
-

data/spec/m17n_spec.rb

@@ -1,170 +0,0 @@
-#!/usr/bin/env rspec
-# encoding: utf-8
-
-BEGIN {
-	require 'pathname'
-	require 'rbconfig'
-
-	basedir = Pathname( __FILE__ ).dirname.parent
-	libdir = basedir + 'lib'
-	archlib = libdir + RbConfig::CONFIG['sitearch']
-
-	$LOAD_PATH.unshift( basedir.to_s ) unless $LOAD_PATH.include?( basedir.to_s )
-	$LOAD_PATH.unshift( libdir.to_s ) unless $LOAD_PATH.include?( libdir.to_s )
-	$LOAD_PATH.unshift( archlib.to_s ) unless $LOAD_PATH.include?( archlib.to_s )
-}
-
-require 'rspec'
-require 'spec/lib/helpers'
-require 'pg'
-
-describe "multinationalization support", :ruby_19 => true do
-	include PgTestingHelpers
-
-	before( :all ) do
-		@conn = setup_testing_db( "m17n" )
-		@conn.exec( 'BEGIN' )
-	end
-
-	after( :each ) do
-		@conn.exec( 'ROLLBACK' ) if @conn
-	end
-
-	after( :all ) do
-		teardown_testing_db( @conn ) if @conn
-	end
-
-
-	#
-	# Examples
-	#
-
-	it "should return the same bytes in text format that are sent as inline text" do
-		binary_file = File.join(Dir.pwd, 'spec/data', 'random_binary_data')
-		in_bytes = File.open(binary_file, 'r:ASCII-8BIT').read
-
-		out_bytes = nil
-		@conn.transaction do |conn|
-			conn.exec("SET standard_conforming_strings=on")
-			res = conn.exec("VALUES ('#{PGconn.escape_bytea(in_bytes)}'::bytea)", [], 0)
-			out_bytes = PGconn.unescape_bytea(res[0]['column1'])
-		end
-		out_bytes.should == in_bytes
-	end
-
-	describe "rubyforge #22925: m17n support" do
-		it "should return results in the same encoding as the client (iso-8859-1)" do
-			out_string = nil
-			@conn.transaction do |conn|
-				conn.internal_encoding = 'iso8859-1'
-				res = conn.exec("VALUES ('fantasia')", [], 0)
-				out_string = res[0]['column1']
-			end
-			out_string.should == 'fantasia'
-			out_string.encoding.should == Encoding::ISO8859_1
-		end
-
-		it "should return results in the same encoding as the client (utf-8)" do
-			out_string = nil
-			@conn.transaction do |conn|
-				conn.internal_encoding = 'utf-8'
-				res = conn.exec("VALUES ('世界線航跡蔵')", [], 0)
-				out_string = res[0]['column1']
-			end
-			out_string.should == '世界線航跡蔵'
-			out_string.encoding.should == Encoding::UTF_8
-		end
-
-		it "should return results in the same encoding as the client (EUC-JP)" do
-			out_string = nil
-			@conn.transaction do |conn|
-				conn.internal_encoding = 'EUC-JP'
-				stmt = "VALUES ('世界線航跡蔵')".encode('EUC-JP')
-				res = conn.exec(stmt, [], 0)
-				out_string = res[0]['column1']
-			end
-			out_string.should == '世界線航跡蔵'.encode('EUC-JP')
-			out_string.encoding.should == Encoding::EUC_JP
-		end
-
-		it "returns the results in the correct encoding even if the client_encoding has " +
-		   "changed since the results were fetched" do
-			out_string = nil
-			@conn.transaction do |conn|
-				conn.internal_encoding = 'EUC-JP'
-				stmt = "VALUES ('世界線航跡蔵')".encode('EUC-JP')
-				res = conn.exec(stmt, [], 0)
-				conn.internal_encoding = 'utf-8'
-				out_string = res[0]['column1']
-			end
-			out_string.should == '世界線航跡蔵'.encode('EUC-JP')
-			out_string.encoding.should == Encoding::EUC_JP
-		end
-
-		it "the connection should return ASCII-8BIT when the server encoding is SQL_ASCII" do
-			@conn.external_encoding.should == Encoding::ASCII_8BIT
-		end
-
-		it "works around the unsupported JOHAB encoding by returning stuff in 'ASCII_8BIT'" do
-			pending "figuring out how to create a string in the JOHAB encoding" do
-				out_string = nil
-				@conn.transaction do |conn|
-					conn.exec( "set client_encoding = 'JOHAB';" )
-					stmt = "VALUES ('foo')".encode('JOHAB')
-					res = conn.exec( stmt, [], 0 )
-					out_string = res[0]['column1']
-				end
-				out_string.should == 'foo'.encode( Encoding::ASCII_8BIT )
-				out_string.encoding.should == Encoding::ASCII_8BIT
-			end
-		end
-
-		it "uses the client encoding for escaped string" do
-			original = "string to escape".force_encoding( "euc-jp" )
-			@conn.set_client_encoding( "euc_jp" )
-			escaped  = @conn.escape( original )
-			escaped.encoding.should == Encoding::EUC_JP
-		end
-	end
-
-
-	describe "Ruby 1.9.x default_internal encoding" do
-
-		it "honors the Encoding.default_internal if it's set and the synchronous interface is used" do
-			@conn.transaction do |txn_conn|
-				txn_conn.internal_encoding = Encoding::ISO8859_1
-				txn_conn.exec( "CREATE TABLE defaultinternaltest ( foo text )" )
-				txn_conn.exec( "INSERT INTO defaultinternaltest VALUES ('Grün und Weiß')" )
-			end
-
-			begin
-				prev_encoding = Encoding.default_internal
-				Encoding.default_internal = Encoding::UTF_8
-
-				conn = PGconn.connect( @conninfo )
-				conn.internal_encoding.should == Encoding::UTF_8
-				res = conn.exec( "SELECT foo FROM defaultinternaltest" )
-				res[0]['foo'].encoding.should == Encoding::UTF_8
-			ensure
-				conn.finish if conn
-				Encoding.default_internal = prev_encoding
-			end
-		end
-
-	end
-
-
-	it "encodes exception messages with the connection's encoding (#96)" do
-		@conn.set_client_encoding( 'utf-8' )
-		@conn.exec "CREATE TABLE foo (bar TEXT)"
-
-		begin
-			@conn.exec "INSERT INTO foo VALUES ('Côte d'Ivoire')"
-		rescue => err
-			err.message.encoding.should == Encoding::UTF_8
-		else
-			fail "No exception raised?!"
-		end
-	end
-
-end