Megatest

Check-in [6340e533f1]
Login
Overview
Comment:Bumped to v1.26
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 6340e533f158367077a29e8d7451cd145a90087f
User & Date: mrwellan on 2011-09-21 17:13:34
Other Links: manifest | tags
Context
2011-09-24
13:09
Moved docs to html dir check-in: bcd0ad7471 user: matt tags: trunk
2011-09-21
17:13
Bumped to v1.26 check-in: 6340e533f1 user: mrwellan tags: trunk
00:53
Manually tweaked megatest.wiki, remove top 10 or so lines, added missing title text back in. Removed last two lines check-in: b6762fdadf user: matt tags: trunk
Changes

Modified db.scm from [7de3dfb95e] to [371ee9f49e].

533
534
535
536
537
538
539


540
541
542
543
544
545
546
	      (comment     (list-ref padded-row 6))
	      (status      (let ((s (list-ref padded-row 7)))
			     (if (and (string? s)(or (string-match (regexp "^\\s*$") s)
						     (string-match (regexp "^n/a$") s)))
				 #f
				 s)))) ;; if specified on the input then use, else calculate
	 ;; look up expected,tol,units from previous best fit test if they are all either #f or ''


	 (if (and (or (not expected)(equal? expected ""))
		  (or (not tol)     (equal? expected ""))
		  (or (not units)   (equal? expected "")))
	     (let-values (((new-expected new-tol new-units)(db:get-prev-tol-for-test db test-id category variable)))
	       (set! expected new-expected)
	       (set! tol      new-tol)
	       (set! units    new-units)))







>
>







533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
	      (comment     (list-ref padded-row 6))
	      (status      (let ((s (list-ref padded-row 7)))
			     (if (and (string? s)(or (string-match (regexp "^\\s*$") s)
						     (string-match (regexp "^n/a$") s)))
				 #f
				 s)))) ;; if specified on the input then use, else calculate
	 ;; look up expected,tol,units from previous best fit test if they are all either #f or ''
	 (debug:print 4 "category: " category ", variable: " variable ", value: " value 
		      ", expected: " expected ", tol: " tol ", units: " units ", status: " status ", comment: " comment)
	 (if (and (or (not expected)(equal? expected ""))
		  (or (not tol)     (equal? expected ""))
		  (or (not units)   (equal? expected "")))
	     (let-values (((new-expected new-tol new-units)(db:get-prev-tol-for-test db test-id category variable)))
	       (set! expected new-expected)
	       (set! tol      new-tol)
	       (set! units    new-units)))

Modified megatest-version.scm from [97dbb5e825] to [ddfe047776].

1
2
3
;; Always use two digit decimal
;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00..
(define megatest-version 1.25)


|
1
2
3
;; Always use two digit decimal
;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00..
(define megatest-version 1.26)