Added simple test for perl bindings.
authorRyan C. Gordon <icculus@icculus.org>
Mon, 01 Feb 2010 23:04:25 -0500
changeset 1036 66cf7a623a51
parent 1035 f6ca3f9af74c
child 1037 d452f4da0970
Added simple test for perl bindings.
test/test_physfs.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_physfs.pl	Mon Feb 01 23:04:25 2010 -0500
@@ -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;
+