AI-MicroStructure

 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 

t/t/001.t  view on Meta::CPAN

use strict;
use Test::More;


BEGIN{
use Test::More tests => 1;
use_ok('AI::MicroStructure');
};

t/t/0010.t  view on Meta::CPAN

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

t/t/0011.t  view on Meta::CPAN

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

t/t/0012.t  view on Meta::CPAN

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);

t/t/0013.t  view on Meta::CPAN

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

t/t/002.t  view on Meta::CPAN

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: {

t/t/003.t  view on Meta::CPAN

#############################################
# 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';

t/t/004.t  view on Meta::CPAN

#############################################
# 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';

#####################################################################

t/t/005.t  view on Meta::CPAN

package AI::MicroStructure::test;
use strict;
use Test::More;
use AI::MicroStructure;

plan tests => 1;

ok(1);


__DATA__

# "alter" the shuffle method

t/t/006.t  view on Meta::CPAN

#!/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 },
);

t/t/007.t  view on Meta::CPAN

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');");

t/t/008.t  view on Meta::CPAN

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",

t/t/009.t  view on Meta::CPAN

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 distribution
 view release on metacpan -  search on metacpan