view release on metacpan or  search on metacpan

t/Ambrosia/core/Object.t  view on Meta::CPAN

#test methods of the object
#test static methods
my $H = {foo_pub1 => 1, foo_pub2 => 1, bar_pub1 => 1, bar_pub2 => 1};

my $my_bar = new_ok t::Bar => []; #test #11

cmp_deeply({map {$_ => 1} $my_bar->fields()}, $H, 'fields() is ok'); #test #12

my $string_dump = $my_bar->string_dump();
like($string_dump, '/^\^Storable|||hex|Compress::Zlib\^[a-z0-9]+$/', "string_dump looks good"); #test #13

my $hBar = $my_bar->as_hash(1, qw/
                                  get_list_pri:getListPri
                                  get_list_pro:getListPro
                                  get_list_pri_ex:getListPriEx
                                  get_list_pro_ex:getListProEx
                                  el_pro{0}
                                  el_pro:EL1{1}
                                  /, "twice_pro");