[Gnash-commit] /srv/bzr/gnash/rtmp r10093: make sure we have a valid server for testing before continuing.

[rob]

------------------------------------------------------------
revno: 10093
committer: address@hidden
branch nick: rtmp
timestamp: Wed 2009-04-01 12:33:44 -0600
message:
  make sure we have a valid server for testing before continuing.
modified:
  testsuite/network.all/network.exp

=== modified file 'testsuite/network.all/network.exp'
--- a/testsuite/network.all/network.exp 2009-04-01 16:23:23 +0000
+++ b/testsuite/network.all/network.exp 2009-04-01 18:33:44 +0000
@@ -34,12 +34,14 @@
 set params ""
 
 # specify a default name and port for the RTMPT (AMF over HTTP) tests
-set http_hostname localhost
-set http_portnum 5080
+set http_hostname ""
+set http_portnum ""
+set http_dead false
 
 # specify a default name and port for the RTMP  tests
-set rtmp_hostname localhost
-set rtmp_portnum 1935
+set rtmp_hostname ""
+set rtmp_portnum ""
+set rtmp_dead false
 
 #
 # These are lists of hostname and port combinations 'probed'
@@ -127,6 +129,13 @@
      }
 }
 
+# Make sure somebody responded, or we can't run the tests
+if {[string length $http_hostname] == 0} {
+    perror "No HTTP servers appear to be alive"
+    set http_dead true
+    exit
+}
+
 foreach {index target} [array get rtmp_targets] {
     set host [lindex $target 0]
     set port [lindex $target 1]
@@ -139,6 +148,11 @@
        verbose "$host:$port has no RTMP service attached!"
      }
 }
+if {[string length $rtmp_hostname] == 0} {
+    perror "No RTMP servers appear to be alive"
+    set rtmp_dead true
+    exit
+}
 
 global env
 set env(LANG) en_US.UTF-8