Fix building on perls with no . in @INC

[dbsrgits/DBIx-Class.git] / t / resultset / plus_select.t

diff --git a/t/resultset/plus_select.t b/t/resultset/plus_select.t
index 171779d..d63adad 100644 (file)
--- a/t/resultset/plus_select.t
+++ b/t/resultset/plus_select.t
@@ -1,9 +1,12 @@
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
 use strict;
 use warnings;
 
 use Test::More;
+use Math::BigInt;
+
 
-use lib qw(t/lib);
 use DBICTest;
 
 my $schema = DBICTest->init_schema();
@@ -20,7 +23,7 @@ my %basecols = $cd_rs->first->get_columns;
 # ramifications of changing this. Thus the value override  and the
 # TODO to go with it. Delete all of this if ever resolved.
 my %todo_rel_inflation_override = ( artist => $basecols{artist} );
-TODO: {
+{
   local $TODO = 'Treating relationships as inflatable data is wrong - see comment in ' . __FILE__;
   ok (! keys %todo_rel_inflation_override);
 }
@@ -42,22 +45,18 @@ is_deeply (
   'extra columns returned by get_inflated_columns without inflatable columns',
 );
 
-SKIP: {
-  eval { require DateTime };
-  skip "Need DateTime for +select/get_inflated_columns tests", 1 if $@;
-
-  $schema->class('CD')->inflate_column( 'year',
-    { inflate => sub { DateTime->new( year => shift ) },
-      deflate => sub { shift->year } }
-  );
+# Test object inflation
+$schema->class('CD')->inflate_column( 'year',
+  { inflate => sub { Math::BigInt->new( shift ) },
+    deflate => sub { shift() . '' } }
+);
 
-  $basecols{year} = DateTime->new ( year => $basecols{year} );
+$basecols{year} = Math::BigInt->new( $basecols{year} );
 
-  is_deeply (
-    { $plus_rs->first->get_inflated_columns, %todo_rel_inflation_override },
-    { %basecols, tr_cnt => $track_cnt },
-    'extra columns returned by get_inflated_columns',
-  );
-}
+is_deeply (
+  { $plus_rs->first->get_inflated_columns, %todo_rel_inflation_override },
+  { %basecols, tr_cnt => $track_cnt },
+  'extra columns returned by get_inflated_columns',
+);
 
 done_testing;