perl-GStreamer r102 - in trunk: . t

[tsch svn gnome org]

Author: tsch
Date: Sat Dec 20 12:18:37 2008
New Revision: 102
URL: http://svn.gnome.org/viewvc/perl-GStreamer?rev=102&view=rev

Log:
Print version information.


Modified:
   trunk/ChangeLog
   trunk/t/Gst.t

Modified: trunk/t/Gst.t
==============================================================================
--- trunk/t/Gst.t	(original)
+++ trunk/t/Gst.t	Sat Dec 20 12:18:37 2008
@@ -31,6 +31,10 @@
 like($c, $number);
 like($d, $number);
 
+diag 'Testing GStreamer ', $GStreamer::VERSION;
+diag '  Compiled against libgstreamer ', join '.', GStreamer -> GET_VERSION_INFO();
+diag '   Running against libgstreamer ', join '.', GStreamer -> version();
+
 ok(defined GStreamer -> version_string());
 
 ok(GStreamer -> CHECK_VERSION(0, 0, 0));