view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
package RGB_test;
use lib "../../../..";
use Test;
BEGIN { plan test => 12}
 
use AI::NeuralNet::Kohonen::Demo::RGB;
ok(1,1);
 
$_ = new AI::NeuralNet::Kohonen;
ok ($_,undef);
 
$_ = new AI::NeuralNet::Kohonen::Demo::RGB(