Merge branch 'master' into topic/constructor_rewrite

[dbsrgits/DBIx-Class.git] / t / 106dbic_carp.t

diff --git a/t/106dbic_carp.t b/t/106dbic_carp.t
new file mode 100644 (file)
index 0000000..8bd65eb
--- /dev/null
+++ b/t/106dbic_carp.t
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Warn;
+use DBIx::Class::Carp;
+use lib 't/lib';
+use DBICTest;
+
+warnings_exist {
+  DBIx::Class::frobnicate();
+} [
+  qr/carp1/,
+  qr/carp2/,
+], 'expected warnings from carp_once';
+
+done_testing;
+
+sub DBIx::Class::frobnicate {
+  DBIx::Class::branch1();
+  DBIx::Class::branch2();
+}
+
+sub DBIx::Class::branch1 { carp_once 'carp1' }
+sub DBIx::Class::branch2 { carp_once 'carp2' }