From bdd4d3ebe3fb6def91d99999657bd4b8ccbaddc7 Mon Sep 17 00:00:00 2001
From: "Ryan C. Gordon" <icculus@icculus.org>
Date: Mon, 1 Feb 2010 23:04:25 -0500
Subject: [PATCH] Added simple test for perl bindings.

---
 test/test_physfs.pl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100755 test/test_physfs.pl

diff --git a/test/test_physfs.pl b/test/test_physfs.pl
new file mode 100755
index 00000000..9add64cc
--- /dev/null
+++ b/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;
+