# Test the function against another with known good results.
for (@data) {
  my @args = split;

  my @copy = @args;

  my $A = get_proparg( @args );
  my $B = get_proparg_evdb( @args );

  unless ( $A eq $B ) {

	warn "function wrong for '$args[1]'\n";
	warn "A is '$A'\nB is '$B'\n\n";

  }

  warn "array messed up\n" unless join(' ',@copy) eq join(' ',@args);

}