# Runs tests on column_* method of $class using %correct data hash
# usage: run_method_tests ($class, $method, %correct);
sub run_method_tests {
($class, $method, %correct) = @_;
for $col (sort keys %correct) {
# Runs tests on column_* method of $class using %correct data hash
# usage: run_method_tests ($class, $method, %correct);
sub run_method_tests {
($class, $method, %correct) = @_;
for $col (sort keys %correct) {