Started adding a Perl test framework. Need to work out how to print JUnit test results though...

Makefile

@@ -281,3 +281,6 @@ sw/simulator/launchsitl:
 %.hgt.zip:
 	cd data/srtm; $(MAKE) $(@)
 
+test: all
+	cd tests; $(MAKE) $(@)
+

tests/Makefile

@@ -0,0 +1,10 @@
+PERL = perl
+TEST_VERBOSE=0
+ifeq ($(AIRCRAFT),)
+AIRCRAFT=*
+endif
+TEST_FILES = $(AIRCRAFT)/*.t
+
+test:
+	$(PERL) "-MExtUtils::Command::MM" "-e" "test_harness($(TEST_VERBOSE))" $(TEST_FILES)
+

tests/paparazzi/01_programs.t

@@ -0,0 +1,15 @@
+#!/usr/bin/perl -w
+
+use Test::More tests => 5;
+
+$|++; 
+
+ok(-f "$ENV{'PAPARAZZI_SRC'}/sw/ground_segment/tmtc/server", "The server program exists");
+ok(-f "$ENV{'PAPARAZZI_SRC'}/sw/ground_segment/tmtc/link", "The link program exists");
+ok(-f "$ENV{'PAPARAZZI_SRC'}/sw/ground_segment/tmtc/messages", "The messages program exists");
+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);
+