use strict;
use warnings;
use Test::More;
use DC::Test::Dist;
my $d = DC::Test::Dist->new;
$d->d1("a");
is $d->d1, "a", "d1 correctly set and retrieved";
done_testing
use strict;
use warnings;
use Test::More;
use DC::Test::Dist;
my $d = DC::Test::Dist->new;
$d->d1("a");
is $d->d1, "a", "d1 correctly set and retrieved";
done_testing