Deprecate the insane forest of SQLT::Parser::DBIC arguments
[dbsrgits/DBIx-Class.git] / t / 106dbic_carp.t
CommitLineData
8fda97d5 1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use Test::More;
7use Test::Warn;
8use DBIx::Class::Carp;
9use lib 't/lib';
10use DBICTest;
11
12warnings_exist {
13 DBIx::Class::frobnicate();
14} [
15 qr/carp1/,
16 qr/carp2/,
17], 'expected warnings from carp_once';
18
19done_testing;
20
21sub DBIx::Class::frobnicate {
22 DBIx::Class::branch1();
23 DBIx::Class::branch2();
24}
25
26sub DBIx::Class::branch1 { carp_once 'carp1' }
27sub DBIx::Class::branch2 { carp_once 'carp2' }