Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

test unique on refs

  • Loading branch information...
commit f20c1b4e40a200093274b27977e84e701e07473c 1 parent 7a88851
Yuval Kogman authored

Showing 1 changed file with 3 additions and 2 deletions. Show diff stats Hide diff stats

  1. +3 2 t/basic.t
5 t/basic.t
@@ -231,10 +231,11 @@ use ok 'Data::Stream::Bulk::Util' => qw(bulk nil cat filter unique);
231 231 }
232 232
233 233 {
234   - my $a = unique(bulk(qw(foo bar foo bar bar)));
  234 + my ( $foo, $bar, $gorch ) = ( [], {}, "gorch" );
  235 + my $a = unique(bulk($foo, $bar, $foo, $foo, $gorch, $bar));
235 236
236 237 isa_ok( $a, "Data::Stream::Bulk::Array", "unique on array returns array" );
237 238
238   - is_deeply([ $a->all ], [ qw(foo bar) ], "unique on arrays" );
  239 + is_deeply([ $a->all ], [ $foo, $bar, $gorch ], "unique with refs" );
239 240 }
240 241

0 comments on commit f20c1b4

Please sign in to comment.
Something went wrong with that request. Please try again.