r29260 - in /branches/upstream/liborlite-perl/current: Changes META.yml README lib/ORLite.pm t/02_basics.t t/lib/Test.pm

[rmayorga-guest at users.alioth.debian.org]

Author: rmayorga-guest
Date: Mon Jan  5 01:06:05 2009
New Revision: 29260

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29260
Log:
[svn-upgrade] Integrating new upstream version, liborlite-perl (1.17)

Modified:
    branches/upstream/liborlite-perl/current/Changes
    branches/upstream/liborlite-perl/current/META.yml
    branches/upstream/liborlite-perl/current/README
    branches/upstream/liborlite-perl/current/lib/ORLite.pm
    branches/upstream/liborlite-perl/current/t/02_basics.t
    branches/upstream/liborlite-perl/current/t/lib/Test.pm

Modified: branches/upstream/liborlite-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/Changes?rev=29260&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/Changes (original)
+++ branches/upstream/liborlite-perl/current/Changes Mon Jan  5 01:06:05 2009
@@ -1,6 +1,9 @@
 Changes for Perl extension ORLite
 
-1.16 Sen 14 Dec 2008
+1.17 Sat  3 Jan 2009
+	- Adding a ->truncate method to each table
+
+1.16 Sat 14 Dec 2008
 	- The fact that I didn't need to change ORLite for ORLite::Migrate
 	  suggests that it's stable enough for general use (pending 2.0)
 

Modified: branches/upstream/liborlite-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/META.yml?rev=29260&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/META.yml (original)
+++ branches/upstream/liborlite-perl/current/META.yml Mon Jan  5 01:06:05 2009
@@ -25,4 +25,4 @@
   perl: 5.6.0
 resources:
   license: http://dev.perl.org/licenses/
-version: 1.16
+version: 1.17

Modified: branches/upstream/liborlite-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/README?rev=29260&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/README (original)
+++ branches/upstream/liborlite-perl/current/README Mon Jan  5 01:06:05 2009
@@ -250,7 +250,7 @@
     Adam Kennedy <adamk at cpan.org>
 
 COPYRIGHT
-    Copyright 2008 Adam Kennedy.
+    Copyright 2008 - 2009 Adam Kennedy.
 
     This program is free software; you can redistribute it and/or modify it
     under the same terms as Perl itself.

Modified: branches/upstream/liborlite-perl/current/lib/ORLite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/lib/ORLite.pm?rev=29260&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/lib/ORLite.pm (original)
+++ branches/upstream/liborlite-perl/current/lib/ORLite.pm Mon Jan  5 01:06:05 2009
@@ -12,7 +12,7 @@
 
 use vars qw{$VERSION};
 BEGIN {
-	$VERSION = '1.16';
+	$VERSION = '1.17';
 
 	# DBD::SQLite has a bug that generates a spurious warning
 	# at compile time, so we need to temporarily disable them.
@@ -308,6 +308,10 @@
 	);
 }
 
+sub truncate {
+	$pkg->do( 'delete from $table->{name}', {} );
+}
+
 END_PERL
 
 			}
@@ -631,7 +635,7 @@
 
 =head1 COPYRIGHT
 
-Copyright 2008 Adam Kennedy.
+Copyright 2008 - 2009 Adam Kennedy.
 
 This program is free software; you can redistribute
 it and/or modify it under the same terms as Perl itself.

Modified: branches/upstream/liborlite-perl/current/t/02_basics.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/t/02_basics.t?rev=29260&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/t/02_basics.t (original)
+++ branches/upstream/liborlite-perl/current/t/02_basics.t Mon Jan  5 01:06:05 2009
@@ -9,7 +9,7 @@
 	$^W = 1;
 }
 
-use Test::More tests => 47;
+use Test::More tests => 49;
 use File::Spec::Functions ':ALL';
 use t::lib::Test;
 
@@ -127,3 +127,9 @@
 	ok( Foo::Bar->commit, '->commit' );
 	is( Foo::Bar::TableOne->count, 1, 'Commit ok' );
 }
+
+# Truncate
+SCOPE: {
+	ok( Foo::Bar::TableOne->truncate, '->truncate ok' );
+	is( Foo::Bar::TableOne->count, 0, 'Commit ok' );	
+}

Modified: branches/upstream/liborlite-perl/current/t/lib/Test.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/t/lib/Test.pm?rev=29260&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/t/lib/Test.pm (original)
+++ branches/upstream/liborlite-perl/current/t/lib/Test.pm Mon Jan  5 01:06:05 2009
@@ -8,7 +8,7 @@
 
 use vars qw{$VERSION @ISA @EXPORT};
 BEGIN {
-        $VERSION = '1.16';
+        $VERSION = '1.17';
 	@ISA     = qw{ Exporter };
 	@EXPORT  = qw{ test_db connect_ok create_ok };
 }