Permalink
Browse files

test unique on refs

  • Loading branch information...
1 parent 7a88851 commit f20c1b4e40a200093274b27977e84e701e07473c @nothingmuch committed Sep 2, 2008
Showing with 3 additions and 2 deletions.
  1. +3 −2 t/basic.t
View
@@ -231,10 +231,11 @@ use ok 'Data::Stream::Bulk::Util' => qw(bulk nil cat filter unique);
}
{
- my $a = unique(bulk(qw(foo bar foo bar bar)));
+ my ( $foo, $bar, $gorch ) = ( [], {}, "gorch" );
+ my $a = unique(bulk($foo, $bar, $foo, $foo, $gorch, $bar));
isa_ok( $a, "Data::Stream::Bulk::Array", "unique on array returns array" );
- is_deeply([ $a->all ], [ qw(foo bar) ], "unique on arrays" );
+ is_deeply([ $a->all ], [ $foo, $bar, $gorch ], "unique with refs" );
}

0 comments on commit f20c1b4

Please sign in to comment.