view release on metacpan or  search on metacpan

t/List-Insertion.t  view on Meta::CPAN

use strict;
use warnings;

use feature ":all";

use Test::More;
BEGIN { use_ok('List::Insertion') };

use List::Insertion "make_search";
use List::Insertion {type=>"string"};
use List::Insertion {type=>"numeric", duplicate=>[qw<left right>]};
use List::Insertion {type=>"numeric", duplicate=>[qw<left right>], prefix=>"mysearch"};
use List::Insertion {type=>"numeric", duplicate=>[qw<left right>], prefix=>"hashsearch", accessor=>"->{key}"};
use List::Insertion {type=>"numeric", duplicate=>[qw<left right>], prefix=>"arraysearch", accessor=>"->[0]"};

my $ok;
$ok=eval {
    \&search_string_left;
};

ok $ok, "imported ok";

$ok=eval {
    \&search_numeric_left;
};

ok $ok, "imported ok";

$ok=eval {
    \&search_numeric_right;
};

ok $ok, "imported ok";

$ok=eval {
    \&mysearch_numeric_left;
};

ok $ok, "imported ok";

$ok=eval {
    \&mysearch_numeric_right;
};

ok $ok, "imported ok";

$ok=eval {
    \&keysearch_numeric_left;
};

ok $ok, "imported ok";

$ok=eval {
    \&keysearch_numeric_right;
};

ok $ok, "imported ok";


{

  my  @data=(
    {key=>1},
    {key=>2},