#!/usr/bin/perl

use strict;

use Data::Dumper;
use Test::LectroTest trials => 10;

use List::Util qw( reduce );

$Data::Dumper::Terse = 1;

Property {

    ##[ data <- List( Hash( Unit(1)
                          , Int( range=>[50,100], sized=>0 )
                          , length=>1 )
                    , length=>5 )
    ]##

    my @input = map { values %$_ } @$data;
    my $questions = reduce { $a + $b } @input;

    print STDERR Dumper( { data      => $data
                         , input     => \@input
                         , questions => $questions } ), "\n";

    1;  # always passes trials

}, name => "shell property that holds a generator example";