| Subject: | Badly Broken Test |
The arr_xform.t test was ridiculously broken and could never have
worked. The person who wrote it was obviously on drugs.
The fixed test is attached.
| Subject: | arr_xform.t |
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
use Test::Simple tests => 1;
use Symbol::Approx::Sub (xform => [ sub { map { s/[^a-z]//ig; $_ } @_ },
sub { map { lc } @_ } ]);
sub a_a { 'aa' }
ok(&AA eq 'aa');