[Gnash-commit] /srv/bzr/gnash/rtmp r9831: delete more temp files.

[rob]

------------------------------------------------------------
revno: 9831
committer: address@hidden
branch nick: rtmp
timestamp: Sun 2008-12-14 20:46:58 -0700
message:
  delete more temp files.
modified:
  cygnal/testsuite/cygnal.exp

=== modified file 'cygnal/testsuite/cygnal.exp'
--- a/cygnal/testsuite/cygnal.exp       2008-12-01 22:08:10 +0000
+++ b/cygnal/testsuite/cygnal.exp       2008-12-15 03:46:58 +0000
@@ -18,7 +18,6 @@
 
 load_lib "dejagnu.exp"
 
-
 # If tracing has been enabled at the top level, then turn it on here
 # too.
 if $tracelevel {
@@ -40,7 +39,7 @@
 proc delete_files {} {
     # Get rid of old temp files created by testing,
     if {[file exists foo]} {
-       set junk [glob foo* wget-log* amf0*]
+       set junk [glob foo* wget-log* amf0*  *.bin.*]
        if { $junk != "" } {
            catch "exec rm -f $junk"
        }
@@ -308,28 +307,27 @@
 
 delete_files
 
-exit
 
 # testcases is set by the Makefile in the site.exp data file.
 #foreach file $testcases {
-    expect {
-       -i $sid "*Starting*" {
-           verbose "Started Cygnal \"$server -p 4000 -vv -n\""
-       }
-       -i $sid "HTTP Handler" {
-           verbose "Started HTTP Handler"
-       }
-       -i $sid eof {
-           #       unresolved "${file} died prematurely"
-           #       catch close
-           #       return "${file} died prematurely"
-       }
-       -i $sid timeout {
-               fail "Test case ${server} still running after ${timeout} 
seconds, killing it (deadlock?)"
-#              catch close -i $sid
-#              continue;
-       }
-    }
+#     expect {
+#      -i $sid "*Starting*" {
+#          verbose "Started Cygnal \"$server -p 4000 -vv -n\""
+#      }
+#      -i $sid "HTTP Handler" {
+#          verbose "Started HTTP Handler"
+#      }
+#      -i $sid eof {
+#          #       unresolved "${file} died prematurely"
+#          #       catch close
+#          #       return "${file} died prematurely"
+#      }
+#      -i $sid timeout {
+#              fail "Test case ${server} still running after ${timeout} 
seconds, killing it (deadlock?)"
+# #            catch close -i $sid
+# #            continue;
+#      }
+#     }
 
 #     verbose "Running test $file"
 
@@ -399,24 +397,24 @@
 #      }
 #     }
 
-    # wait for the process to coplete to
-    # check return code
-    set retcode [wait]
-    
-    # debugging
-    #set i 0; foreach j $retcode { print "${file} wait($i) $j"; incr i }
-    
-    if { [ llength $retcode ] > 5 } {
-               fail "${file} died prematurely ([lindex $retcode 6])"
-    }
-    if { [ lindex $retcode 3 ] != 0 } {
-       fail "${file} exited with non-zero code ([lindex $retcode 3])"
-    }
+#     # wait for the process to coplete to
+#     # check return code
+#     set retcode [wait]
+    
+#     # debugging
+#     #set i 0; foreach j $retcode { print "${file} wait($i) $j"; incr i }
+    
+#     if { [ llength $retcode ] > 5 } {
+#              fail "${file} died prematurely ([lindex $retcode 6])"
+#     }
+#     if { [ lindex $retcode 3 ] != 0 } {
+#      fail "${file} exited with non-zero code ([lindex $retcode 3])"
+#     }
 
     
     
-    # force a close of the executable to be safe.
-    catch close
+#    # force a close of the executable to be safe.
+#    catch close
 #}