ok(0);
exit(0);
}
- else { ok(1); }
+ else { ok(1, "Tied an hash with an array for params" ); }
}
{
ok(0);
exit(0);
}
- else { ok(1); }
+ else { ok(1, "Tied a hash with a hashref for params" ); }
}
{
ok(0);
exit(0);
}
- else { ok(1); }
+ else { ok(1, "Tied an array with an array for params" ); }
- TODO: {
- local $TODO = "TIE_ARRAY doesn't set the type correctly";
- is( $db->{type}, DBM::Deep->TYPE_ARRAY, "TIE_ARRAY sets the correct type" );
- }
+ is( $db->{type}, DBM::Deep->TYPE_ARRAY, "TIE_ARRAY sets the correct type" );
}
{
ok(0);
exit(0);
}
- else { ok(1); }
+ else { ok(1, "Tied an array with a hashref for params" ); }
- TODO: {
- local $TODO = "TIE_ARRAY doesn't set the type correctly";
- is( $db->{type}, DBM::Deep->TYPE_ARRAY, "TIE_ARRAY sets the correct type" );
- }
+ is( $db->{type}, DBM::Deep->TYPE_ARRAY, "TIE_ARRAY sets the correct type" );
}
# These are testing the naive use of ref() within TIEHASH and TIEARRAY.