CPAN::Groonga

CHAZKA_CUD_OK' );
$brchen = App::Dochazka::REST::Model::Employee->spawn( %{ $status->payload } );
isnt( $brchen->eid, 99999 );
is( $brchen->eid, $eid_of_brchen );
$brchenprime = App::Dochazka::REST::M

DOCHAZKA_CUD_OK' );
$mrfu = App::Dochazka::REST::Model::Employee->spawn( %{ $status->payload } );
isnt( $mrfu->nick, 'brotherchen' );
is( $mrfu->nick, 'mrfu' );
my $mrfuprime = App::Dochazka::REST::Mo

$status->payload->{'nick'}, 'mrfutra' );
is( $status->payload->{'fullname'}, 'Rovnou do futer' );
isnt( $status->payload->{'eid'}, 534 );
my $eid_of_mrfutra = $status->payload->{'eid'};

note( 'bogus 

tus->payload->{'documentation'} ) > 10 );
isnt( $status->payload->{'documentation'}, $docustr, "We are not getting the same string over and over again" );
isnt( $docustr_len, length( $status->payload-

tus->payload->{'documentation'} ) > 10 );
isnt( $status->payload->{'documentation'}, $docustr, "We are not getting the same string over and over again" );
isnt( $docustr_len, length( $status->payload-

us = $fo->_vet_date_spec(
    date_list => undef,
    tsrange => undef,
);
ok( $status->not_ok );
isnt( $fo->context, undef );

note( $note = 'vet some valid date lists' );
$log->info( "=== $note" );

 2016-01-02 2016-01-03 ) ];
$status = $fo->_vet_date_list( date_list => $dl );
ok( $status->ok );
isnt( $fo->context, undef );
is_deeply( 
    $fo->date_list, 
    [ qw( 2016-01-01 2016-01-02 2016-01-

empt to _vet_tsrange bogus tsranges individually' );
$log->info( "=== $note" );
reset_obj( $fo );
isnt( $fo->context, undef );
my $bogus = [
        "[)",
        "[,)",
        "[ ,)",
        "(2014

->insert( $faux_context );
ok( $status->ok, "Mrs. Fu inserted" );
my $eid_of_mrsfu = $emp->{eid};
isnt( $eid_of_mrsfu, $eid_of_mrfu, "Mr. and Mrs. Fu are distinct entities" );

note( 'recycle the obje

>encode( $intvls );
my $status = req( $test, 201, 'root', 'POST', 'schedule/new', $intvls_json );
isnt( $status->code, 'DOCHAZKA_CUD_OK' );

note( 'spawn testing schedule object' );
my $pl = $status->

alize, connect to database, and set up a testing plan' );
my $app = initialize_regression_test();
isnt( $app, undef );

note( 'instantiate Plack::Test object' );
my $test = Plack::Test->create( $app )

date( $faux_context );
ok( $status->ok, "No DBI error" );
ok( $status->code, 'DOCHAZKA_CUD_OK' );
isnt( $priv->remark, $ins_remark );
is( $priv->remark, "I am foodom!" );

note( 'spawn a fresh object 

>encode( $intvls );
my $status = req( $test, 201, 'root', 'POST', 'schedule/new', $intvls_json );
isnt( $status->code, 'DOCHAZKA_CUD_OK' );

my $pl = $status->payload;
my $furry = App::Dochazka::REST: