From: Simon Elliott <cpan@browsing.co.uk>
Date: Wed, 19 Apr 2006 18:57:26 +0000 (+0000)
Subject: =Test for Data::Dumper::Sortkeys incompatibility (export DATA_DUMPER_TEST=1).
X-Git-Tag: v0.06002~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2c0c56b73b65d32d166032b1ff348fd3892b9635;p=dbsrgits%2FDBIx-Class.git

=Test for Data::Dumper::Sortkeys incompatibility (export DATA_DUMPER_TEST=1).
---

diff --git a/t/26dumper.t b/t/26dumper.t
new file mode 100644
index 0000000..6904fdc
--- /dev/null
+++ b/t/26dumper.t
@@ -0,0 +1,36 @@
+use strict;
+use Test::More;
+use IO::File;
+
+use Data::Dumper;
+$Data::Dumper::Sortkeys = 1;
+
+use lib qw(t/lib);
+
+BEGIN {
+    eval "use DBD::SQLite";
+    plan $ENV{DATA_DUMPER_TEST}
+        ? ( tests => 3 )
+        : ( skip_all => 'Set $ENV{DATA_DUMPER_TEST} to run this test' );
+}
+
+
+use_ok('DBICTest');
+use_ok('DBICTest::HelperRels');
+
+
+my $rs = DBICTest::CD->search(
+           { 'artist.name' => 'We Are Goth',
+             'liner_notes.notes' => 'Kill Yourself!' },
+           { join => [ qw/artist liner_notes/ ] });
+
+Dumper($rs);
+
+$rs = DBICTest::CD->search(
+           { 'artist.name' => 'We Are Goth',
+             'liner_notes.notes' => 'Kill Yourself!' },
+           { join => [ qw/artist liner_notes/ ] });
+
+cmp_ok( $rs + 0, '==', 1, "Single record in after death with dumper");
+
+1;