ocd = ( $uc->process($aref) )[0];
isnt( $aref_procd, $aref, 'preserves non-strings' );
isnt( $aref_procd->[2], 'cc', q{preserves references' properties} );
isnt( $aref_procd->[2], 'CC',
q{do
ing' );
my $aref = [qw/aa bb cc dd ee ff/];
my $aref_procd = ( $uc->process($aref) )[0];
#isnt( $aref_procd, $aref, 'preserves non-strings' );
is( $aref_procd->[2], 'CC', q{preserves reference
r->new( wraps => 'UC' );
ok($wrapped);
my @res = $wrapped->process('abc');
is( scalar(@res), 1 );
isnt( $res[0], 'ABC' );
is( $res[0]->get_data('default'), 'ABC' );
# non-raw input tests
use DataFlow
, 'returns nothing for nothing' );
is( ( $uc->process('aaa') )[0], 'AAA', 'works as it should' );
isnt( ( $uc->process('bbb') )[0], 'bbb', 'indeed works as it should' );
is( ( $uc->process(1) )[0], 1,
scalars
diag('scalar params');
ok( !defined( $f->process() ) );
is( $f->process('aaa'), 'AAA' );
isnt( $f->process('aaa'), 'aaa' );
is( $f->process(1), 1 );
# array
diag('array params');
my @allyour