use Test::Mini::Unit;
use Template::Mustache;
case t::ReadDataFromClasses {
sub name { 'Joe' }
sub occupation { 'Plumber' }
sub qualified { (ref $_[0]) . '::' . ($_[0]->{name}) }
setup {
my $testname = (ref $self) . '::' . $self->{name};
$self->{template} = '{{name}} the {{occupation}} ({{qualified}})';
$self->{expected} = "Joe the Plumber ($testname)";
}
test rendering {
my $rendered = Template::Mustache->render($self->{template}, $self);
assert_equal($rendered, $self->{expected});
}
}