mirrors/gstreamer
mirrors/gstreamer
1
1
Fork 0
mirror of https://gitlab.freedesktop.org/gstreamer/gstreamer.git synced 2025-01-05 15:08:48 +00:00
Code Issues 1 Projects Releases Wiki Activity

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

Browse source 
Original commit message from CVS:
make gst-inspect-gui call the proper gst-inspect
This commit is contained in:
Andy Wingo 2002-05-11 23:33:32 +00:00
parent bf4e61ace3
commit bdb2144428
2 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
tests/old/testsuite/gst-inspect-check
View file

@ -8,15 +8,18 @@
use File::Basename; use File::Basename;
my $num_warnings = 0; my $num_warnings = 0;
my $path = `dirname $0`;
chomp $path;
$path .= "/../tools";
sub check_all_elements sub check_all_elements
{ {
#send stderr to /dev/null #send stderr to /dev/null
my $command = "gst-inspect 2>/dev/null"; my $command = "$path/gst-inspect 2>/dev/null";
my @lines = `$command`; my @lines = `$command`;
while ($_ = shift(@lines)){ while ($_ = shift(@lines)){
my @matches = m/^\w+\s+element:\s+(\w+):/g; my @matches = m/^\w+:\s+(\w+):/;
if(@matches){ if(@matches){
check_element($matches[0]); check_element($matches[0]);
} }
@ -34,7 +37,7 @@ sub check_element($)
print "running inspect on $element\n"; print "running inspect on $element\n";
# capture stderr, send stdout to /dev/null # 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`; my @lines = `$command`;

9
testsuite/gst-inspect-check
View file

@ -8,15 +8,18 @@
use File::Basename; use File::Basename;
my $num_warnings = 0; my $num_warnings = 0;
my $path = `dirname $0`;
chomp $path;
$path .= "/../tools";
sub check_all_elements sub check_all_elements
{ {
#send stderr to /dev/null #send stderr to /dev/null
my $command = "gst-inspect 2>/dev/null"; my $command = "$path/gst-inspect 2>/dev/null";
my @lines = `$command`; my @lines = `$command`;
while ($_ = shift(@lines)){ while ($_ = shift(@lines)){
my @matches = m/^\w+\s+element:\s+(\w+):/g; my @matches = m/^\w+:\s+(\w+):/;
if(@matches){ if(@matches){
check_element($matches[0]); check_element($matches[0]);
} }
@ -34,7 +37,7 @@ sub check_element($)
print "running inspect on $element\n"; print "running inspect on $element\n";
# capture stderr, send stdout to /dev/null # 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`; my @lines = `$command`;