r954 - packages/libsql-statement-perl/branches/upstream/current/t
Gunnar Wolf
gwolf@costa.debian.org
Sat, 23 Apr 2005 00:46:50 +0000
Author: gwolf
Date: 2005-04-23 00:46:50 +0000 (Sat, 23 Apr 2005)
New Revision: 954
Added:
packages/libsql-statement-perl/branches/upstream/current/t/02executeDirect.t
packages/libsql-statement-perl/branches/upstream/current/t/05create.t
packages/libsql-statement-perl/branches/upstream/current/t/08join.t
Removed:
packages/libsql-statement-perl/branches/upstream/current/t/02execute.t
packages/libsql-statement-perl/branches/upstream/current/t/03join.t
packages/libsql-statement-perl/branches/upstream/current/t/05create.pl
Log:
To prepare to load /tmp/tmp.fUTQld/libsql-statement-perl-1.13 into
packages/libsql-statement-perl/branches/upstream/current, perform 3
renames.
* packages/libsql-statement-perl/branches/upstream/current/t/08join.t:
Renamed from
packages/libsql-statement-perl/branches/upstream/current/t/03join.t.
*
packages/libsql-statement-perl/branches/upstream/current/t/05create.t
: Renamed from
packages/libsql-statement-perl/branches/upstream/current/t/05create.p
l.
*
packages/libsql-statement-perl/branches/upstream/current/t/02executeD
irect.t: Renamed from
packages/libsql-statement-perl/branches/upstream/current/t/02execute.
t.
Deleted: packages/libsql-statement-perl/branches/upstream/current/t/02execute.t
===================================================================
--- packages/libsql-statement-perl/branches/upstream/current/t/02execute.t 2005-04-23 00:26:04 UTC (rev 953)
+++ packages/libsql-statement-perl/branches/upstream/current/t/02execute.t 2005-04-23 00:46:50 UTC (rev 954)
@@ -1,128 +0,0 @@
-#!/usr/bin/perl -w
-$|=1;
-use strict;
-use lib qw( ../lib );
-use Test::More;
-eval { require DBD::File; };
-if ($@) {
- plan skip_all => "No DBD::File available";
-}
-else {
- plan tests => 16;
-}
-use SQL::Statement; printf "SQL::Statement v.%s\n", $SQL::Statement::VERSION;
-use DBI;
-my $sth;
-my $dbh = DBI->connect('dbi:File(RaiseError=1):');
-
-########################################
-# CREATE, INSERT, UPDATE, DELETE, SELECT
-########################################
-for (split /\n/,
- q{ CREATE TEMP TABLE phrase (id INT,phrase VARCHAR(30))
- INSERT INTO phrase VALUES(1,UPPER(TRIM(' foo ')))
- INSERT INTO phrase VALUES(2,'baz')
- INSERT INTO phrase VALUES(3,'qux')
- UPDATE phrase SET phrase=UPPER(TRIM(LEADING 'z' FROM 'zbar')) WHERE id=3
- DELETE FROM phrase WHERE id = 2 }
-){
- $sth = $dbh->prepare($_);
- ok($sth->execute($_),$sth->{f_stmt}->command);
-}
-$sth = $dbh->prepare("SELECT UPPER('a') AS A,phrase FROM phrase");
-$sth->execute;
-my $str = '';
-while (my $r=$sth->fetch) { $str.="@$r^"; }
-ok($str eq 'A FOO^A BAR^','SELECT');
-ok(2==$dbh->selectrow_array("SELECT COUNT(*) FROM phrase"),'COUNT *');
-
-#################################
-# COMPUTED COLUMNS IN SELECT LIST
-#################################
-ok('B' eq $dbh->selectrow_array("SELECT UPPER('b')"),'COMPUTED COLUMNS IN SELECT LIST');
-
-###########################
-# CREATE function in script
-###########################
-$dbh->do("CREATE FUNCTION froog");
-sub froog { 99 }
-ok('99'eq $dbh->selectrow_array("SELECT froog"),'CREATE FUNCTION from script');
-
-
-###########################
-# CREATE function in module
-###########################
-BEGIN {
- eval "package Foo; sub foo { 88 } 1;"
-}
-$dbh->do(q{CREATE FUNCTION foo NAME "Foo::foo"});
-ok(88 == $dbh->selectrow_array("SELECT foo"), 'CREATE FUNCTION from module');
-
-################
-# LOAD functions
-################
-unlink 'Bar.pm' if -e 'Bar.pm';
-open(O,'>Bar.pm') or die $!;
-print O "package Bar; sub SQL_FUNCTION_BAR{77};1;";
-close O;
-$dbh->do("LOAD Bar");
-ok(77 == $dbh->selectrow_array("SELECT bar"), 'LOAD FUNCTIONS');
-unlink 'Bar.pm' if -e 'Bar.pm';
-
-####################
-# IMPORT($AoA)
-####################
-$sth = $dbh->prepare("SELECT word FROM IMPORT(?) ORDER BY id DESC");
-my $AoA= [ [qw( id word )],
- [qw( 1 Hacker )],
- [qw( 2 Perl )],
- [qw( 3 Another )],
- [qw( 4 Just )] ];
-
-$sth->execute($AoA);
-$str = '';
-while (my $r=$sth->fetch) { $str.="@$r^"; }
-ok($str eq 'Just^Another^Perl^Hacker^','IMPORT($AoA)');
-
-#######################
-# IMPORT($internal_sth)
-#######################
-$dbh->do($_) for split /\n/,<<"";
- CREATE TEMP TABLE tmp (id INTEGER, xphrase VARCHAR(30))
- INSERT INTO tmp VALUES(1,'foo')
-
-my $internal_sth = $dbh->prepare('SELECT * FROM tmp');
-$internal_sth->execute;
-$sth=$dbh->prepare('SELECT * FROM IMPORT(?)');
-$sth->execute($internal_sth);
-$str = '';
-while (my $r=$sth->fetch) { $str.="@$r^"; }
-ok($str eq '1 foo^','IMPORT($internal_sth)');
-
-#######################
-# IMPORT($external_sth)
-#######################
-eval { require DBD::XBase };
-SKIP: {
- skip('No XBase installed',1) if $@;
- ok(external_sth(),'IMPORT($external_sth)');
-};
-
-sub external_sth {
- my $xb_dbh = DBI->connect('dbi:XBase:./');
- unlink 'xb' if -e 'xb';
- $xb_dbh->do($_) for split /\n/,<<"";
- CREATE TABLE xb (id INTEGER, xphrase VARCHAR(30))
- INSERT INTO xb VALUES(1,'foo')
-
- my $xb_sth = $xb_dbh->prepare('SELECT * FROM xb');
- $xb_sth->execute;
- $sth=$dbh->prepare('SELECT * FROM IMPORT(?)');
- $sth->execute($xb_sth);
- $str = '';
- while (my $r=$sth->fetch) { $str.="@$r^"; }
- $xb_dbh->do("DROP TABLE xb");
- return ($str eq '1 foo^');
-}
-ok( $dbh->do("DROP TABLE phrase"), 'DROP TEMP TABLE');
-__END__
Copied: packages/libsql-statement-perl/branches/upstream/current/t/02executeDirect.t (from rev 953, packages/libsql-statement-perl/branches/upstream/current/t/02execute.t)
Deleted: packages/libsql-statement-perl/branches/upstream/current/t/03join.t
===================================================================
--- packages/libsql-statement-perl/branches/upstream/current/t/03join.t 2005-04-23 00:26:04 UTC (rev 953)
+++ packages/libsql-statement-perl/branches/upstream/current/t/03join.t 2005-04-23 00:46:50 UTC (rev 954)
@@ -1,85 +0,0 @@
-#!/usr/bin/perl -w
-$|=1;
-use strict;
-use Test::More;
-use lib qw( ../lib );
-if ($@) {
- plan skip_all => "No DBD::File available";
-}
-else {
- plan tests => 8;
-}
-use SQL::Statement; printf "SQL::Statement v.%s\n", $SQL::Statement::VERSION;
-use DBI;
-use vars qw($dbh $sth $DEBUG);
-$DEBUG = 0;
-$dbh = DBI->connect('dbi:File(RaiseError=1):');
-$dbh->do($_) for <DATA>;
-
-$sth = $dbh->prepare("SELECT pname,sname FROM Prof NATURAL JOIN Subject");
-ok( 'Sue~Chem^Bob~Bio^Bob~Math^'
- eq query2str($sth),'NATURAL JOIN - with named columns in select list');
-
-
-$sth = $dbh->prepare("SELECT * FROM Prof NATURAL JOIN Subject");
-ok( '1~Sue~Chem^2~Bob~Bio^2~Bob~Math^'
- eq query2str($sth),'NATURAL JOIN - with select list = *');
-
-$sth = $dbh->prepare("
- SELECT UPPER(pname)AS P,Prof.pid,pname,sname FROM Prof NATURAL JOIN Subject
-");
-ok( 'SUE~1~Sue~Chem^BOB~2~Bob~Bio^BOB~2~Bob~Math^'
- eq query2str($sth),'NATURAL JOIN - with computed columns');
-
-$sth = $dbh->prepare("SELECT * FROM Prof LEFT JOIN Subject USING(pid)");
-ok( '1~Sue~Chem^2~Bob~Bio^2~Bob~Math^3~Tom~undef^'
- eq query2str($sth),'LEFT JOIN');
-
-$sth = $dbh->prepare("SELECT * FROM Prof RIGHT JOIN Subject USING(pid)");
-ok( '1~Chem~Sue^2~Bio~Bob^2~Math~Bob^4~English~undef^'
- eq query2str($sth),'RIGHT JOIN');
-
-$sth = $dbh->prepare("SELECT * FROM Prof FULL JOIN Subject USING(pid)");
-ok( '1~Sue~Chem^2~Bob~Bio^2~Bob~Math^3~Tom~undef^4~undef~English^'
- eq query2str($sth),'FULL JOIN');
-
-$sth = $dbh->prepare("
- SELECT * FROM Prof AS P,Subject AS S WHERE P.pid=S.pid
-");
-ok( '1~Sue~1~Chem^2~Bob~2~Bio^2~Bob~2~Math^'
- eq query2str($sth),'IMPLICIT JOIN - two tables');
-
-$sth = $dbh->prepare("
- SELECT *
- FROM Prof AS P,Subject AS S,Room AS R
- WHERE P.pid=S.pid
- AND P.pid=R.pid
-");
-ok( '1~Sue~1~Chem~1~1C^2~Bob~2~Bio~2~2B^2~Bob~2~Math~2~2B^'
- eq query2str($sth),'IMPLICIT JOIN - three tables');
-
-sub query2str {
- my($sth)=@_;
- $sth->execute;
- my $str='';
- while (my $r=$sth->fetch) {
- $str .= sprintf "%s^",join('~',map { defined $_ ? $_ : 'undef' } @$r);
- }
- return $str unless $DEBUG;
- printf "%s\n",join',',@{$sth->{NAME}};
- print "<$str>\n";
- return $str;
-}
-__END__
-CREATE TEMP TABLE Prof (pid INT, pname VARCHAR(30))
-INSERT INTO Prof VALUES (1,'Sue')
-INSERT INTO Prof VALUES (2,'Bob')
-INSERT INTO Prof VALUES (3,'Tom')
-CREATE TEMP TABLE Subject (pid INT, sname VARCHAR(30))
-INSERT INTO Subject VALUES (1,'Chem')
-INSERT INTO Subject VALUES (2,'Bio')
-INSERT INTO Subject VALUES (2,'Math')
-INSERT INTO Subject VALUES (4,'English')
-CREATE TEMP TABLE Room (pid INT, rname VARCHAR(30))
-INSERT INTO Room VALUES (1,'1C')
-INSERT INTO Room VALUES (2,'2B')
Deleted: packages/libsql-statement-perl/branches/upstream/current/t/05create.pl
===================================================================
--- packages/libsql-statement-perl/branches/upstream/current/t/05create.pl 2005-04-23 00:26:04 UTC (rev 953)
+++ packages/libsql-statement-perl/branches/upstream/current/t/05create.pl 2005-04-23 00:46:50 UTC (rev 954)
@@ -1,97 +0,0 @@
-#!/usr/bin/perl -w
-$|=1;
-use strict;
-use Test::More;
-eval { require DBD::File; };
-if ($@) {
- plan skip_all => "No DBD::File available";
-}
-else {
- plan tests => 5;
-}
-use lib qw( ../lib );
-use SQL::Statement; printf "SQL::Statement v.%s\n", $SQL::Statement::VERSION;
-use DBI;
-use vars qw($dbh $sth $DEBUG);
-$dbh = DBI->connect('dbi:File(RaiseError=1):');
-
-########################################
-# CREATE TABLE AS IMPORT($AoA);
-########################################
-my $aoa = [['c1','c2'],[1,9],[2,8] ];
-$dbh->do("CREATE TEMP TABLE aoa AS IMPORT(?)",{},$aoa);
-$sth = $dbh->prepare("SELECT * FROM aoa");
-ok( '1~9^2~8^' eq query2str($sth),'CREATE TABLE AS IMPORT($AoA)' );
-
-########################################
-# CREATE TABLE AS IMPORT($AoH);
-########################################
-my $aoh = [{c1=>1,c2=>9},{c1=>2,c2=>8}];
-$dbh->do("CREATE TEMP TABLE aoh AS IMPORT(?)",{},$aoh);
-$sth = $dbh->prepare("SELECT * FROM aoh");
-ok( '1~9^2~8^' eq query2str($sth),'CREATE TABLE AS IMPORT($AoH)' );
-
-########################################
-# CREATE TABLE AS IMPORT($internal_sth);
-########################################
-$sth = $dbh->prepare("SELECT * FROM aoh");
-$sth->execute;
-$dbh->do("CREATE TEMP TABLE aoi AS IMPORT(?)",{},$sth);
-$sth = $dbh->prepare("SELECT * FROM aoi");
-$sth->execute;
-ok( '1~9^2~8^' eq query2str($sth),'CREATE TABLE AS IMPORT($internal_sth)' );
-
-########################################
-# CREATE TABLE AS IMPORT($external_sth);
-########################################
-eval { require DBD::XBase };
-SKIP: {
- skip('No XBase installed',1) if $@;
- ok(external_sth(),'CREATE TABLE AS IMPORT($external_sth)');
-};
-
-sub external_sth {
- my $xb_dbh = DBI->connect('dbi:XBase:./');
- unlink 'xb' if -e 'xb';
- $xb_dbh->do($_) for split /\n/,<<"";
- CREATE TABLE xb (id INTEGER, xphrase VARCHAR(30))
- INSERT INTO xb VALUES(1,'foo')
-
- my $xb_sth = $xb_dbh->prepare('SELECT * FROM xb');
- $xb_sth->execute;
- $dbh->do("CREATE TEMP TABLE tmpxb AS IMPORT(?)",{},$xb_sth);
- $sth=$dbh->prepare('SELECT * FROM tmpxb');
- $sth->execute;
- my $str='';
- while (my $r=$sth->fetch) { $str.="@$r^"; }
- $xb_dbh->do("DROP TABLE xb");
- return ($str eq '1 foo^');
-}
-
-
-########################
-# CREATE TABLE AS SELECT
-########################
-$dbh->do("CREATE TEMP TABLE tbl_copy AS SELECT * FROM aoa");
-$sth = $dbh->prepare("SELECT * FROM tbl_copy");
-$sth->execute;
-ok( '1~9^2~8^' eq query2str($sth),'CREATE TABLE AS SELECT' );
-
-sub query2str {
- my($sth)=@_;
- $sth->execute;
- my $str='';
- while (my $r=$sth->fetch) {
- $str .= sprintf "%s^",join('~',map { defined $_ ? $_ : 'undef' } @$r);
- }
- return $str unless $DEBUG;
- printf "%s\n",join',',@{$sth->{NAME}};
- print "<$str>\n";
- return $str;
-}
-
-__END__
-#######################
-# IMPORT($external_sth)
-#######################
-__END__
Copied: packages/libsql-statement-perl/branches/upstream/current/t/05create.t (from rev 953, packages/libsql-statement-perl/branches/upstream/current/t/05create.pl)
Copied: packages/libsql-statement-perl/branches/upstream/current/t/08join.t (from rev 953, packages/libsql-statement-perl/branches/upstream/current/t/03join.t)