view release on metacpan or  search on metacpan

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

use strict;
use warnings;

use Test::More;
use Data::Couplet;
use Data::Dump qw( dump );

sub Couplet() { 'Data::Couplet' }
my $t = 0;

sub do_test(&) {
  my $c      = shift;
  my @caller = caller();
  $caller[2]--;
  ++$t;
  eval {
    $c->();
    1;
  } or ok( 0, "Test $t mystically failed ( @ $caller[2] ) : $@" );
}

t/03_clone.t  view on Meta::CPAN

use warnings;

use Test::More;
use Data::Couplet;
use Data::Dump qw( dump );
use Scalar::Util qw( refaddr );

sub Couplet() { 'Data::Couplet' }
my $t = 0;

sub do_test(&) {
  my $c      = shift;
  my @caller = caller();
  $caller[2]--;
  ++$t;
  eval {
    $c->();
    1;
  } or ok( 0, "Test $t mystically failed ( @ $caller[2] ) : $@" );
}

t/04_parallel_remove.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;
use Data::Couplet;
use Data::Dump qw( dump );

sub Couplet() { 'Data::Couplet' }
my $t = 0;

sub do_test(&) {
  my $c      = shift;
  my @caller = caller();
  $caller[2]--;
  ++$t;
  eval {
    $c->();
    1;
  } or ok( 0, "Test $t mystically failed ( @ $caller[2] ) : $@" );
}