[Bast-commits] r8823 - in SQL-Abstract/1.x/trunk: . lib/SQL/Abstract t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-02-26 23:25:13 +0000 (Fri, 26 Feb 2010)
New Revision: 8823

Modified:
   SQL-Abstract/1.x/trunk/Makefile.PL
   SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Test.pm
   SQL-Abstract/1.x/trunk/t/04modifiers.t
Log:
Lose a couple of oddball dependencies (while moronizing the tests a bit)

Modified: SQL-Abstract/1.x/trunk/Makefile.PL
===================================================================
--- SQL-Abstract/1.x/trunk/Makefile.PL	2010-02-25 23:22:50 UTC (rev 8822)
+++ SQL-Abstract/1.x/trunk/Makefile.PL	2010-02-26 23:25:13 UTC (rev 8823)
@@ -10,15 +10,14 @@
 
 all_from 'lib/SQL/Abstract.pm';
 
-requires "List::Util"   => 0;
-requires "Scalar::Util" => 0;
+requires 'List::Util'   => 0;
+requires 'Scalar::Util' => 0;
+requires 'Storable'     => 0;
 
 test_requires "Test::Builder"   => 0;
-test_requires "Test::Deep"      => 0;
 test_requires "Test::More"      => 0;
 test_requires "Test::Exception" => 0;
 test_requires "Test::Warn"      => 0;
-test_requires "Clone"           => 0.31;
 
 tests_recursive 't';
 

Modified: SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Test.pm
===================================================================
--- SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Test.pm	2010-02-25 23:22:50 UTC (rev 8822)
+++ SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Test.pm	2010-02-26 23:25:13 UTC (rev 8823)
@@ -6,7 +6,6 @@
 use Data::Dumper;
 use Carp;
 use Test::Builder;
-use Test::Deep qw(eq_deeply);
 
 our @EXPORT_OK = qw/&is_same_sql_bind &is_same_sql &is_same_bind
                     &eq_sql_bind &eq_sql &eq_bind 
@@ -177,7 +176,10 @@
 sub eq_bind {
   my ($bind_ref1, $bind_ref2) = @_;
 
-  return eq_deeply($bind_ref1, $bind_ref2);
+  local $Data::Dumper::Useqq = 1;
+  local $Data::Dumper::Sortkeys = 1;
+
+  return Dumper($bind_ref1) eq Dumper($bind_ref2);
 }
 
 sub eq_sql {

Modified: SQL-Abstract/1.x/trunk/t/04modifiers.t
===================================================================
--- SQL-Abstract/1.x/trunk/t/04modifiers.t	2010-02-25 23:22:50 UTC (rev 8822)
+++ SQL-Abstract/1.x/trunk/t/04modifiers.t	2010-02-26 23:25:13 UTC (rev 8823)
@@ -7,8 +7,8 @@
 use SQL::Abstract::Test import => ['is_same_sql_bind'];
 
 use Data::Dumper;
+use Storable qw/dclone/;
 use SQL::Abstract;
-use Clone;
 
 =begin
 Test -and -or and -nest modifiers, assuming the following:
@@ -384,7 +384,7 @@
     local $SIG{__WARN__} = sub { push @w, @_ };
 
     my $sql = SQL::Abstract->new ($case->{args} || {});
-    my $where_copy = Clone::clone ($case->{where});
+    my $where_copy = dclone($case->{where});
 
     lives_ok (sub { 
       my ($stmt, @bind) = $sql->where($case->{where});