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::AMF3;
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::AMF3)){
18	ok($module->can($_), "$module can $_") for @methods;
19}
20
21eval{
22    Storable::AMF3::dclone([]);
23    Storable::AMF3::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