r968 - in packages/libsql-statement-perl/trunk: . debian lib/SQL lib/SQL/Statement t
Gunnar Wolf
gwolf@costa.debian.org
Wed, 04 May 2005 13:30:24 +0000
Author: gwolf
Date: 2005-05-04 13:30:22 +0000 (Wed, 04 May 2005)
New Revision: 968
Modified:
packages/libsql-statement-perl/trunk/Changes
packages/libsql-statement-perl/trunk/META.yml
packages/libsql-statement-perl/trunk/debian/changelog
packages/libsql-statement-perl/trunk/lib/SQL/Statement.pm
packages/libsql-statement-perl/trunk/lib/SQL/Statement/Syntax.pod
packages/libsql-statement-perl/trunk/t/00error.t
packages/libsql-statement-perl/trunk/t/03executeDBD.t
packages/libsql-statement-perl/trunk/t/04names.t
packages/libsql-statement-perl/trunk/t/05create.t
packages/libsql-statement-perl/trunk/t/06group.t
packages/libsql-statement-perl/trunk/t/07case.t
packages/libsql-statement-perl/trunk/t/08join.t
packages/libsql-statement-perl/trunk/t/10limit.t
packages/libsql-statement-perl/trunk/t/11functions.t
packages/libsql-statement-perl/trunk/t/12eval.t
packages/libsql-statement-perl/trunk/t/13call.t
packages/libsql-statement-perl/trunk/t/14allcols.t
packages/libsql-statement-perl/trunk/t/SQLtest.pm
Log:
New upstream version
Modified: packages/libsql-statement-perl/trunk/Changes
===================================================================
--- packages/libsql-statement-perl/trunk/Changes 2005-05-04 13:27:13 UTC (rev 967)
+++ packages/libsql-statement-perl/trunk/Changes 2005-05-04 13:30:22 UTC (rev 968)
@@ -1,5 +1,9 @@
Changes log for Perl extension SQL::Statement
+Version 1.14, released 21 April, 2005
+----------------------------------------
+ * fixed circular dependency in tests (one mistakenly required AnyData)
+
Version 1.13, released 18 April, 2005
----------------------------------------
* pod fixes
Modified: packages/libsql-statement-perl/trunk/META.yml
===================================================================
--- packages/libsql-statement-perl/trunk/META.yml 2005-05-04 13:27:13 UTC (rev 967)
+++ packages/libsql-statement-perl/trunk/META.yml 2005-05-04 13:30:22 UTC (rev 968)
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: SQL-Statement
-version: 1.13
+version: 1.14
version_from: ./lib/SQL/Statement.pm
installdirs: site
requires:
Modified: packages/libsql-statement-perl/trunk/debian/changelog
===================================================================
--- packages/libsql-statement-perl/trunk/debian/changelog 2005-05-04 13:27:13 UTC (rev 967)
+++ packages/libsql-statement-perl/trunk/debian/changelog 2005-05-04 13:30:22 UTC (rev 968)
@@ -1,3 +1,9 @@
+libsql-statement-perl (1.14-1) unstable; urgency=medium
+
+ * New upstream release
+
+ -- Gunnar Wolf <gwolf@debian.org> Wed, 4 May 2005 08:27:10 -0500
+
libsql-statement-perl (1.13-1) unstable; urgency=low
* New upstream release
Modified: packages/libsql-statement-perl/trunk/lib/SQL/Statement/Syntax.pod
===================================================================
--- packages/libsql-statement-perl/trunk/lib/SQL/Statement/Syntax.pod 2005-05-04 13:27:13 UTC (rev 967)
+++ packages/libsql-statement-perl/trunk/lib/SQL/Statement/Syntax.pod 2005-05-04 13:30:22 UTC (rev 968)
@@ -317,7 +317,7 @@
=head4 RUN()
-Run SQL statements from a user supplied file.
+Run SQL statements from a user supplied file. <b>Please Note:</b> this function is experimental, please let me know if you have problems.
RUN( sql_file )
Modified: packages/libsql-statement-perl/trunk/lib/SQL/Statement.pm
===================================================================
--- packages/libsql-statement-perl/trunk/lib/SQL/Statement.pm 2005-05-04 13:27:13 UTC (rev 967)
+++ packages/libsql-statement-perl/trunk/lib/SQL/Statement.pm 2005-05-04 13:30:22 UTC (rev 968)
@@ -31,7 +31,7 @@
#use locale;
-$VERSION = '1.13';
+$VERSION = '1.14';
$dlm = '~';
$arg_num=0;
$warg_num=0;
Property changes on: packages/libsql-statement-perl/trunk/t/00error.t
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libsql-statement-perl/trunk/t/03executeDBD.t
===================================================================
--- packages/libsql-statement-perl/trunk/t/03executeDBD.t 2005-05-04 13:27:13 UTC (rev 967)
+++ packages/libsql-statement-perl/trunk/t/03executeDBD.t 2005-05-04 13:30:22 UTC (rev 968)
@@ -12,7 +12,7 @@
plan skip_all => "Requires DBI and DBD::File";
}
else {
- plan tests => 18;
+ plan tests => 16;
}
my($sth,$str);
my $dbh = DBI->connect('dbi:File(RaiseError=1):');
@@ -128,15 +128,15 @@
return ($str eq '1 foo^');
}
-my $foo;
-sub test2 {$foo = 6;}
-open(O,'>','tmpss.sql') or die $!;
-print O "SELECT test2";
-close O;
-$dbh->do("CREATE FUNCTION test2");
-ok($dbh->do(q{CALL RUN('tmpss.sql')}),'run');
-ok(6==$foo,'call run');
-unlink 'tmpss.sql' if -e 'tmpss.sql';
+#my $foo=0;
+#sub test2 {$foo = 6;}
+#open(O,'>','tmpss.sql') or die $!;
+#print O "SELECT test2";
+#close O;
+#$dbh->do("CREATE FUNCTION test2");
+#ok($dbh->do(q{CALL RUN('tmpss.sql')}),'run');
+#ok(6==$foo,'call run');
+#unlink 'tmpss.sql' if -e 'tmpss.sql';
ok( $dbh->do("DROP TABLE phrase"), 'DROP TEMP TABLE');
Modified: packages/libsql-statement-perl/trunk/t/04names.t
===================================================================
--- packages/libsql-statement-perl/trunk/t/04names.t 2005-05-04 13:27:13 UTC (rev 967)
+++ packages/libsql-statement-perl/trunk/t/04names.t 2005-05-04 13:30:22 UTC (rev 968)
@@ -3,9 +3,9 @@
use strict;
use Test::More;
use lib qw( ../lib );
-{require DBD::File;}
+eval {require DBI; require DBD::File;};
if ($@) {
- plan skip_all => "No DBD::File available";
+ plan skip_all => "DBI or DBD::File not available";
}
elsif ($DBD::File::VERSION < '0.033' ) {
plan skip_all => "Tests require DBD::File => 0.33";
@@ -14,7 +14,6 @@
plan tests => 2;
}
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):');
Modified: packages/libsql-statement-perl/trunk/t/05create.t
===================================================================
--- packages/libsql-statement-perl/trunk/t/05create.t 2005-05-04 13:27:13 UTC (rev 967)
+++ packages/libsql-statement-perl/trunk/t/05create.t 2005-05-04 13:30:22 UTC (rev 968)
@@ -2,16 +2,15 @@
$|=1;
use strict;
use Test::More;
-eval { require DBD::File; };
+eval { require DBI; require DBD::File; };
if ($@) {
- plan skip_all => "No DBD::File available";
+ plan skip_all => "No DBI or 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):');
Modified: packages/libsql-statement-perl/trunk/t/06group.t
===================================================================
--- packages/libsql-statement-perl/trunk/t/06group.t 2005-05-04 13:27:13 UTC (rev 967)
+++ packages/libsql-statement-perl/trunk/t/06group.t 2005-05-04 13:30:22 UTC (rev 968)
@@ -4,8 +4,9 @@
use Test::More;
use lib qw( ../lib );
use vars qw($DEBUG);
+eval { require DBI; require DBD::File; };
if ($@) {
- plan skip_all => "No DBD::File available";
+ plan skip_all => "No DBI or DBD::File available";
}
else {
plan tests => 3;
Modified: packages/libsql-statement-perl/trunk/t/07case.t
===================================================================
--- packages/libsql-statement-perl/trunk/t/07case.t 2005-05-04 13:27:13 UTC (rev 967)
+++ packages/libsql-statement-perl/trunk/t/07case.t 2005-05-04 13:30:22 UTC (rev 968)
@@ -1,28 +1,21 @@
#!/usr/bin/perl -w
$|=1;
use strict;
-# /home/jeff/data/module/SQL-Statement/SQL-Statement-0.1021/blib/lib
-# /home/jeff/data/module/SQL-Statement/SQL-Statement-0.1021/blib/arch
-# /home/jeff/data/module/DBD-AnyData/current/lib
-# ../lib
-use lib qw(
-);
+use lib qw( ../lib );
use vars qw($DEBUG);
use Test::More;
-{require DBD::File;}
+eval { require DBI; require DBD::File;};
if ($@) {
- plan skip_all => "No DBD::File available";
+ plan skip_all => "No DBI or DBD::File available";
}
elsif ($DBD::File::VERSION < '0.033' ) {
- plan skip_all => "Tests require DBD::File => 0.33";
+ plan skip_all => "Tests require DBD::File >= 0.33";
}
else {
- plan tests => 16;
+ plan tests => 12;
}
use SQL::Statement; printf "SQL::Statement v.%s\n", $SQL::Statement::VERSION;
-use DBD::AnyData; printf "DBD::AnyData v.%s\n", $DBD::AnyData::VERSION;
-use DBD::File; printf "DBD::File v.%s\n", $DBD::File::VERSION;
-my $dbh=DBI->connect('dbi:AnyData(RaiseError=0):');
+my $dbh=DBI->connect('dbi:File(RaiseError=0):');
my $t='TEMP';
my %create = (
@@ -37,7 +30,7 @@
asterisked => "SELECT * FROM tbl WHERE 1=0",
);
-$DEBUG=1;
+$DEBUG=0;
if ($DEBUG) {
my $pg = DBI->connect('dbi:Pg(RaiseError=1):dbname=test1');
# eval { $pg->do("DROP TABLE pg") };
@@ -72,7 +65,7 @@
}
for my $create_case(qw(lower upper mixed)) {
- eval{ $dbh->do("DROP TABLE tbl") };
+ eval{ $dbh->do("DROP TABLE IF EXISTS tbl") };
$dbh->do( $create{$create_case} );
for my $query_case(qw(lower upper mixed asterisked)) {
my $sth = $dbh->prepare( $query{$query_case} );
Modified: packages/libsql-statement-perl/trunk/t/08join.t
===================================================================
--- packages/libsql-statement-perl/trunk/t/08join.t 2005-05-04 13:27:13 UTC (rev 967)
+++ packages/libsql-statement-perl/trunk/t/08join.t 2005-05-04 13:30:22 UTC (rev 968)
@@ -3,6 +3,7 @@
use strict;
use Test::More;
use lib qw( ../lib );
+eval { require DBI; require DBD::File;};
if ($@) {
plan skip_all => "No DBD::File available";
}
@@ -10,7 +11,6 @@
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):');
Property changes on: packages/libsql-statement-perl/trunk/t/10limit.t
___________________________________________________________________
Name: svn:executable
+ *
Property changes on: packages/libsql-statement-perl/trunk/t/11functions.t
___________________________________________________________________
Name: svn:executable
+ *
Property changes on: packages/libsql-statement-perl/trunk/t/12eval.t
___________________________________________________________________
Name: svn:executable
+ *
Property changes on: packages/libsql-statement-perl/trunk/t/13call.t
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libsql-statement-perl/trunk/t/14allcols.t
===================================================================
--- packages/libsql-statement-perl/trunk/t/14allcols.t 2005-05-04 13:27:13 UTC (rev 967)
+++ packages/libsql-statement-perl/trunk/t/14allcols.t 2005-05-04 13:30:22 UTC (rev 968)
@@ -5,16 +5,15 @@
$|=1;
use strict;
use Test::More;
-eval { require DBD::File; };
+eval { require DBI; require DBD::File; };
if ($@) {
- plan skip_all => "No DBD::File available";
+ plan skip_all => "No DBI or DBD::File available";
}
else {
plan tests => 1;
}
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):') or die "Can't create dbi:File connection";
Property changes on: packages/libsql-statement-perl/trunk/t/14allcols.t
___________________________________________________________________
Name: svn:executable
+ *
Property changes on: packages/libsql-statement-perl/trunk/t/SQLtest.pm
___________________________________________________________________
Name: svn:executable
+ *