use
strict;
use
warnings;
use
Test::More;
use
DBIx::Sunny;
use
TestSchema;
my
$dbh
= DBIx::Sunny->
connect
(
'dbi:SQLite::memory:'
,
''
,
''
);
my
$schema
= TestSchema->new(
dbh
=>
$dbh
);
my
$created
=
localtime
;
is(
$schema
->deflate_args(
created
=>
$created
),
'TestTm'
);
done_testing;