AI-MicroStructure
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/AI/MicroStructure/germany.pm view on Meta::CPAN
# names Behlendorf 23919
# names Rondeshagen 23919
# names Roduchelstorf 23923
# names Selmsdorf 23923
# names Lockwisch 23923
# names Menzendorf 23923
# names Bernstorf 23936
# names Upahl 23936
# names Papenhusen 23936
# names Mallentin 23936
# names Testorf-Steinfort 23936
# names Grieben 23936 39517
# names Roggenstorf 23936
# names Kalkhorst 23942
# names Harkensee 23942
# names Dassow 23942
# names Boltenhagen 23946
# names Moor-Rolofshagen 23948
# names Damshagen 23948
# names Wismar 23966 23968 23970
# names Barnekow 23968
use strict;
use Test::More;
BEGIN{
use Test::More tests => 1;
use_ok('AI::MicroStructure');
};
#!/usr/bin/perl -w
use strict;
use Test::More 'no_plan';#tests =>12;
use File::Find;
use Storable qw(lock_store lock_retrieve);
use Getopt::Long;
use Digest::MD5 qw(md5_hex);
use Data::Dumper;
use Data::Printer;
use AI::MicroStructure;
use AI::MicroStructure::Object;
use AI::MicroStructure::ObjectSet;
use AI::MicroStructure::Context;
#!/usr/bin/perl -w
use strict;
use Test::More 'no_plan';#tests =>12;
use File::Find;
use Storable qw(lock_store lock_retrieve);
use Getopt::Long;
use Digest::MD5 qw(md5_hex);
use Data::Dumper;
use Data::Printer;
use AI::MicroStructure;
#use AI::MicroStructure::Object;
use AI::MicroStructure::ObjectSet;
#use AI::MicroStructure::ObjectParser;
use Data::Dumper;
use Test::More tests => 6;
use strict;
use AI::MicroStructure;
AI::MicroStructure->add_structure(
ams_test_beatles => [ qw(john paul george ringo) ]
);
my $fab4 = AI::MicroStructure::ams_test_beatles->new();
my @fab = $fab4->name(1);
#!/usr/bin/perl -w
use Data::Dumper;
use strict;
use Test::More 'no_plan';#tests =>12;
use strict;
my $list = << 'EOT';
* foo
* bar
* baz
* A
* B
use strict;
use Test::More;
use AI::MicroStructure;
plan tests => 2;
NEW_OK: {
my $meta = AI::MicroStructure->new('foo');
isa_ok( $meta, 'AI::MicroStructure' );
}
NEW_UNKNOWN: {
#############################################
# Tests for Sysadm::Install/s slurp/blurt/pie
#############################################
use Test::More tests => 5;
use strict;
use warnings;
use Sysadm::Install qw(:all);
use File::Spec;
use File::Path;
my $TEST_DIR = ".";
$TEST_DIR = "t" if -d 't';
#############################################
# Tests for Sysadm::Install/s plough
#############################################
use Test::More tests => 2;
use Sysadm::Install qw(:all);
use File::Spec;
use File::Path;
my $TEST_DIR = ".";
$TEST_DIR = "t" if -d 't';
#####################################################################
package AI::MicroStructure::test;
use strict;
use Test::More;
use AI::MicroStructure;
plan tests => 1;
ok(1);
__DATA__
# "alter" the shuffle method
#!/usr/bin/perl -w
use Search::ContextGraph;
use Test::More 'no_plan';
use Data::Dumper;
use Env qw(PWD);
#use blib;
my %docs = (
'First Document' => { 'elephant' => 2, 'snake' => 1 },
'Second Document' => { 'camel' => 1, 'pony' => 1 },
'Third Document' => { 'snake' => 2, 'constrictor' => 1 },
);
use strict;
use warnings;
use Data::Dumper;
use Storable::CouchDB;
use Test::More tests =>8;
BEGIN {
use_ok('LWP');
use_ok('Storable::CouchDB');
my $s = Storable::CouchDB->new;
ok("sprintf $s->retrieve('doc')"); #undef if not exists
ok("sprintf $s->store('doc1' => 'data');");
package AI::MicroStructure::test;
use strict;
use Test::More;
use AI::MicroStructure;
plan tests => 2;
$_ = 'canari';
my $data = AI::MicroStructure->load_data('AI::MicroStructure::test');
is( $_, 'canari', "load_data does not stomp the canari" );
is_deeply(
$data,
{ foo => "bar",
use Test::More;
use strict;
use AI::MicroStructure;
END {
my %tests = (
':all' => [
qw( grinder lacravate echo book jq dm stomakc maddingue
arhuman davorg clkao dha)
],
'fr' => [
t/t/basedep.dodo.t view on Meta::CPAN
use strict;
use Test::More tests =>1;
ok(1);
1;
t/t/basedep.santex.t view on Meta::CPAN
use strict;
use Test::More tests =>1;
ok(1);
1;
t/t/load-prerequest.t view on Meta::CPAN
use warnings;
use Test::More tests =>2;
BEGIN {
ok("require basedep.$_.t" ) for(qw/dodo santex/);
}
1;
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.030 second using v1.00-cache-2.02-grep-82fe00e-cpan-585fae043c8 )