Yet Another CPAN Grep

Handel ( C/CL/CLACO/Handel-1.00014.tar.gz, CLACO, 2011; MetaCPAN )

Handel/t/storage_dbic_schema_instance.t ( view source; MetaCPAN )

');

    ## make sure we're not the first schema in disguise
    isnt($cart_class, $new_cart_class, 'not original cart class');
    isnt($item_class, $new_item_class, 'not original item class');

');

    ## make sure we're not the first schema in disguise
    isnt($cart_class, $new_cart_class, 'not original cart class');
    isnt($item_class, $new_item_class, 'not original item class');

Handel ( C/CL/CLACO/Handel-1.00014.tar.gz, CLACO, 2011; MetaCPAN )

Handel/t/cart_restore_replace_filter.t ( view source; MetaCPAN )

->next;
        isa_ok($item5, 'Handel::Cart::Item');
        isa_ok($item5, $itemclass);
        isnt($item5->id, '44444444-4444-4444-4444-444444444444', 'not the same item id');
        is($item5->c

->next;
        isa_ok($item6, 'Handel::Cart::Item');
        isa_ok($item6, $itemclass);
        isnt($item6->id, '55555555-5555-5555-5555-555555555555', 'items has different it');
        is($item6-

Handel ( C/CL/CLACO/Handel-1.00014.tar.gz, CLACO, 2011; MetaCPAN )

Handel/t/cart_restore_replace.t ( view source; MetaCPAN )

->next;
        isa_ok($item5, 'Handel::Cart::Item');
        isa_ok($item5, $itemclass);
        isnt($item5->id, '44444444-4444-4444-4444-444444444444', 'item is different id');
        is($item5->c

->next;
        isa_ok($item6, 'Handel::Cart::Item');
        isa_ok($item6, $itemclass);
        isnt($item6->id, '55555555-5555-5555-5555-555555555555', 'item is different id');
        is($item6->c

Handel ( C/CL/CLACO/Handel-1.00014.tar.gz, CLACO, 2011; MetaCPAN )

Handel/t/cart_restore_append_filter.t ( view source; MetaCPAN )

->next;
        isa_ok($item7, 'Handel::Cart::Item');
        isa_ok($item7, $itemclass);
        isnt($item7->id, '44444444-4444-4444-4444-444444444444', 'id is different');
        is($item7->cart,

->next;
        isa_ok($item8, 'Handel::Cart::Item');
        isa_ok($item8, $itemclass);
        isnt($item8->id, '55555555-5555-5555-5555-555555555555', 'id is different');
        is($item8->cart,

Handel ( C/CL/CLACO/Handel-1.00014.tar.gz, CLACO, 2011; MetaCPAN )

Handel/t/storage_dbic_clone.t ( view source; MetaCPAN )

ed schema
my $clone = $storage->clone;
is_deeply($storage, $clone, 'storage is a copy of clone');
isnt(refaddr $storage, refaddr $clone, 'clone is not the original');


## clone w/connected schema
my

torage->_schema_instance, refaddr $schema, 'clone is a full copy');
my $cloned = $storage->clone;
isnt(refaddr $storage, refaddr $cloned, 'clone is not the original');
is($cloned->_schema_instance, un

Handel ( C/CL/CLACO/Handel-1.00014.tar.gz, CLACO, 2011; MetaCPAN )

Handel/t/cart_restore_append.t ( view source; MetaCPAN )

->next;
        isa_ok($item7, 'Handel::Cart::Item');
        isa_ok($item7, $itemclass);
        isnt($item7->id, '44444444-4444-4444-4444-444444444444', 'got different id');
        is($item7->cart,

->next;
        isa_ok($item8, 'Handel::Cart::Item');
        isa_ok($item8, $itemclass);
        isnt($item8->id, '55555555-5555-5555-5555-555555555555', 'got item id');
        is($item8->cart, $car

Handel ( C/CL/CLACO/Handel-1.00014.tar.gz, CLACO, 2011; MetaCPAN )

Handel/t/cart_restore_merge_filter.t ( view source; MetaCPAN )

->next;
        isa_ok($item7, 'Handel::Cart::Item');
        isa_ok($item7, $itemclass);
        isnt($item7->id, '44444444-4444-4444-4444-444444444444', 'id is different');
        is($item7->cart,

Handel ( C/CL/CLACO/Handel-1.00014.tar.gz, CLACO, 2011; MetaCPAN )

Handel/t/cart_restore_merge.t ( view source; MetaCPAN )

->next;
        isa_ok($item7, 'Handel::Cart::Item');
        isa_ok($item7, $itemclass);
        isnt($item7->id, '44444444-4444-4444-4444-444444444444', 'got item id');
        is($item7->cart, $car

Handel ( C/CL/CLACO/Handel-1.00014.tar.gz, CLACO, 2011; MetaCPAN )

Handel/t/base_storage.t ( view source; MetaCPAN )


    is(refaddr $newstorage, refaddr $storage, 'object storage call returns object storage');
    isnt(refaddr $newstorage, refaddr $initialstorage, 'object storage no class storage');
};


## set ite