use ExtUtils::testlib;
use TestXS;

sub test_callback
{
    print "Inside test_callback(): ", scalar(@_), " arguments.\n";

    my $hash = shift;

    print "[IN_SUB]\n";

    for (keys %$hash)
    {
        print "\t", $_, " ==>> ", $hash->{$_}, "\n"; 
    }
}

# # # # # MAIN # # # # #
my $file_list = {
    "/tmp/" => undef,
    "/tmp/TestXS" => undef,
    "/usr/include/" => undef,
};

TestXS::callback_sub($file_list, "test_callback");