#!/usr/local/bin/perl

use Testing;
use Test::More tests => 6;

my $a = TableA->new(id => 1)->load;

is $a->data      => "abc", "check data value";
is $a->more_data => "def", "check more data value";

is $a->data("new_data")           => "new_data"     , "check data set";
is $a->more_data("new_more_data") => "new_more_data", "check more_data set";

is $a->data      => "new_data"     , "check data value";
is $a->more_data => "new_more_data", "check more_data value";