Overview
Comment: | Adding a singletest (i.e. no items) |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | experimental |
Files: | files | file ages | folders |
SHA1: |
5d48bcf7401208ddf98b1d0c021bb964 |
User & Date: | mrwellan on 2011-06-18 22:20:44 |
Other Links: | branch diff | manifest | tags |
Context
2011-06-19
| ||
12:03 | Added some additional tests to the example run check-in: a6f2ac3f35 user: mrwellan tags: experimental | |
2011-06-18
| ||
22:20 | Adding a singletest (i.e. no items) check-in: 5d48bcf740 user: mrwellan tags: experimental | |
15:41 | Fixed the issue where runs were blocked by itemized tests where the parent state and status confused megatest check-in: ca022fd7b5 user: mrwellan tags: experimental | |
Changes
Modified runs.scm from [8546ef4018] to [515d5f8026].
︙ | |||
268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 | 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 | + - | (and max-concurrent-jobs (string->number max-concurrent-jobs) (not (>= num-running (string->number max-concurrent-jobs))))) (run-one-test db run-id test-name keyvallst) (print "WARNING: Max running jobs exceeded, current number running: " num-running ", max_concurrent_jobs: \"" max-concurrent-jobs "\"")))) test-names) (run-waiting-tests db) (if (args:get-arg "-keepgoing") (let ((estrem (db:estimated-tests-remaining db run-id))) (if (> estrem 0) (begin (print "Keep going, estimated " estrem " tests remaining to run, will continue in 10 seconds ...") (sleep 10) ;; (run-waiting-tests db) (loop (+ numtimes 1))))))))) ;; VERY INEFFICIENT! Move stuff that should be done once up to calling proc (define (run-one-test db run-id test-name keyvallst) |
︙ | |||
318 319 320 321 322 323 324 | 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 | + + - + | ;; Handle lists of items (let* ((item-path (item-list->path itemdat)) ;; (string-intersperse (map cadr itemdat) "/")) (new-test-path (string-intersperse (cons test-path (map cadr itemdat)) "/")) (new-test-name (if (equal? item-path "") test-name (conc test-name "/" item-path))) ;; just need it to be unique (testdat #f) (num-running (db:get-count-tests-running db)) (max-concurrent-jobs (config-lookup *configdat* "setup" "max_concurrent_jobs")) (parent-test (and (not (null? items))(equal? item-path ""))) (single-test (and (null? items) (equal? item-path ""))) |
︙ | |||
359 360 361 362 363 364 365 | 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 | - + + | 'failed-to-insert)) ((failed-to-insert) (print "ERROR: Failed to insert the record into the db")) ((NOT_STARTED COMPLETED) ;; (print "Got here, " (test:get-state testdat)) (let ((runflag #f)) (cond |
︙ |
Added tests/tests/singletest/main.sh version [d6bd6dbe4e].
|
Added tests/tests/singletest/testconfig version [e1b002dc2e].
|
Added tests/tests/singletest/wasting_time.logpro version [1c532ab9c9].
|