# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Data-AMF-XS.t'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
my @methods;
use ExtUtils::testlib;
use Storable::AMF0;
use Scalar::Util qw(refaddr);
@methods = @Storable::AMF3::EXPORT_OK;
$totals = @methods*1 + 1;
eval "use Test::More tests => $totals";
for my $module (qw(Storable::AMF0)){
ok($module->can($_), "$module can $_") for @methods;
}
eval{
Storable::AMF0::dclone([]);
Storable::AMF0::ref_lost_memory([]);
};
ok(!$@, "dclone && ref_lost_memory really defined");
#########################
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.