#!/usr/bin/perl

use lib "t";
use Test::More tests => 2;

BEGIN { use_ok( 'Test::Dummy::Child2' ); }

my $e = ORM::Error->new;

#ORM::DbLog->write_to_stdout( 1 );
#$d = Test::Dummy::Child2->new( prop=>{ a=>'bad value' }, error=>$e );
#ORM::DbLog->write_to_stdout( 0 );
#print $e->text;
#exit;

$stat = Test::Dummy::Child2->stat
(
    data => 
    {
        self => Test::Dummy::Child2->M,
        ref  => Test::Dummy::Child2->M->ref,
    },
    preload => { ref=>1, self=>1 },
    order   => ORM::Order->new( ORM::Ident->new( 'ref' ) ),
    filter  => (Test::Dummy::Child2->M->id == 416),
);

ok
(
    !$e->fatal && $stat->[0]{ref} 
    && $stat->[0]{ref}->id == 415 
    && $stat->[0]{self}->a eq 'aa',
    'stat'
);

print $e->text;