Megatest

Check-in [88d5b2682a]
Login
Overview
Comment:Fixed bug with remove-runs removing a run record when tests still existed
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 88d5b2682aa828b346897e98b157f5248edddf92
User & Date: mrwellan on 2012-04-20 12:12:53
Other Links: manifest | tags
Context
2012-04-22
16:57
Merged some layabout changes check-in: a378c1f1a9 user: matt tags: trunk
2012-04-20
22:29
Extend test get path check-in: 8f2a9bcf7c user: mrwellan tags: extend-test-get-path
12:12
Fixed bug with remove-runs removing a run record when tests still existed check-in: 88d5b2682a user: mrwellan tags: trunk
2012-04-19
23:58
go ahead and merge to trunk check-in: a06af4450a user: matt tags: trunk
Changes

Modified db.scm from [27dc22ce24] to [2c88e7344f].

292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
			  (string-intersperse remfields ","))))
    (list keystr header)))

;; make a query (fieldname like 'patt1' OR fieldname 
(define (db:patt->like fieldname pattstr #!key (comparator " OR "))
  (let ((patts (if (string? pattstr)
		   (string-split pattstr ",")
		   '(""))))
    (string-intersperse (map (lambda (patt)
			       (conc fieldname " LIKE '" patt "'"))
			     (if (null? patts)
				 '("")
				 patts))
			comparator)))








|







292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
			  (string-intersperse remfields ","))))
    (list keystr header)))

;; make a query (fieldname like 'patt1' OR fieldname 
(define (db:patt->like fieldname pattstr #!key (comparator " OR "))
  (let ((patts (if (string? pattstr)
		   (string-split pattstr ",")
		   '("%"))))
    (string-intersperse (map (lambda (patt)
			       (conc fieldname " LIKE '" patt "'"))
			     (if (null? patts)
				 '("")
				 patts))
			comparator)))