#!perl
use strict;
use warnings;
use lib 't/lib';
use Test::More;
use TestSchema;
my $schema = TestSchema->deploy_or_connect();
my $rs = $schema->resultset('Gnarly');
my $alias = $rs->current_source_alias;
is $rs->me, "$alias.", 'me without args';
is $rs->me('col'), "$alias.col", 'me with args';
done_testing;