Megatest

Diff
Login

Differences From Artifact [706bcbab51]:

To Artifact [570b3e311e]:


21
22
23
24
25
26
27



28
29















30
31
32

33
34


35
36
37
38
39
40
41
(declare (unit genexample))
(declare (uses mtargs))
(declare (uses debugprint))
;; (declare (uses common))
(declare (uses commonmod))
(declare (uses configfmod))
(declare (uses rmtmod))




(use posix regex matchable)















(import (prefix mtargs args:)
	commonmod
	configfmod

	rmtmod
	debugprint)



;; (include "db_records.scm")

(define genexample:example-logpro
#<<EOF
  ;; You should have at least one expect:required. This ensures that your process ran
  ;; comment out the line below and replace "put pattern here" with a pattern that will







>
>
>


>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|


>

|
>
>







21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
(declare (unit genexample))
(declare (uses mtargs))
(declare (uses debugprint))
;; (declare (uses common))
(declare (uses commonmod))
(declare (uses configfmod))
(declare (uses rmtmod))
(declare (uses testsmod))
(declare (uses dbfile))
(declare (uses tasksmod))

(use posix regex matchable)

(module genexample
	*
	
(import scheme
	chicken

	data-structures
	extras
	srfi-1
	srfi-13
	srfi-69
	posix
	regex
	matchable
	(prefix mtargs args:)
	commonmod
	configfmod
	testsmod
	rmtmod
	debugprint
	tasksmod
	dbfile)

;; (include "db_records.scm")

(define genexample:example-logpro
#<<EOF
  ;; You should have at least one expect:required. This ensures that your process ran
  ;; comment out the line below and replace "put pattern here" with a pattern that will
524
525
526
527
528
529
530

		      (if (not (equal? item-path ""))
			  (system (conc "refdb set " miscrdb " itemsinfo " (obfuscate testname) " " (obfuscate item-path) " x")))

		      ))))
	    tests-data)))
       (map (lambda (runrec)(simple-run-id runrec)) runs)))
    ))








>
545
546
547
548
549
550
551
552
		      (if (not (equal? item-path ""))
			  (system (conc "refdb set " miscrdb " itemsinfo " (obfuscate testname) " " (obfuscate item-path) " x")))

		      ))))
	    tests-data)))
       (map (lambda (runrec)(simple-run-id runrec)) runs)))
    ))
)