Fix the tests so that builds that are not --enable-plugin-builddir can register the plugins from the uninstalled gstr...

Original commit message from CVS:
Fix the tests so that builds that are not --enable-plugin-builddir can register
the plugins from the uninstalled gstreamer directory. There is some small amount of voodoo
here.

Also, add gst-inspect-check to gstreamer/testsuite, where it probably belongs

tests/old/testsuite/Makefile.am

@@ -1,9 +1,12 @@
 # FIXME : refcounting threads bytestream cleanup
-SUBDIRS = caps plugin elements clock ## dynparams
+SUBDIRS = . caps plugin elements clock ## dynparams
+
+GST_PLUGIN_PATH = $(shell cd $(top_builddir) && pwd)
+TESTS_ENVIRONMENT = GST_PLUGIN_PATH=$(GST_PLUGIN_PATH) GST_REGISTRY=`pwd`/test-registry.xml
 
 testprogs = test_gst_init
 
-TESTS = $(testprogs)
+TESTS = $(top_builddir)/tools/gst-register $(testprogs) gst-inspect-check
 
 check_PROGRAMS = $(testprogs)
 

tests/old/testsuite/caps/Makefile.am

@@ -1,3 +1,6 @@
+GST_PLUGIN_PATH=$(shell cd $(top_builddir) && pwd)
+TESTS_ENVIRONMENT = GST_PLUGIN_PATH=$(GST_PLUGIN_PATH) GST_REGISTRY=$(GST_PLUGIN_PATH)/testsuite/test-registry.xml
+
 testprogs = intersection compatibility normalisation
 
 TESTS = $(testprogs)

tests/old/testsuite/clock/Makefile.am

@@ -1,3 +1,6 @@
+GST_PLUGIN_PATH=$(shell cd $(top_builddir) && pwd)
+TESTS_ENVIRONMENT = GST_PLUGIN_PATH=$(GST_PLUGIN_PATH) GST_REGISTRY=$(GST_PLUGIN_PATH)/testsuite/test-registry.xml
+
 testprogs = clock1
 
 TESTS = $(testprogs)

tests/old/testsuite/elements/Makefile.am

@@ -1,3 +1,6 @@
+GST_PLUGIN_PATH=$(shell cd $(top_builddir) && pwd)
+TESTS_ENVIRONMENT = GST_PLUGIN_PATH=$(GST_PLUGIN_PATH) GST_REGISTRY=$(GST_PLUGIN_PATH)/testsuite/test-registry.xml
+
 testprogs = tee fake name
 
 TESTS = $(testprogs)

tests/old/testsuite/gst-inspect-check

@@ -0,0 +1,73 @@
+#!/usr/bin/perl -w
+
+# checks all built plugins by running gst-inspect on each element
+# and checking for warnings on stderr
+
+### packages
+
+use File::Basename;
+
+my $num_warnings = 0;
+
+sub check_all_elements
+{
+	#send stderr to /dev/null
+	my $command = "gst-inspect 2>/dev/null";
+	my @lines = `$command`;
+
+	while ($_ = shift(@lines)){
+		my @matches = m/^\w+\s+element:\s+(\w+):/g;
+		if(@matches){
+			check_element($matches[0]);
+		}
+	}
+	if ($num_warnings > 0){
+		print("there are $num_warnings warnings to be fixed\n");
+		return -1;
+	}
+	return 0;
+}
+
+sub check_element($)
+{
+	my ($element) = @_;
+	print "running inspect on $element\n";
+
+	# capture stderr, send stdout to /dev/null
+	my $command = "gst-inspect $element 2>&1 1>/dev/null";
+	
+	my @lines = `$command`;
+
+	while ($_ = shift(@lines)){
+		# ignore INFO lines, they are ok
+		if (! /INFO/){
+			print $_;
+			
+			# do this to ignore empty lines
+			if (length > 1){
+				$num_warnings++;
+			}
+		}
+	}
+	system("gst-inspect $element 2>/dev/null 1>/dev/null");
+	if ($? != 0){
+		my $exit_value  = $? >> 8;
+		my $signal_num  = $? & 127;
+		my $dumped_core = $? & 128;
+		if ($exit_value){
+			print("error value on exit: $exit_value\n");
+		}
+		if ($signal_num){
+			print("signal caused exit: $signal_num\n");
+		}
+		if ($dumped_core){
+			print("dumped core: $dumped_core\n");
+		}
+		$num_warnings++
+	}
+}
+
+### main
+
+exit check_all_elements ();
+

tests/old/testsuite/plugin/Makefile.am

@@ -1,3 +1,6 @@
+GST_PLUGIN_PATH=$(shell cd $(top_builddir) && pwd)
+TESTS_ENVIRONMENT = GST_PLUGIN_PATH=$(GST_PLUGIN_PATH) GST_REGISTRY=$(GST_PLUGIN_PATH)/testsuite/test-registry.xml
+
 # FIXME : tests need fixing
 testprogs = static # dynamic linked loading registry static2
 # filterdir = $(libdir)/gst

testsuite/Makefile.am

@@ -1,9 +1,12 @@
 # FIXME : refcounting threads bytestream cleanup
-SUBDIRS = caps plugin elements clock ## dynparams
+SUBDIRS = . caps plugin elements clock ## dynparams
+
+GST_PLUGIN_PATH = $(shell cd $(top_builddir) && pwd)
+TESTS_ENVIRONMENT = GST_PLUGIN_PATH=$(GST_PLUGIN_PATH) GST_REGISTRY=`pwd`/test-registry.xml
 
 testprogs = test_gst_init
 
-TESTS = $(testprogs)
+TESTS = $(top_builddir)/tools/gst-register $(testprogs) gst-inspect-check
 
 check_PROGRAMS = $(testprogs)
 

testsuite/caps/Makefile.am

@@ -1,3 +1,6 @@
+GST_PLUGIN_PATH=$(shell cd $(top_builddir) && pwd)
+TESTS_ENVIRONMENT = GST_PLUGIN_PATH=$(GST_PLUGIN_PATH) GST_REGISTRY=$(GST_PLUGIN_PATH)/testsuite/test-registry.xml
+
 testprogs = intersection compatibility normalisation
 
 TESTS = $(testprogs)

testsuite/clock/Makefile.am

@@ -1,3 +1,6 @@
+GST_PLUGIN_PATH=$(shell cd $(top_builddir) && pwd)
+TESTS_ENVIRONMENT = GST_PLUGIN_PATH=$(GST_PLUGIN_PATH) GST_REGISTRY=$(GST_PLUGIN_PATH)/testsuite/test-registry.xml
+
 testprogs = clock1
 
 TESTS = $(testprogs)

testsuite/elements/Makefile.am

@@ -1,3 +1,6 @@
+GST_PLUGIN_PATH=$(shell cd $(top_builddir) && pwd)
+TESTS_ENVIRONMENT = GST_PLUGIN_PATH=$(GST_PLUGIN_PATH) GST_REGISTRY=$(GST_PLUGIN_PATH)/testsuite/test-registry.xml
+
 testprogs = tee fake name
 
 TESTS = $(testprogs)

testsuite/gst-inspect-check

@@ -0,0 +1,73 @@
+#!/usr/bin/perl -w
+
+# checks all built plugins by running gst-inspect on each element
+# and checking for warnings on stderr
+
+### packages
+
+use File::Basename;
+
+my $num_warnings = 0;
+
+sub check_all_elements
+{
+	#send stderr to /dev/null
+	my $command = "gst-inspect 2>/dev/null";
+	my @lines = `$command`;
+
+	while ($_ = shift(@lines)){
+		my @matches = m/^\w+\s+element:\s+(\w+):/g;
+		if(@matches){
+			check_element($matches[0]);
+		}
+	}
+	if ($num_warnings > 0){
+		print("there are $num_warnings warnings to be fixed\n");
+		return -1;
+	}
+	return 0;
+}
+
+sub check_element($)
+{
+	my ($element) = @_;
+	print "running inspect on $element\n";
+
+	# capture stderr, send stdout to /dev/null
+	my $command = "gst-inspect $element 2>&1 1>/dev/null";
+	
+	my @lines = `$command`;
+
+	while ($_ = shift(@lines)){
+		# ignore INFO lines, they are ok
+		if (! /INFO/){
+			print $_;
+			
+			# do this to ignore empty lines
+			if (length > 1){
+				$num_warnings++;
+			}
+		}
+	}
+	system("gst-inspect $element 2>/dev/null 1>/dev/null");
+	if ($? != 0){
+		my $exit_value  = $? >> 8;
+		my $signal_num  = $? & 127;
+		my $dumped_core = $? & 128;
+		if ($exit_value){
+			print("error value on exit: $exit_value\n");
+		}
+		if ($signal_num){
+			print("signal caused exit: $signal_num\n");
+		}
+		if ($dumped_core){
+			print("dumped core: $dumped_core\n");
+		}
+		$num_warnings++
+	}
+}
+
+### main
+
+exit check_all_elements ();
+

testsuite/plugin/Makefile.am

@@ -1,3 +1,6 @@
+GST_PLUGIN_PATH=$(shell cd $(top_builddir) && pwd)
+TESTS_ENVIRONMENT = GST_PLUGIN_PATH=$(GST_PLUGIN_PATH) GST_REGISTRY=$(GST_PLUGIN_PATH)/testsuite/test-registry.xml
+
 # FIXME : tests need fixing
 testprogs = static # dynamic linked loading registry static2
 # filterdir = $(libdir)/gst