mirror of
https://gitlab.freedesktop.org/gstreamer/gstreamer.git
synced 2024-11-26 11:41:09 +00:00
testsuite/elements/: add check to make sure gst-compprep works
Original commit message from CVS: * testsuite/elements/Makefile.am: * testsuite/elements/gst-compprep-check: add check to make sure gst-compprep works * testsuite/elements/gst-inspect-check.in: improve initialization output * testsuite/gst-inspect-check: remove old file
This commit is contained in:
Benjamin Otte
parent
2d19f03ddb
commit
3f812f873f
9 changed files with 38 additions and 156 deletions
10
ChangeLog
10
ChangeLog
|
|
@ -1,3 +1,13 @@
|
|||
2004-03-25 Benjamin Otte <otte@gnome.org>
|
||||
|
||||
* testsuite/elements/Makefile.am:
|
||||
* testsuite/elements/gst-compprep-check:
|
||||
add check to make sure gst-compprep works
|
||||
* testsuite/elements/gst-inspect-check.in:
|
||||
improve initialization output
|
||||
* testsuite/gst-inspect-check:
|
||||
remove old file
|
||||
|
||||
2004-03-24 David Schleef <ds@schleef.org>
|
||||
|
||||
* testsuite/elements/Makefile.am:
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
include ../Rules
|
||||
|
||||
tests_pass = name tee property fake gst-inspect-check
|
||||
tests_pass = name tee property fake gst-inspect-check gst-compprep-check
|
||||
tests_fail =
|
||||
|
||||
noinst_HEADERS = property.h
|
||||
|
|
@ -11,3 +11,6 @@ gst-inspect-check: $(srcdir)/gst-inspect-check.in
|
|||
$(srcdir)/gst-inspect-check.in >gst-inspect-check
|
||||
chmod +x gst-inspect-check
|
||||
|
||||
gst-compprep-check:
|
||||
true
|
||||
|
||||
|
|
|
|||
3
tests/old/testsuite/elements/gst-compprep-check.in
Executable file
3
tests/old/testsuite/elements/gst-compprep-check.in
Executable file
|
|
@ -0,0 +1,3 @@
|
|||
#!/bin/sh
|
||||
|
||||
../../tools/gst-compprep --gst-fatal-warnings
|
||||
|
|
@ -7,7 +7,13 @@
|
|||
|
||||
use File::Basename;
|
||||
|
||||
print "moo\n";
|
||||
print " _______\n";
|
||||
print " (__) / \\\n";
|
||||
print " (oo) ( M O O )\n";
|
||||
print " /-------\\/ --'\\_______/\n";
|
||||
print " / | ||\n";
|
||||
print "* ||----||\n";
|
||||
print " ^^ ^^\n";
|
||||
|
||||
my $num_warnings = 0;
|
||||
my $path = `dirname $0`;
|
||||
|
|
|
|||
|
|
@ -1,76 +0,0 @@
|
|||
#!/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;
|
||||
my $path = `dirname $0`;
|
||||
chomp $path;
|
||||
$path .= "/../tools";
|
||||
|
||||
sub check_all_elements
|
||||
{
|
||||
#send stderr to /dev/null
|
||||
my $command = "$path/gst-inspect 2>/dev/null";
|
||||
my @lines = `$command`;
|
||||
|
||||
while ($_ = shift(@lines)){
|
||||
my @matches = m/^\w+:\s+(\w+):/;
|
||||
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 = "$path/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 ();
|
||||
|
||||
|
|
@ -1,6 +1,6 @@
|
|||
include ../Rules
|
||||
|
||||
tests_pass = name tee property fake gst-inspect-check
|
||||
tests_pass = name tee property fake gst-inspect-check gst-compprep-check
|
||||
tests_fail =
|
||||
|
||||
noinst_HEADERS = property.h
|
||||
|
|
@ -11,3 +11,6 @@ gst-inspect-check: $(srcdir)/gst-inspect-check.in
|
|||
$(srcdir)/gst-inspect-check.in >gst-inspect-check
|
||||
chmod +x gst-inspect-check
|
||||
|
||||
gst-compprep-check:
|
||||
true
|
||||
|
||||
|
|
|
|||
3
testsuite/elements/gst-compprep-check.in
Executable file
3
testsuite/elements/gst-compprep-check.in
Executable file
|
|
@ -0,0 +1,3 @@
|
|||
#!/bin/sh
|
||||
|
||||
../../tools/gst-compprep --gst-fatal-warnings
|
||||
|
|
@ -7,7 +7,13 @@
|
|||
|
||||
use File::Basename;
|
||||
|
||||
print "moo\n";
|
||||
print " _______\n";
|
||||
print " (__) / \\\n";
|
||||
print " (oo) ( M O O )\n";
|
||||
print " /-------\\/ --'\\_______/\n";
|
||||
print " / | ||\n";
|
||||
print "* ||----||\n";
|
||||
print " ^^ ^^\n";
|
||||
|
||||
my $num_warnings = 0;
|
||||
my $path = `dirname $0`;
|
||||
|
|
|
|||
|
|
@ -1,76 +0,0 @@
|
|||
#!/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;
|
||||
my $path = `dirname $0`;
|
||||
chomp $path;
|
||||
$path .= "/../tools";
|
||||
|
||||
sub check_all_elements
|
||||
{
|
||||
#send stderr to /dev/null
|
||||
my $command = "$path/gst-inspect 2>/dev/null";
|
||||
my @lines = `$command`;
|
||||
|
||||
while ($_ = shift(@lines)){
|
||||
my @matches = m/^\w+:\s+(\w+):/;
|
||||
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 = "$path/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 ();
|
||||
|
||||
Loading…
Reference in a new issue