small test script

Original commit message from CVS:
small test script

diff --git a/swig/test.pl b/swig/test.pl
new file mode 100755 (executable)
index 0000000..0f9528e
--- /dev/null
+++ b/swig/test.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl -w
+
+use Gst;
+
+Gst::init ();
+
+my $bin = Gst::gst_pipeline_new ("pipeline")
+  or die "Cannot create pipeline !\n";
+print "DEBUG: bin: $bin\n";
+
+my $parse = Gst::gst_elementfactory_make ("mp3parse", "parse")
+  or die "Cannot create mp3parse element !\n";
+my $disksrc = Gst::gst_elementfactory_make ("disksrc", "disk_source")
+  or die "Cannot create disksrc element !\n";
+print "DEBUG: disksrc: $disksrc\n";
+Gst::gobject_set ($disksrc, "location", $ARGV[1]);