PDL/t/demos.t
use strict;
use warnings;
use Test::More;
use PDL::Demos;
my @found = PDL::Demos->list;
ok scalar @found, 'found demos';
my ($general) = grep /General$/, @found;
isnt $general, undef, 'found the PDL demo' or diag 'found ', explain \@found;
my @kw = PDL::Demos->keywords;
ok scalar @kw, 'found keywords';
ok +(grep $_ eq 'pdl', @kw), 'found "pdl" in keywords' or diag explain \@kw;
my @info = PDL::Demos->info('pdl');
is $info[0], 'pdl';
is scalar @info, 3, 'three elts in info';
my @demo = PDL::Demos->demo('pdl');
ok scalar @demo, 'demo commands';
done_testing;