[Bast-commits] r4287 - in trunk/DBIx-Class-InflateColumn-Currency: . lib/DBIx/Class/InflateColumn t/lib/DBIC

[claco at dev.catalyst.perl.org]

Author: claco
Date: 2008-04-23 02:29:14 +0100 (Wed, 23 Apr 2008)
New Revision: 4287

Removed:
   trunk/DBIx-Class-InflateColumn-Currency/Build.PL
Modified:
   trunk/DBIx-Class-InflateColumn-Currency/
   trunk/DBIx-Class-InflateColumn-Currency/Changes
   trunk/DBIx-Class-InflateColumn-Currency/Makefile.PL
   trunk/DBIx-Class-InflateColumn-Currency/lib/DBIx/Class/InflateColumn/Currency.pm
   trunk/DBIx-Class-InflateColumn-Currency/t/lib/DBIC/Test.pm
Log:
 r1540 at mbp:  claco | 2008-04-22 21:28:49 -0400
 Fix test failure under SQL::Translator <= 0.07
 Removed Build.PL now that Module::Install no longer supports it
 Removed bogus tests entry in Makefile.PL



Property changes on: trunk/DBIx-Class-InflateColumn-Currency
___________________________________________________________________
Name: svk:merge
   - 58586828-bfeb-4a8b-ac3c-3302daf284f8:/local/DBIx-Class-InflateColumn-Currency:1294
d21250e9-0eb8-4cf9-8d68-8684fda3ee2b:/local/DBIx-Class-InflateColumn-Currency:1672
   + 58586828-bfeb-4a8b-ac3c-3302daf284f8:/local/DBIx-Class-InflateColumn-Currency:1540
d21250e9-0eb8-4cf9-8d68-8684fda3ee2b:/local/DBIx-Class-InflateColumn-Currency:1672

Deleted: trunk/DBIx-Class-InflateColumn-Currency/Build.PL
===================================================================
--- trunk/DBIx-Class-InflateColumn-Currency/Build.PL	2008-04-23 01:19:34 UTC (rev 4286)
+++ trunk/DBIx-Class-InflateColumn-Currency/Build.PL	2008-04-23 01:29:14 UTC (rev 4287)
@@ -1,2 +0,0 @@
-# $Id$
-require 'Makefile.PL';

Modified: trunk/DBIx-Class-InflateColumn-Currency/Changes
===================================================================
--- trunk/DBIx-Class-InflateColumn-Currency/Changes	2008-04-23 01:19:34 UTC (rev 4286)
+++ trunk/DBIx-Class-InflateColumn-Currency/Changes	2008-04-23 01:29:14 UTC (rev 4287)
@@ -1,5 +1,10 @@
 Revision history for DBIx::Class::InflateColumn::Currency
 
+0.02004 Mon Apr 22 21:22:44 2008
+    - Fix test failure under SQL::Translator <= 0.07
+    - Removed Build.PL now that Module::Install no longer supports it
+    - Removed bogus tests entry in Makefile.PL
+
 0.02002 Fri Mar 7 19:12:33 2008
     - Fixed CPANTS bogus META
 

Modified: trunk/DBIx-Class-InflateColumn-Currency/Makefile.PL
===================================================================
--- trunk/DBIx-Class-InflateColumn-Currency/Makefile.PL	2008-04-23 01:19:34 UTC (rev 4286)
+++ trunk/DBIx-Class-InflateColumn-Currency/Makefile.PL	2008-04-23 01:29:14 UTC (rev 4287)
@@ -14,7 +14,7 @@
 build_requires 'DBD::SQLite'              => '1.11';
 build_requires 'Class::Accessor::Grouped' => '0.03';
 
-tests "t/*.t t/*/*.t";
+tests 't/*.t';
 clean_files "DBIx-Class-InflateColumn-Currency-* t/var";
 
 eval {

Modified: trunk/DBIx-Class-InflateColumn-Currency/lib/DBIx/Class/InflateColumn/Currency.pm
===================================================================
--- trunk/DBIx-Class-InflateColumn-Currency/lib/DBIx/Class/InflateColumn/Currency.pm	2008-04-23 01:19:34 UTC (rev 4286)
+++ trunk/DBIx-Class-InflateColumn-Currency/lib/DBIx/Class/InflateColumn/Currency.pm	2008-04-23 01:29:14 UTC (rev 4287)
@@ -1,7 +1,7 @@
 package DBIx::Class::InflateColumn::Currency;
 use strict;
 use warnings;
-our $VERSION = '0.02002';
+our $VERSION = '0.02003';
 
 BEGIN {
     use base qw/DBIx::Class Class::Accessor::Grouped/;

Modified: trunk/DBIx-Class-InflateColumn-Currency/t/lib/DBIC/Test.pm
===================================================================
--- trunk/DBIx-Class-InflateColumn-Currency/t/lib/DBIC/Test.pm	2008-04-23 01:19:34 UTC (rev 4286)
+++ trunk/DBIx-Class-InflateColumn-Currency/t/lib/DBIC/Test.pm	2008-04-23 01:29:14 UTC (rev 4287)
@@ -60,26 +60,16 @@
     my ($self, $schema, %options) = @_;
     my $eval = $options{'eval_deploy'};
 
-    eval 'use SQL::Translator';
-    if (!$@ && !$options{'no_deploy'}) {
-        eval {
-            $schema->deploy();
-        };
-        if ($@ && !$eval) {
-            die $@;
-        };
-    } else {
-        open IN, catfile('t', 'sql', 'test.sqlite.sql');
-        my $sql;
-        { local $/ = undef; $sql = <IN>; }
-        close IN;
-        eval {
-            ($schema->storage->dbh->do($_) || print "Error on SQL: $_\n") for split(/;\n/, $sql);
-        };
-        if ($@ && !$eval) {
-            die $@;
-        };
+    open IN, catfile('t', 'sql', 'test.sqlite.sql');
+    my $sql;
+    { local $/ = undef; $sql = <IN>; }
+    close IN;
+    eval {
+        ($schema->storage->dbh->do($_) || print "Error on SQL: $_\n") for split(/;\n/, $sql);
     };
+    if ($@ && !$eval) {
+        die $@;
+    };
 };
 
 sub clear_schema {