physfs/test/test_physfs.pl

21 lines
368 B
Perl
Raw Normal View History

2010-02-02 05:04:25 +01:00
#!/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 "deinit...\n";
physfs::deinit();
print "done!\n";
exit 0;