#!/usr/local/bin/perl

use Testing;
use Rose::DB::Object::Constants qw(MODIFIED_COLUMNS);
use Test::More tests => 5;

my $a = TableA->new(id => 1)->load;
my $mods = $a->{MODIFIED_COLUMNS()};
is_deeply($mods, {}, "A has no modified keys");

my $b = TableB->new(id => 1)->load;
$mods = $b->{MODIFIED_COLUMNS()};
is_deeply($mods, {}, "B has no modified keys");

my @tableAs = $b->tableAs();
for my $a ( @tableAs ) {
    $mods = $a->{MODIFIED_COLUMNS()};
    is_deeply($mods, {}, "A via B has no modified keys");
}