mirror of
https://github.com/paparazzi/paparazzi.git
synced 2026-06-02 13:27:32 +08:00
Some basic tests to check that Paparazzi compiled.
Some tests that check that the compile of the airframe config works as well as the upload of that airframe to a target board.
This commit is contained in:
Bernard Davison
@@ -276,6 +276,6 @@ sw/simulator/launchsitl:
|
||||
chmod a+x $@
|
||||
|
||||
|
||||
test: all
|
||||
test: all replace_current_conf_xml
|
||||
cd tests; $(MAKE) $(@)
|
||||
|
||||
|
||||
@@ -10,6 +10,3 @@ ok(-f "$ENV{'PAPARAZZI_SRC'}/sw/ground_segment/tmtc/messages", "The messages pro
|
||||
ok(-f "$ENV{'PAPARAZZI_SRC'}/sw/ground_segment/tmtc/settings", "The settings program exists");
|
||||
ok(-f "$ENV{'PAPARAZZI_SRC'}/sw/ground_segment/cockpit/gcs", "The gcs program exists");
|
||||
|
||||
use Data::Dumper;
|
||||
#warn Dumper(\%ENV);
|
||||
|
||||
@@ -0,0 +1,72 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
use Test::More tests => 3;
|
||||
use lib "$ENV{'PAPARAZZI_SRC'}/tests/lib";
|
||||
use Program;
|
||||
|
||||
$|++;
|
||||
|
||||
####################
|
||||
# Make the airframe
|
||||
my $make_compile_options = "AIRCRAFT=LisaLv11_Booz2v12_RC BOARD_SERIAL=LISA-L-000156 clean_ac ap.compile";
|
||||
my $compile_output = run_program(
|
||||
"Attempting to build and upload the firmware.",
|
||||
$ENV{'PAPARAZZI_SRC'},
|
||||
"make $make_compile_options",
|
||||
0,1);
|
||||
unlike($compile_output, '/Aircraft \'LisaLv11_Booz2v12_RC\' not found in', "The compile output does not contain the message \"Aircraft \'LisaLv11_Booz2v12_RC\' not found in\"");
|
||||
unlike($compile_output, '/Error/i', "The compile output does not contain the word \"Error\"");
|
||||
|
||||
####################
|
||||
# Upload the airframe
|
||||
my $make_upload_options = "AIRCRAFT=LisaLv11_Booz2v12_RC BOARD_SERIAL=LISA-L-000156 ap.upload";
|
||||
my $upload_output = run_program(
|
||||
"Attempting to build and upload the firmware.",
|
||||
$ENV{'PAPARAZZI_SRC'},
|
||||
"make $make_upload_options",
|
||||
0,1);
|
||||
unlike($upload_output, '/Error/i', "The upload output does not contain the word \"Error\"");
|
||||
|
||||
|
||||
################################################################################
|
||||
# functions used by this test script.
|
||||
sub run_program
|
||||
{
|
||||
my $message = shift;
|
||||
my $dir = shift;
|
||||
my $command = shift;
|
||||
my $verbose = shift;
|
||||
my $dont_fail_on_error = shift;
|
||||
|
||||
warn "$message\n" if $verbose;
|
||||
if (defined $dir)
|
||||
{
|
||||
$command = "cd $dir;" . $command;
|
||||
}
|
||||
my $prog = new Program("bash");
|
||||
my $fh = $prog->open("-c \"$command\"");
|
||||
warn "Running command: \"". $prog->last_command() ."\"\n" if $verbose;
|
||||
$fh->autoflush(1);
|
||||
my @output;
|
||||
while (<$fh>)
|
||||
{
|
||||
warn $_ if $verbose;
|
||||
chomp $_;
|
||||
push @output, $_;
|
||||
}
|
||||
$fh->close;
|
||||
my $exit_status = $?/256;
|
||||
unless ($exit_status == 0)
|
||||
{
|
||||
if ($dont_fail_on_error)
|
||||
{
|
||||
warn "Error: The command \"". $prog->last_command() ."\" failed to complete successfully. Exit status: $exit_status\n" if $verbose;
|
||||
}
|
||||
else
|
||||
{
|
||||
die "Error: The command \"". $prog->last_command() ."\" failed to complete successfully. Exit status: $exit_status\n";
|
||||
}
|
||||
}
|
||||
return wantarray ? @output : join "\n", @output;
|
||||
}
|
||||
|
||||
@@ -0,0 +1,304 @@
|
||||
=head1 SYNOPSIS
|
||||
|
||||
use Program;
|
||||
my $m_program = new Program('ls');
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Program is a generic program wrapper that allows easy use of programs on
|
||||
multipul platforms with the correct file handle redirection.
|
||||
|
||||
=head1 FUNCTIONS
|
||||
|
||||
=cut
|
||||
|
||||
package Program;
|
||||
|
||||
###################
|
||||
# Standard Modules
|
||||
use strict;
|
||||
use Config;
|
||||
use FileHandle;
|
||||
|
||||
###################
|
||||
# Variables
|
||||
use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
|
||||
@ISA = qw();
|
||||
@EXPORT = qw();
|
||||
@EXPORT_OK = qw();
|
||||
$VERSION = 0.04;
|
||||
|
||||
# This hash contains the values for redirection.
|
||||
my %m_redirect_values;
|
||||
|
||||
# Standard values
|
||||
$m_redirect_values{'none'} = '';
|
||||
$m_redirect_values{'stdout&stderr2stdout'} = '2>&1';
|
||||
$m_redirect_values{'stdout&stderr2stderr'} = '1>&2';
|
||||
$m_redirect_values{'stdout2stderr&stderr2stdout'} = '3>&1 1>&2 2>&3 3>&-';
|
||||
|
||||
# Platform specific values
|
||||
if ($Config{'osname'} eq 'MSWin32')
|
||||
{
|
||||
if ($Config{'osvers'} ge 4.0)
|
||||
{
|
||||
$m_redirect_values{'stdout2stdnull'} = '1>NUL';
|
||||
$m_redirect_values{'stderr2stdnull'} = '2>NUL';
|
||||
}
|
||||
else
|
||||
{
|
||||
$m_redirect_values{'stdout2stdnull'} = '1>';
|
||||
$m_redirect_values{'stderr2stdnull'} = '2>';
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
$m_redirect_values{'stdout2stdnull'} = '1>/dev/null';
|
||||
$m_redirect_values{'stderr2stdnull'} = '2>/dev/null';
|
||||
}
|
||||
|
||||
###################
|
||||
# Functions
|
||||
|
||||
################################################################################
|
||||
# Function: new()
|
||||
|
||||
=head2 B<new()>
|
||||
|
||||
Description: This method returns an objective interface the the passed program.
|
||||
Arguments: $program
|
||||
Return: class
|
||||
Usage: my $ls = new Program('ls');
|
||||
|
||||
=cut
|
||||
|
||||
sub new
|
||||
{
|
||||
my $class = shift;
|
||||
my $program = shift;
|
||||
|
||||
my $self = bless {}, $class;
|
||||
$self->{'PROGRAM'} = $program;
|
||||
$self->{'CHOMP'} = 1;
|
||||
$self->{'REDIRECT'} = 'stdout&stderr2stdout';
|
||||
$self->{'LAST_COMMAND'} = "No commands have been executed yet.";
|
||||
$self->{'EXIT_STATUS'} = 0;
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
################################################################################
|
||||
# Function: strip_new_lines()
|
||||
|
||||
=head2 B<strip_new_lines()>
|
||||
|
||||
Description: This functions is used to set wether the output from a command
|
||||
has trailing new lines removed.
|
||||
Arguments: 0 to turn chomping off
|
||||
1 to turn chomping on
|
||||
Default: 1
|
||||
Return: true if chomping is on else undef
|
||||
Usage: $ls->strip_new_lines(1);
|
||||
$ls->strip_new_lines(0);
|
||||
|
||||
=cut
|
||||
|
||||
sub strip_new_lines
|
||||
{
|
||||
my $self = shift;
|
||||
my $value = shift;
|
||||
|
||||
if (scalar $value)
|
||||
{
|
||||
$self->{'CHOMP'} = $value;
|
||||
}
|
||||
else
|
||||
{
|
||||
return $self->{'CHOMP'};
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
################################################################################
|
||||
# Function: redirect()
|
||||
|
||||
=head2 B<redirect()>
|
||||
|
||||
Description: This functions is used to set the STDOUT and STDERR redirection
|
||||
for commands executed by the program.
|
||||
Arguments: possible values are stdout&stderr2stdout, stdout&stderr2stderr
|
||||
stdout2stderr&stderr2stdout, stdout2stdnull, stderr2stdnull
|
||||
Default: sdtout&stderr2stdout
|
||||
Return: redirection option if nothing passed else set the redirection
|
||||
Usage: $ls->redirect('stderr2sdtnull');
|
||||
|
||||
=cut
|
||||
|
||||
sub redirect
|
||||
{
|
||||
my $self = shift;
|
||||
my $value = shift;
|
||||
|
||||
if (scalar $value)
|
||||
{
|
||||
$self->{'REDIRECT'} = $value;
|
||||
}
|
||||
else
|
||||
{
|
||||
return $m_redirect_values{$self->{'REDIRECT'}};
|
||||
}
|
||||
}
|
||||
|
||||
################################################################################
|
||||
# Function: last_command()
|
||||
|
||||
=head2 B<last_command()>
|
||||
|
||||
Description: This function returns the last command executed.
|
||||
Arguments: None.
|
||||
Return: The last command
|
||||
Usage: print $ls->last_command();
|
||||
|
||||
=cut
|
||||
|
||||
sub last_command
|
||||
{
|
||||
my $self = shift;
|
||||
return $self->{'LAST_COMMAND'};
|
||||
}
|
||||
|
||||
################################################################################
|
||||
# Function: output()
|
||||
|
||||
=head2 B<output()>
|
||||
|
||||
Description: This function returns the output from a program.
|
||||
Arguments: command to execute.
|
||||
Return: array if called in an array context else string
|
||||
Usage: my $output = $ls->output("-l");
|
||||
my @output = $ls->output("-l");
|
||||
|
||||
=cut
|
||||
|
||||
sub output
|
||||
{
|
||||
my $self = shift;
|
||||
my $command = shift;
|
||||
my $exec_command = "$self->{'PROGRAM'} $command " . $self->redirect();
|
||||
$self->{'LAST_COMMAND'} = $exec_command;
|
||||
|
||||
my @output_list;
|
||||
my $output_line;
|
||||
if (wantarray)
|
||||
{
|
||||
@output_list = `$exec_command`;
|
||||
foreach my $line (@output_list)
|
||||
{
|
||||
chomp $line if $self->strip_new_lines();
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
$output_line = `$exec_command`;
|
||||
chomp $output_line if $self->strip_new_lines();
|
||||
}
|
||||
$self->{'EXIT_STATUS'} = $?/256;
|
||||
|
||||
return wantarray ? @output_list : $output_line;
|
||||
}
|
||||
|
||||
################################################################################
|
||||
# Function: status()
|
||||
|
||||
=head2 B<status()>
|
||||
|
||||
Description: This function returns the exit status of the last
|
||||
command.
|
||||
Arguments: None.
|
||||
Return: exit status.
|
||||
Usage: my $status = $ls->status();
|
||||
|
||||
=cut
|
||||
|
||||
sub status
|
||||
{
|
||||
my $self = shift;
|
||||
return $self->{'EXIT_STATUS'};
|
||||
}
|
||||
|
||||
################################################################################
|
||||
# Function: success()
|
||||
|
||||
=head2 B<success()>
|
||||
|
||||
Description: This function returns true if the last command was successful
|
||||
Arguments: None.
|
||||
Return: true for success else undef.
|
||||
Usage: if ($ls->success())
|
||||
{
|
||||
Print "Success\n";
|
||||
}
|
||||
else
|
||||
{
|
||||
Print "Failure\n";
|
||||
}
|
||||
|
||||
=cut
|
||||
|
||||
sub success
|
||||
{
|
||||
my $self = shift;
|
||||
return 1 if $self->status() eq 0;
|
||||
return undef
|
||||
}
|
||||
|
||||
################################################################################
|
||||
# Function: open()
|
||||
|
||||
=head2 B<open()>
|
||||
|
||||
Description: This function returns an open file handle for the passed command
|
||||
NOTE: Since the exit status of the file handle cannot be
|
||||
retrieved by this module the user must check the exit status of
|
||||
the file handle using the $fh->error() method. See IO::Handle.
|
||||
Arguments: command to execute.
|
||||
Return: open file handle.
|
||||
Usage: my $fh = $ls->open("-l)
|
||||
while (<$fh>)
|
||||
{
|
||||
print "$_\n";
|
||||
}
|
||||
|
||||
=cut
|
||||
|
||||
sub open
|
||||
{
|
||||
my $self = shift;
|
||||
my $command = shift;
|
||||
|
||||
my $exec_command = "$self->{'PROGRAM'} $command " . $self->redirect() ." |";
|
||||
$self->{'LAST_COMMAND'} = $exec_command;
|
||||
$self->{'EXIT_STATUS'} = 0;
|
||||
|
||||
my $fh = new FileHandle($exec_command);
|
||||
return $fh;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 SEE ALSO
|
||||
|
||||
FileHandle
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Bernard Davison bernard@gondwana.com.au
|
||||
|
||||
=head1 COPYRIGHT
|
||||
|
||||
Copyright (C) 2000, Gondwanatech.
|
||||
|
||||
=cut
|
||||
|
||||
Reference in New Issue
Block a user