Merge pull request #604 from hollie/add_travis_support

Add Travis CI regression test support

.travis.yml

@@ -0,0 +1,11 @@
+language: perl
+perl:
+  - "5.24"
+  - "5.22"
+  - "5.20"
+  - "5.18"
+  - "5.16"
+  - "5.14"
+  - "5.08"
+install: true
+script: cd bin ; ./mh -tk 0 -code_dir ../code/test

README.md

@@ -1,6 +1,8 @@
 MisterHouse
 ===========
 
+[![Build Status](https://travis-ci.org/hollie/misterhouse.svg?branch=master)](https://travis-ci.org/hollie/misterhouse)
+
 Perl open source home automation program. It's fun, it's free, and it's entirely geeky.
 
 * [Quickstart Guide](https://github.com/hollie/misterhouse/wiki/Getting-started)

bin/mh

@@ -3705,7 +3705,7 @@ sub exit_pgm {
         $sock->close() if $sock;
     }
 
-    # Use exit code 1 to mean we exited on purpose ... anything else
+    # Use exit code 0 to mean we exited on purpose ... anything else
     # we can use in mh_loop to mean accidental exit, 'better restart'
     if ($restart) {
         &print_log("Restarting mh");
@@ -3717,7 +3717,7 @@ sub exit_pgm {
         print "Bye Bye\n";
 
         #       exit 1;
-        POSIX::_exit(1);     # MUCH faster ... but no DESTROY or END called.
+        POSIX::_exit(0);     # MUCH faster ... but no DESTROY or END called.
     }
 }
 

bin/mhl

@@ -23,7 +23,7 @@ while [ 1 = 1 ]; do
     rc=$?
     echo mh rc=$rc
 
-    if [ $rc = 1 ]; then
+    if [ $rc = 0 ]; then
        echo mh exited normally
        exit
     fi

code/test/test_mh.pl

@@ -0,0 +1,15 @@
+# Category=Test
+
+# At startup program a time to stop the test after one minute
+my  $shutdown_timer = new Timer; #noloop
+$shutdown_timer->set(60, \&shutdown); #noloop
+
+if ($Startup) {
+	$shutdown_timer->start();
+	print_log "Shutdown timer set";
+}
+
+sub shutdown {
+	print_log "Stopping self-test, exit...";
+	run_voice_cmd("Exit Mister House");
+}