#! /usr/bin/perl
use Test::LectroTest;
use Test::Deep;

sub square {
  my $square = $_[ 0 ] * $_[ 0 ];
  return [ $square, $square ];
}

Property {
  ##[ x <- Int #]##
  my $sq = $x * $x;

  eq_deeply( square( $x ), [ $sq, $sq ] );
}, name => "Finding \$x's square. Twice!";