Yet Another CPAN Grep

KiokuDB ( D/DO/DOY/KiokuDB-0.57.tar.gz, DOY, 2014; MetaCPAN )

KiokuDB/t/typemap_entry_storable.t ( view source; MetaCPAN )


    is( scalar(keys %$entries), 1, "one entry" );

    my $entry = ( values %$entries )[0];

    isnt( refaddr($entry->data), refaddr($obj), "refaddr doesn't equal" );
    ok( !blessed($entry->data),

a_ok( $expanded, "KiokuDB_Test_Foo", "expanded object" );
    isnt( refaddr($expanded), refaddr($obj), "refaddr doesn't equal" );
    isnt( refaddr($expanded), refaddr($entry->data), "refaddr doesn't

wo entries" );

    $l->backend->insert(values %$entries);

    my $entry = $entries->{$id};

    isnt( refaddr($entry->data), refaddr($deep), "refaddr doesn't equal" );
    ok( !blessed($entry->data)

KiokuDB ( D/DO/DOY/KiokuDB-0.57.tar.gz, DOY, 2014; MetaCPAN )

KiokuDB/t/typemap_entry_mop.t ( view source; MetaCPAN )

     my $entry = $entries->{$id};

        is( scalar(keys %$entries), 1, "one entry" );

        isnt( refaddr($entry->data), refaddr($obj), "refaddr doesn't equal" );
        ok( !blessed($entry->da

$expanded, "KiokuDB_Test_Foo", "expanded object" );
        isnt( refaddr($expanded), refaddr($obj), "refaddr doesn't equal" );
        isnt( refaddr($expanded), refaddr($entry->data), "refaddr doesn'

         is( $entries->{the_bar}->class, "KiokuDB_Test_Bar", "right object" );
        }

        isnt( refaddr($entry->data), refaddr($deep), "refaddr doesn't equal" );
        ok( !blessed($entry->d

KiokuDB ( D/DO/DOY/KiokuDB-0.57.tar.gz, DOY, 2014; MetaCPAN )

KiokuDB/t/typemap_entry_naive.t ( view source; MetaCPAN )


    is( scalar(keys %$entries), 1, "one entry" );

    my $entry = ( values %$entries )[0];

    isnt( refaddr($entry->data), refaddr($obj), "refaddr doesn't equal" );
    ok( !blessed($entry->data),

a_ok( $expanded, "KiokuDB_Test_Foo", "expanded object" );
    isnt( refaddr($expanded), refaddr($obj), "refaddr doesn't equal" );
    isnt( refaddr($expanded), refaddr($entry->data), "refaddr doesn't


    is( scalar(keys %$entries), 1, "one entry" );

    my $entry = ( values %$entries )[0];

    isnt( refaddr($entry->data), refaddr($deep), "refaddr doesn't equal" );
    ok( !blessed($entry->data)

KiokuDB ( D/DO/DOY/KiokuDB-0.57.tar.gz, DOY, 2014; MetaCPAN )

KiokuDB/t/digest.t ( view source; MetaCPAN )

isnt( $foo->digest, $bar->digest, "digests differ" );

my $both = KiokuDB::Test::Digested->new(
    foo => "blaitty4",
    bar => "bar",
);

isnt( $both->digest, $foo->digest, "digests differ" );
isnt

KiokuDB ( D/DO/DOY/KiokuDB-0.57.tar.gz, DOY, 2014; MetaCPAN )

KiokuDB/t/typemap_entry_callback.t ( view source; MetaCPAN )


    is( scalar(keys %$entries), 1, "one entry" );

    my $entry = ( values %$entries )[0];

    isnt( refaddr($entry->data), refaddr($obj), "refaddr doesn't equal" );
    ok( !blessed($entry->data),

a_ok( $expanded, "KiokuDB_Test_Foo", "expanded object" );
    isnt( refaddr($expanded), refaddr($obj), "refaddr doesn't equal" );
    isnt( refaddr($expanded), refaddr($entry->data), "refaddr doesn't

KiokuDB ( D/DO/DOY/KiokuDB-0.57.tar.gz, DOY, 2014; MetaCPAN )

KiokuDB/t/directory.t ( view source; MetaCPAN )

k( $obj, "KiokuDB_Test_Foo" );

            isa_ok( $obj->bar, "KiokuDB_Test_Foo" );

            isnt( refaddr($obj->bar), refaddr($child), "same refaddr as live object" );

            is( $obj->bar