Artifact 0f45f8f7d8451ae801677d4875ce6b5ff762a70bc90928a5cc6767bfdf856a0f:
- Executable file
r36/cslsrc/ndotest.red
— part of check-in
[f2fda60abd]
at
2011-09-02 18:13:33
on branch master
— Some historical releases purely for archival purposes
git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1257) [annotate] [blame] [check-ins using] [more...]
% % "ndotest.red" % This runs one of the REDUCE test files and collects the output in a % log file with timing information appended. It is for use with CSL-based % versions of REDUCE and should be invoked as % r36 -b ndotest.red -Dname=xxx -Dloadup=yyy -- xxx.log % where xxx is the name of the test file, and yyy a package to be % loaded first. The "-Dloadup=yyy" should be omitted if the module to be % tested forms part of the code of REDUCE. Almost always this script % will be invoked from either the "makefile" or an equivalent batch file. % on errcont$ % So that computation continues after an error. symbolic << if boundp 'loadup then errorset(list('load!-package, mkquote compress explodec loadup), nil, nil); !*mode := 'algebraic; test!-time := time(); test!-gctime := gctime(); errorset(list('in1, mkquote format(nil, "../xmpl/~a.tst", name), t), t, t); test!-time := difference(time(), test!-time); test!-gctime := difference(gctime(), test!-gctime); % first the time exclusive of GC overheads, then inclusive prin2t list("TIME: ", name, test!-time, test!-time+test!-gctime); if member('record_get, lispsystem!*) then bytecounts() >>; bye;