suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

slatex: generate files in temporary directory

Browse Source
This commit is contained in:
Matthew Flatt 2014-06-03 10:00:14 +01:00
parent 94a5b02886
commit 2b3db0acb7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/slatex/tests/slatex/test.rkt
View File

@ -6,13 +6,13 @@
(define-runtime-path slatex-file-pth '(lib "slatex"))
(define slatex-pth (path-only slatex-file-pth))
(define tmp-file (build-path (current-directory) "test.tex")
#;(make-temporary-file "slatex~a.tex" #f (current-directory)))
(parameterize ([current-directory (find-system-path 'temp-dir)])
(define tmp-file (build-path (current-directory) "test.tex"))
(test
(putenv "TEXINPUTS" (format "~a:" (path->string slatex-pth)))
tmp-file
(with-output-to-file tmp-file #:exists 'truncate/replace
(lambda ()
(display #<<END
@ -59,4 +59,4 @@ END
(with-handlers ([exn:fail:filesystem? void])
(delete-file (path-replace-suffix tmp-file #".dvi")))
(delete-file tmp-file))
(delete-file tmp-file)))