From: Tomas Doran <bobtfish@bobtfish.net>
Date: Thu, 14 May 2009 13:41:46 +0000 (+0000)
Subject: Add tests for my fail. Fixed already with the dependencies in Makefile.PL
X-Git-Tag: v0.26~36
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=924bf2b9c2401af43810bcca4068de3d6e2fa507;hp=9040789a59b22a0d72fd975cac66149ee63e82fb;p=catagits%2FCatalyst-Model-DBIC-Schema.git

Add tests for my fail. Fixed already with the dependencies in Makefile.PL
---

diff --git a/Changes b/Changes
index 9f6aed9..5f17647 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension Catalyst::Model::DBIC::Schema
 
+        - Add tests for issues with Class::C3 which are caused to
+          applications which use new Catalyst but old DBIC, and have
+          use Class::C3 in the MyApp class (t0m)
         - warn on empty schema
         - create=dynamic deprecation warning
         - conversion to Moose (of Model, helper to follow)
diff --git a/t/06c3_issues.t b/t/06c3_issues.t
new file mode 100644
index 0000000..87a60a6
--- /dev/null
+++ b/t/06c3_issues.t
@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+
+use FindBin qw/$Bin/;
+use lib "$Bin/lib";
+
+use Test::More tests => 1;
+
+# This fails for me on 5.8.8 with the following module versions:
+#
+# Class:C3                 0.21
+# Class::C3::Componentised 1.0005
+# DBIx::Class              0.08013 (0.08099_05 works)
+
+use TestAppC3Fail;
+
diff --git a/t/lib/TestAppC3Fail.pm b/t/lib/TestAppC3Fail.pm
new file mode 100644
index 0000000..f49d326
--- /dev/null
+++ b/t/lib/TestAppC3Fail.pm
@@ -0,0 +1,25 @@
+package TestAppC3Fail;
+use strict;
+use warnings;
+use Class::C3; # This causes the fail, saying use MRO::Compat is fine..
+
+our $VERSION = '0.0001';
+
+use Catalyst::Runtime '5.70';
+use Catalyst;
+
+__PACKAGE__->config(
+    name => 'TestAppC3Fail',
+);
+
+my @keys = sort keys( %{ __PACKAGE__->config } );
+
+__PACKAGE__->setup;
+
+my @new_keys = sort keys( %{ __PACKAGE__->config } );
+use Test::More;
+
+is_deeply(\@new_keys, \@keys, 'Config keys correct');
+
+1;
+
diff --git a/t/lib/TestAppC3Fail/Model/DB.pm b/t/lib/TestAppC3Fail/Model/DB.pm
new file mode 100644
index 0000000..9457699
--- /dev/null
+++ b/t/lib/TestAppC3Fail/Model/DB.pm
@@ -0,0 +1,11 @@
+package TestAppC3Fail::Model::DB;
+use strict;
+use warnings;
+use base 'Catalyst::Model::DBIC::Schema';
+
+__PACKAGE__->config(
+    schema_class => 'TestAppC3Fail::Schema::DB',
+    connect_info => [ 'DBI:SQLite:dbname=foo', '', '' ],
+);
+
+1;
diff --git a/t/lib/TestAppC3Fail/Schema/DB.pm b/t/lib/TestAppC3Fail/Schema/DB.pm
new file mode 100644
index 0000000..db6bb93
--- /dev/null
+++ b/t/lib/TestAppC3Fail/Schema/DB.pm
@@ -0,0 +1,11 @@
+package TestAppC3Fail::Schema::DB;
+
+use strict;
+use warnings;
+
+use base 'DBIx::Class::Schema';
+
+__PACKAGE__->load_classes;
+
+1;
+