Select Code to Download

#!perl
use 5.006;
...
}

diag( "Testing AI::Embedding $AI::Embedding::VERSION, Perl $], $^X" );

my $comp_pass1 = $embed_pass->compare('-0.6,-0.5,-0.4,-0.3,-0.2,0.0,0.
+2,0.3,0.4,0.5', '-0.6,-0.5,-0.4,-0.3,-0.2,0.0,0.2,0.3,0.4,0.5');

...
my $comp_pass2 = $embed_pass->compare('-0.6,-0.5,-0.4,-0.3,-0.2,0.0,0.
+2,0.3,0.4,0.5');

ok( $comp_pass2 == 1, "Compare to comparator got $comp_pass2");

"C:\Strawberry\perl\bin\perl.exe" "-MExtUtils::Command::MM" "-MTest::H
+arness" "-e" "undef *Test::Harness::Switches; test_harness(0, 'blib\l
+ib', 'blib\arch')" t/*.t
t/00-load.t ....... 1/1 # Testing AI::Embedding 0.1_1, Perl 5.032001, 
+C:\Strawberry\perl\bin\perl.exe
...
Result: FAIL
Failed 1/5 test programs. 1/12 subtests failed.
gmake: *** [Makefile:859: test_dynamic] Error 255