Megatest

Check-in [701c6c5840]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:fix bug
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.63
Files: files | file ages | folders
SHA1: 701c6c58404681641cc43365a40e286a22d3553d
User & Date: bjbarcla on 2017-02-03 17:01:02
Other Links: branch diff | manifest | tags
Context
2017-02-04
22:47
Fixed crash due to old usage of run-id check-in: 11ed7c771f user: matt tags: v1.63
2017-02-03
17:15
merged with v1.63 check-in: b4a8031723 user: pjhatwal tags: html-gen
17:01
fix bug check-in: 701c6c5840 user: bjbarcla tags: v1.63
16:25
fixed the html genrate message check-in: 7a120e7604 user: pjhatwal tags: v1.63, v1.6306
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Deleted ducttape/MANIFEST version [183a9e3c16]. 

1
2
3
4
5
6
7
8
9
10

MANIFEST
Makefile
ducttape-lib.scm
ducttape-lib.setup
mimetypes.scm
sample_ducttape.scm
test_ducttape.scm
test_example.scm
useargs-example.scm
workweekdate.scm

<
<
<
<
<
<
<
<
<
<

Modified ducttape/Makefile from [4c52034a48] to [7c53ca1a83]. 

1
2
3
4
5
6
7
8
9

SHELL=/bin/tcsh -f

help:
	@echo ""
	@echo "make targets:"
	@echo "============="
	@echo "install      - build and install general_lib egg as icfadm"
	@echo "test         - run unit tests on ducttape-lib.scm (tests code, not egg)"
	@echo "eggs-info     - show chicken-install commands to get eggs upon which ducttape-lib depends"

<
<










1
2
3
4
5
6
7



help:
	@echo ""
	@echo "make targets:"
	@echo "============="
	@echo "install      - build and install general_lib egg as icfadm"
	@echo "test         - run unit tests on ducttape-lib.scm (tests code, not egg)"
	@echo "eggs-info     - show chicken-install commands to get eggs upon which ducttape-lib depends"
︙︙
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

	chicken-install

test:
	chicken-install -no-install
	csc test_ducttape.scm

	./test_ducttape
	if (-e foo) rm -f foo

test_example:
	@csc test_example.scm
	@./test_example
	@rm test_example

eggs-info:
	@echo chicken-install ansi-escape-sequences
	@echo chicken-install slice
	@echo chicken-install rfc3339








|











16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

	chicken-install

test:
	chicken-install -no-install
	csc test_ducttape.scm

	./test_ducttape
	rm -f foo

test_example:
	@csc test_example.scm
	@./test_example
	@rm test_example

eggs-info:
	@echo chicken-install ansi-escape-sequences
	@echo chicken-install slice
	@echo chicken-install rfc3339

Added ducttape/README version [bc9be285fc]. 



















>
>
>
>
>
>
>
>

1
2
3
4
5
6
7
8

This directory holds the "ducttape" chicken scheme egg used by megatest.

Run "make test" to ensure this egg works on your system.

Run "make install" as your admin user with chicken on your $PATH to install this egg.

Modified ducttape/test_ducttape.scm from [337f613f00] to [f1892fd163].

︙︙
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

  (ducttape-color-mode #f)
)

(define (reset-ducttape-with-cmdline-list cmdline-list)
  (reset-ducttape)

  (command-line-arguments cmdline-list)
  (process-command-line)
)


(define (direct-iputs-test)
  (ducttape-color-mode #f)
  (ierr "I'm an error")
  (iwarn "I'm a warning")








|








28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

  (ducttape-color-mode #f)
)

(define (reset-ducttape-with-cmdline-list cmdline-list)
  (reset-ducttape)

  (command-line-arguments cmdline-list)
  (ducttape-process-command-line)
)


(define (direct-iputs-test)
  (ducttape-color-mode #f)
  (ierr "I'm an error")
  (iwarn "I'm a warning")
︙︙
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355

  (test-misc)
  (test-wwdate)
  ) ; end main()

(main)
(sendmail "brandon.j.barclay@intel.com" "6hello subject"  "test body" )

(let* ((image-file "/nfs/site/home/bjbarcla/megatest-logo.png")
       (cid "mtlogo")
       (image-alist (list (cons image-file cid)))
       (body  (conc "Hello world<br /><img cid:"cid" alt=\"test image\"><br>bye!")))

  (sendmail "brandon.j.barclay@intel.com" "7hello subject"  body use_html: #t images-with-content-id-alist: image-alist)
  (print "sent image mail"))
;(sendmail "bjbarcla" "2hello subject html"  "test body<h1>hello</h1><i>italics</i>" use_html: #t)
;(sendmail "bb" "4hello attach subject html"  "<h2>hmm</h2>" use_html: #t attach-files-list: '( "/Users/bb/Downloads/wdmycloud-manual-4779-705103.pdf" ) )

;(launch-repl)
(test-exit)








|
|
|
|

|
|






337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355

  (test-misc)
  (test-wwdate)
  ) ; end main()

(main)
(sendmail "brandon.j.barclay@intel.com" "6hello subject"  "test body" )

;(let* ((image-file "/nfs/site/home/bjbarcla/megatest-logo.png")
;       (cid "mtlogo")
;       (image-alist (list (cons image-file cid)))
;       (body  (conc "Hello world<br /><img cid:"cid" alt=\"test image\"><br>bye!")))

;  (sendmail "brandon.j.barclay@intel.com" "7hello subject"  body use_html: #t images-with-content-id-alist: image-alist)
;  (print "sent image mail"))
;(sendmail "bjbarcla" "2hello subject html"  "test body<h1>hello</h1><i>italics</i>" use_html: #t)
;(sendmail "bb" "4hello attach subject html"  "<h2>hmm</h2>" use_html: #t attach-files-list: '( "/Users/bb/Downloads/wdmycloud-manual-4779-705103.pdf" ) )

;(launch-repl)
(test-exit)

This page was generated in about 0.107s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00