make gst-inspect-gui call the proper gst-inspect

Original commit message from CVS:
make gst-inspect-gui call the proper gst-inspect

diff --git a/tests/old/testsuite/gst-inspect-check b/tests/old/testsuite/gst-inspect-check
index 8f16ee7..3858641 100755 (executable)
--- 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 8f16ee7..3858641 100755 (executable)
--- 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`;