test/test_physfs.pl
author Ryan C. Gordon <icculus@icculus.org>
Fri, 01 Jun 2012 05:44:50 -0400
changeset 1283 8bcc48d243df
parent 1242 1e6db80d2393
permissions -rwxr-xr-x
Added Zip64 support to the .zip archiver. Now we can handle .zip files > 4 gigabytes, etc.

#!/usr/bin/perl -w

use strict;
use warnings;
use physfs;

print "testing PhysicsFS Perl bindings...\n";

print "init...\n";
physfs::init("$0") or die("physfs::init('$0'): ".physfs::getLastError()."\n");

print "user dir: ", physfs::getUserDir(), "\n";
print "base dir: ", physfs::getBaseDir(), "\n";
print "pref dir: ", physfs::getPrefDir("icculus.org", "test_physfs"), "\n";

print "deinit...\n";
physfs::deinit();

print "done!\n";
exit 0;