use v6-alpha;
use Test;
=pod
Parse/eval error :
Pugs enters an infinite loop on:
say +(any(1).values)
This test must be disabled for releases, or
smoke testing.
=cut
plan 1;
my $count = +(any(1).values);
is( $count, 1, "The test does not enter an infinite loop" );