#! /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!";


##</code><code>##

c:/dev/fun $ perl lec.pl 
1..1
ok 1 - 'Finding $x's square. Twice!' (1000 attempts)

##</code><code>##

c:/dev/fun $ perl lec.pl 
1..1
Can't identify test lib in use, doesn't seem to be Test.pm or Test::Builder based
 at c:/perl/site/lib/Test/Differences.pm line 409
	Test::Differences::eq_or_diff('ARRAY(0x11c9fec)', 'ARRAY(0x11c9fe0)') called at lec.pl line 15
	main::__ANON__('Test::LectroTest::TestRunner::testcontroller=ARRAY(0x11c9fb0)', 1) called at c:/perl/site/lib/Test/LectroTest/TestRunner.pm line 196
	eval {...} called at c:/perl/site/lib/Test/LectroTest/TestRunner.pm line 193
	Test::LectroTest::TestRunner::run('Test::LectroTest::TestRunner=HASH(0x1263fbc)', 'Test::LectroTest::Property=HASH(0x11c9f68)') called at c:/perl/site/lib/Test/LectroTest/TestRunner.pm line 289
	Test::LectroTest::TestRunner::run_suite('Test::LectroTest::TestRunner=HASH(0x1263fbc)', 'Test::LectroTest::Property=HASH(0x11c9f68)') called at c:/perl/site/lib/Test/LectroTest.pm line 157
	Test::LectroTest::run() called at c:/perl/site/lib/Test/LectroTest.pm line 160
	Test::LectroTest::END() called at lec.pl line 0
	eval {...} called at lec.pl line 0
ok
ok
ok
.
.
.
# Followed by 997 more ok's