Skip to content
Permalink
Browse files
Added simple test for perl bindings.
  • Loading branch information
icculus committed Feb 2, 2010
1 parent 6116683 commit bdd4d3ebe3fb6def91d99999657bd4b8ccbaddc7
Showing with 20 additions and 0 deletions.
  1. +20 −0 test/test_physfs.pl
@@ -0,0 +1,20 @@
#!/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;

0 comments on commit bdd4d3e

Please sign in to comment.