Megatest

Check-in [85a1288370]
Login
Overview
Comment:Fix to kill
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | switch-to-zmq
Files: files | file ages | folders
SHA1: 85a128837087bbea5603f713a60f5b8eff211147
User & Date: matt on 2012-10-24 07:02:42
Other Links: branch diff | manifest | tags
Context
2012-10-24
11:57
switched to compact table of queries Closed-Leaf check-in: c8473ef1f8 user: matt tags: switch-to-zmq
10:04
Streamlined remote queries Closed-Leaf check-in: e43c4a954e user: matt tags: experimental-sql-query-table
07:02
Fix to kill check-in: 85a1288370 user: matt tags: switch-to-zmq
00:08
test4 now passing in zmq server mode check-in: c91f937011 user: matt tags: switch-to-zmq
Changes

Modified launch.scm from [b2fca87f66] to [cbfe4ed966].

273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
									     (string->number (car parts))
									     #f)))
							    (if p-id
								(begin
								  (debug:print 0 "Killing " (cadr parts) "; kill -9  " p-id)
								  (system (conc "kill -9 " p-id))))))
							(car processes))
						       (system (conc "kill -9 " pid))))
						   (begin
						     (debug:print 0 "WARNING: Request received to kill job but problem with process, attempting to kill manager process")
						     (tests:test-set-status! test-id "KILLED"  "FAIL"
								     (args:get-arg "-m") #f)
						     (sqlite3:finalize! tdb)
						     (exit 1))))
					     (set! kill-tries (+ 1 kill-tries))







|







273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
									     (string->number (car parts))
									     #f)))
							    (if p-id
								(begin
								  (debug:print 0 "Killing " (cadr parts) "; kill -9  " p-id)
								  (system (conc "kill -9 " p-id))))))
							(car processes))
						       (system (conc "kill -9 -" pid))))
						   (begin
						     (debug:print 0 "WARNING: Request received to kill job but problem with process, attempting to kill manager process")
						     (tests:test-set-status! test-id "KILLED"  "FAIL"
								     (args:get-arg "-m") #f)
						     (sqlite3:finalize! tdb)
						     (exit 1))))
					     (set! kill-tries (+ 1 kill-tries))