sub rig
{
my $data = shift @_;
my $func = shift @_;
foreach my $number (sort keys %$data)
{
my $test_string = $data->{$number};
my $answer = $func->($number);
ok( $answer, $test_string );
if ($answer ne $test_string)
{
binmode STDOUT, ':utf8';
print number_to_bg( $number ), " ??? ", $test_string, "\n";
}
}
}