From bdb2144428859c272fdc75cb112d167743f17fe0 Mon Sep 17 00:00:00 2001 From: Andy Wingo 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`;