view release on metacpan or  search on metacpan

t/01_fo.t  view on Meta::CPAN

#!/usr/bin/perl

use warnings;
use strict;
use utf8;
use open qw(:std :utf8);
use lib qw(lib ../lib);

use Test::More tests    => 39;
use Encode qw(decode encode);

BEGIN {
    my $builder = Test::More->builder;
    binmode $builder->output,         ":utf8";
    binmode $builder->failure_output, ":utf8";
    binmode $builder->todo_output,    ":utf8";

    use_ok 'AnyEvent';
    use_ok 'AnyEvent::ForkObject';
}


{
    my $cv = condvar AnyEvent;
    my $obj = new AnyEvent::ForkObject;

t/02_dbi.t  view on Meta::CPAN

#!/usr/bin/perl

use warnings;
use strict;
use utf8;
use open qw(:std :utf8);
use lib qw(lib ../lib);

use Test::More;
use Encode qw(decode encode);

use File::Temp qw(tempfile tempdir);
use File::Spec::Functions qw(catfile);
use File::Path qw(remove_tree);

BEGIN {
    my $builder = Test::More->builder;
    binmode $builder->output,         ":utf8";
    binmode $builder->failure_output, ":utf8";
    binmode $builder->todo_output,    ":utf8";

    eval {
        require DBI;
        require DBD::SQLite;
    };

    if ($@) {
        plan skip_all => "DBD::SQLite isn't installed properly";
    } else {
        plan tests => 12;