1# Before `make install' is performed this script should be runnable with 2# `make test'. After `make install' it should work as `perl Data-AMF-XS.t' 3 4######################### 5 6# change 'tests => 1' to 'tests => last_test_to_print'; 7my @methods; 8use ExtUtils::testlib; 9use Storable::AMF0; 10use Scalar::Util qw(refaddr); 11 12@methods = @Storable::AMF3::EXPORT_OK; 13$totals = @methods*1 + 1; 14eval "use Test::More tests => $totals"; 15 16 17for my $module (qw(Storable::AMF0)){ 18 ok($module->can($_), "$module can $_") for @methods; 19} 20 21eval{ 22 Storable::AMF0::dclone([]); 23 Storable::AMF0::ref_lost_memory([]); 24}; 25ok(!$@, "dclone && ref_lost_memory really defined"); 26 27######################### 28 29# Insert your test code below, the Test::More module is use()ed here so read 30# its man page ( perldoc Test::More ) for help writing this test script. 31 32