Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

28 lines (22 sloc) 0.662 kb
use strict;
use warnings;
use t::Utils;
use TheSchwartz::Moosified;
plan tests => 12;
foreach $::prefix ("", "someprefix") {
run_test {
my $dbh1 = shift;
run_test {
my $dbh2 = shift;
my $sch = TheSchwartz::Moosified->new();
$sch->databases([$dbh1, $dbh2]);
$sch->prefix($::prefix) if $::prefix;
isa_ok $sch, 'TheSchwartz::Moosified';
is $sch->funcname_to_id($dbh1, 'foo'), 1;
is $sch->funcname_to_id($dbh1, 'bar'), 2;
is $sch->funcname_to_id($dbh1, 'foo'), 1;
is $sch->funcname_to_id($dbh1, 'baz'), 3;
is $sch->funcname_to_id($dbh2, 'bar'), 1, 'other dbh';
Jump to Line
Something went wrong with that request. Please try again.