http://www.perlmonks.org?node_id=426993


in reply to Re: Can I use Test::Differences with Test::LectroTest?
in thread Can I use Test::Differences with Test::LectroTest?

Oh! Seems like I should have fiddled more ...

I built a little on my square example, and made this trivial snippet.

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

This passes, and gives the normal output of:

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

Not enough research on my part evidently. My bad. At least it answers my original question. Yes, you can use other testing modules with Test::LectroTest :)

But if I try the same with Test::Differences (by changing Test::Deep to Test::Differences and swapping eq_or_diff with eq_deeply), I get the following:

c:/dev/fun $ perl lec.pl 1..1 Can't identify test lib in use, doesn't seem to be Test.pm or Test::Bu +ilder 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/TestRunne +r.pm line 196 eval {...} called at c:/perl/site/lib/Test/LectroTest/TestRunner.p +m line 193 Test::LectroTest::TestRunner::run('Test::LectroTest::TestRunner=HA +SH(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::TestRun +ner=HASH(0x1263fbc)', 'Test::LectroTest::Property=HASH(0x11c9f68)') c +alled 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

Looks like this is something related to how Test::Differences reports results. A Test::Builder issue, perhaps? I'll have a look into the code and see if I can figure something out.

Thanks for the quick reply, fergal, and for pointing me in the right direction.

pernod
--
Mischief. Mayhem. Soap.