use strict;
use warnings;
use Test::More;

TODO: {
    local $TODO = "STRINGIFICATION";

    rank( 'a-b'  => ['a+(-b)', 'a+-b', 'a-b'], "to pass" );
    rank( 'a--b' => ['a+(-b)', 'a+-b', 'a-b'], "to fail" );
}



sub rank {
    my ($got, $a_exps, $name) = @_;

    local $Test::Builder::Level = $Test::Builder::Level + 1;

    my @exps = @$a_exps;
    my $pos  = 0;
    my %rank = map { $_ => 1- ($pos++ / @exps) } @exps;

    my $quality = $rank{$got};
    if($quality){
        pass($name);
        diag( sprintf "%12s: %.2f", "quality", $quality );
    } else {
        fail($name);
        diag( sprintf "%12s: %s", "got","'$got'" );
        diag( sprintf "%12s: %s", "expected", join ", ", map {"'$_'"} @exps );
        diag( sprintf "%12s: %.2f", "quality", 0 );
    }

}
done_testing;
exit;
__END__

##</code><code>##

ok 1 - to pass # TODO STRINGIFICATION
#      quality: 0.33
not ok 2 - to fail # TODO STRINGIFICATION
#   Failed (TODO) test 'to fail'
#   at /home/lanx/perl/pm/test_rank.pl line 10.
#          got: 'a--b'
#     expected: 'a+(-b)', 'a+-b', 'a-b'
#      quality: 0.00
1..2