From bdb2144428859c272fdc75cb112d167743f17fe0 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sat, 11 May 2002 23:33:32 +0000
Subject: [PATCH] make gst-inspect-gui call the proper gst-inspect

Original commit message from CVS:
make gst-inspect-gui call the proper gst-inspect
---
 tests/old/testsuite/gst-inspect-check | 9 ++++++---
 testsuite/gst-inspect-check           | 9 ++++++---
 2 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/tests/old/testsuite/gst-inspect-check b/tests/old/testsuite/gst-inspect-check
index 8f16ee7775..38586412b3 100755
--- a/tests/old/testsuite/gst-inspect-check
+++ b/tests/old/testsuite/gst-inspect-check
@@ -8,15 +8,18 @@
 use File::Basename;
 
 my $num_warnings = 0;
+my $path = `dirname $0`;
+chomp $path;
+$path .= "/../tools";
 
 sub check_all_elements
 {
 	#send stderr to /dev/null
-	my $command = "gst-inspect 2>/dev/null";
+	my $command = "$path/gst-inspect 2>/dev/null";
 	my @lines = `$command`;
 
 	while ($_ = shift(@lines)){
-		my @matches = m/^\w+\s+element:\s+(\w+):/g;
+		my @matches = m/^\w+:\s+(\w+):/;
 		if(@matches){
 			check_element($matches[0]);
 		}
@@ -34,7 +37,7 @@ sub check_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 $command = "$path/gst-inspect $element 2>&1 1>/dev/null";
 	
 	my @lines = `$command`;
 
diff --git a/testsuite/gst-inspect-check b/testsuite/gst-inspect-check
index 8f16ee7775..38586412b3 100755
--- a/testsuite/gst-inspect-check
+++ b/testsuite/gst-inspect-check
@@ -8,15 +8,18 @@
 use File::Basename;
 
 my $num_warnings = 0;
+my $path = `dirname $0`;
+chomp $path;
+$path .= "/../tools";
 
 sub check_all_elements
 {
 	#send stderr to /dev/null
-	my $command = "gst-inspect 2>/dev/null";
+	my $command = "$path/gst-inspect 2>/dev/null";
 	my @lines = `$command`;
 
 	while ($_ = shift(@lines)){
-		my @matches = m/^\w+\s+element:\s+(\w+):/g;
+		my @matches = m/^\w+:\s+(\w+):/;
 		if(@matches){
 			check_element($matches[0]);
 		}
@@ -34,7 +37,7 @@ sub check_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 $command = "$path/gst-inspect $element 2>&1 1>/dev/null";
 	
 	my @lines = `$command`;