/usr/share/doc/racket/unstable/macro-testing.html is in racket-doc 6.1-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html><head><meta http-equiv="content-type" content="text/html; charset=utf-8"/><title>16 Macro Testing</title><link rel="stylesheet" type="text/css" href="../scribble.css" title="default"/><link rel="stylesheet" type="text/css" href="../racket.css" title="default"/><link rel="stylesheet" type="text/css" href="../manual-style.css" title="default"/><link rel="stylesheet" type="text/css" href="../manual-racket.css" title="default"/><link rel="stylesheet" type="text/css" href="../manual-racket.css" title="default"/><link rel="stylesheet" type="text/css" href="../doc-site.css" title="default"/><script type="text/javascript" src="../scribble-common.js"></script><script type="text/javascript" src="../manual-racket.js"></script><script type="text/javascript" src="../manual-racket.js"></script><script type="text/javascript" src="../doc-site.js"></script><script type="text/javascript" src="../local-redirect/local-redirect.js"></script><script type="text/javascript" src="../local-redirect/local-user-redirect.js"></script><!--[if IE 6]><style type="text/css">.SIEHidden { overflow: hidden; }</style><![endif]--></head><body id="doc-racket-lang-org"><div class="tocset"><div class="tocview"><div class="tocviewlist tocviewlisttopspace"><div class="tocviewtitle"><table cellspacing="0" cellpadding="0"><tr><td style="width: 1em;"><a href="javascript:void(0);" title="Expand/Collapse" class="tocviewtoggle" onclick="TocviewToggle(this,"tocview_0");">▼</a></td><td></td><td><a href="index.html" class="tocviewlink" data-pltdoc="x">Unstable:<span class="mywbr"> </span> May Change Without Warning</a></td></tr></table></div><div class="tocviewsublistonly" style="display: block;" id="tocview_0"><table cellspacing="0" cellpadding="0"><tr><td align="right">1 </td><td><a href="guidelines.html" class="tocviewlink" data-pltdoc="x">Guidelines for Developing <span class="RktSym">unstable</span> Libraries</a></td></tr><tr><td align="right">2 </td><td><a href="Automata__Compiling_State_Machines.html" class="tocviewlink" data-pltdoc="x">Automata:<span class="mywbr"> </span> Compiling State Machines</a></td></tr><tr><td align="right">3 </td><td><a href="bytes.html" class="tocviewlink" data-pltdoc="x">Bytes</a></td></tr><tr><td align="right">4 </td><td><a href="contract.html" class="tocviewlink" data-pltdoc="x">Contracts</a></td></tr><tr><td align="right">5 </td><td><a href="wrapc.html" class="tocviewlink" data-pltdoc="x">Contracts for Macro Subexpressions</a></td></tr><tr><td align="right">6 </td><td><a href="Debugging.html" class="tocviewlink" data-pltdoc="x">Debugging</a></td></tr><tr><td align="right">7 </td><td><a href="Definitions.html" class="tocviewlink" data-pltdoc="x">Definitions</a></td></tr><tr><td align="right">8 </td><td><a href="error.html" class="tocviewlink" data-pltdoc="x">Errors</a></td></tr><tr><td align="right">9 </td><td><a href="future.html" class="tocviewlink" data-pltdoc="x">Futures</a></td></tr><tr><td align="right">10 </td><td><a href="Functions.html" class="tocviewlink" data-pltdoc="x">Functions</a></td></tr><tr><td align="right">11 </td><td><a href="Hash_Tables.html" class="tocviewlink" data-pltdoc="x">Hash Tables</a></td></tr><tr><td align="right">12 </td><td><a href="class-iop.html" class="tocviewlink" data-pltdoc="x">Interface-<wbr></wbr>Oriented Programming for Classes</a></td></tr><tr><td align="right">13 </td><td><a href="lazy-require.html" class="tocviewlink" data-pltdoc="x">Lazy Require</a></td></tr><tr><td align="right">14 </td><td><a href="list.html" class="tocviewlink" data-pltdoc="x">Lists</a></td></tr><tr><td align="right">15 </td><td><a href="Logging.html" class="tocviewlink" data-pltdoc="x">Logging</a></td></tr><tr><td align="right">16 </td><td><a href="" class="tocviewselflink" data-pltdoc="x">Macro Testing</a></td></tr><tr><td align="right">17 </td><td><a href="Mark_Parameters.html" class="tocviewlink" data-pltdoc="x">Mark Parameters</a></td></tr><tr><td align="right">18 </td><td><a href="match.html" class="tocviewlink" data-pltdoc="x">Match</a></td></tr><tr><td align="right">19 </td><td><a href="open-place.html" class="tocviewlink" data-pltdoc="x">Open <span class="RktSym"><span class="RktStxLink">place</span></span> expressions</a></td></tr><tr><td align="right">20 </td><td><a href="options.html" class="tocviewlink" data-pltdoc="x">Option Contracts</a></td></tr><tr><td align="right">21 </td><td><a href="Parameter_Groups.html" class="tocviewlink" data-pltdoc="x">Parameter Groups</a></td></tr><tr><td align="right">22 </td><td><a href="Pretty-Printing.html" class="tocviewlink" data-pltdoc="x">Pretty-<wbr></wbr>Printing</a></td></tr><tr><td align="right">23 </td><td><a href="recontract.html" class="tocviewlink" data-pltdoc="x">Re-<wbr></wbr>Contracting Identifiers</a></td></tr><tr><td align="right">24 </td><td><a href="sandbox.html" class="tocviewlink" data-pltdoc="x">Sandbox</a></td></tr><tr><td align="right">25 </td><td><a href="sequence.html" class="tocviewlink" data-pltdoc="x">Sequences</a></td></tr><tr><td align="right">26 </td><td><a href="string.html" class="tocviewlink" data-pltdoc="x">Strings</a></td></tr><tr><td align="right">27 </td><td><a href="struct.html" class="tocviewlink" data-pltdoc="x">Structs</a></td></tr><tr><td align="right">28 </td><td><a href="custom-write.html" class="tocviewlink" data-pltdoc="x">Struct Printing</a></td></tr><tr><td align="right">29 </td><td><a href="syntax.html" class="tocviewlink" data-pltdoc="x">Syntax</a></td></tr><tr><td align="right">30 </td><td><a href="temp-c.html" class="tocviewlink" data-pltdoc="x">Temporal Contracts:<span class="mywbr"> </span> Explicit Contract Monitors</a></td></tr><tr><td align="right">31 </td><td><a href="unix-socket.html" class="tocviewlink" data-pltdoc="x">Unix Domain Sockets</a></td></tr><tr><td align="right">32 </td><td><a href="2d.html" class="tocviewlink" data-pltdoc="x">2D Syntax</a></td></tr></table></div></div></div><div class="tocsub"><div class="tocsubtitle">On this page:</div><table class="tocsublist" cellspacing="0"><tr><td><a href="#%28form._%28%28lib._unstable%2Fmacro-testing..rkt%29._phase1-eval%29%29" class="tocsublink" data-pltdoc="x"><span class="RktSym"><span class="RktStxLink">phase1-<wbr></wbr>eval</span></span></a></td></tr><tr><td><a href="#%28form._%28%28lib._unstable%2Fmacro-testing..rkt%29._convert-compile-time-error%29%29" class="tocsublink" data-pltdoc="x"><span class="RktSym"><span class="RktStxLink">convert-<wbr></wbr>compile-<wbr></wbr>time-<wbr></wbr>error</span></span></a></td></tr><tr><td><a href="#%28form._%28%28lib._unstable%2Fmacro-testing..rkt%29._convert-syntax-error%29%29" class="tocsublink" data-pltdoc="x"><span class="RktSym"><span class="RktStxLink">convert-<wbr></wbr>syntax-<wbr></wbr>error</span></span></a></td></tr></table></div></div><div class="maincolumn"><div class="main"><div class="versionbox"><span class="version">6.1</span></div><div class="navsettop"><span class="navleft"><form class="searchform"><input class="searchbox" style="color: #888;" type="text" value="...search manuals..." title="Enter a search string to search the manuals" onkeypress="return DoSearchKey(event, this, "6.1", "../");" onfocus="this.style.color="black"; this.style.textAlign="left"; if (this.value == "...search manuals...") this.value="";" onblur="if (this.value.match(/^ *$/)) { this.style.color="#888"; this.style.textAlign="center"; this.value="...search manuals..."; }"/></form> <a href="../index.html" title="up to the documentation top" data-pltdoc="x" onclick="return GotoPLTRoot("6.1");">top</a></span><span class="navright"> <a href="Logging.html" title="backward to "15 Logging"" data-pltdoc="x">← prev</a> <a href="index.html" title="up to "Unstable: May Change Without Warning"" data-pltdoc="x">up</a> <a href="Mark_Parameters.html" title="forward to "17 Mark Parameters"" data-pltdoc="x">next →</a></span> </div><h3 x-source-module="(lib "unstable/scribblings/unstable.scrbl")" x-part-tag=""macro-testing"">16<tt> </tt><a name="(part._macro-testing)"></a><a name="(mod-path._unstable/macro-testing)"></a>Macro Testing</h3><p>This library is <span style="font-style: italic">unstable</span>;
compatibility will not be maintained.
See <a href="index.html" data-pltdoc="x">Unstable: May Change Without Warning</a>
for more information.</p><p><table cellspacing="0" cellpadding="0" class="defmodule"><tr><td align="left" colspan="2"><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=require.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fbase..rkt%2529._require%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">require</a></span><span class="stt"> </span><a href="" class="RktModLink" data-pltdoc="x"><span class="RktSym">unstable/macro-testing</span></a><span class="RktPn">)</span></td></tr><tr><td align="left"> </td><td align="right"><span class="RpackageSpec"><span class="Smaller"> package:</span> <span class="stt">unstable-macro-testing-lib</span></span></td></tr></table></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>syntax</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(form._((lib._unstable/macro-testing..rkt)._phase1-eval))"></a><span title="Provided from: unstable/macro-testing | Package: unstable-macro-testing-lib"><span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fmacro-testing..rkt%29._phase1-eval%29%29" class="RktStxDef RktStxLink" data-pltdoc="x">phase1-eval</a></span></span><span class="hspace"> </span><span class="RktVar">ct-expr</span><span class="hspace"> </span><span class="RktVar">maybe-quote</span><span class="hspace"> </span><span class="RktVar">maybe-catch?</span><span class="RktPn">)</span></p></blockquote></td></tr><tr><td><span class="stt"> </span></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="specgrammar"><tr><td align="right" valign="baseline"><span class="RktVar">maybe-quote</span></td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="center" valign="baseline">=</td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="left" valign="baseline"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td></td></tr></table></td></tr><tr><td align="right" valign="baseline"><span class="stt"> </span></td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="center" valign="baseline">|</td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="left" valign="baseline"><span class="RktPn">#:quote</span><span class="hspace"> </span><span class="RktVar">quote-id</span></td></tr><tr><td align="right" valign="baseline"><span class="stt"> </span></td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="center" valign="baseline"><span class="stt"> </span></td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="left" valign="baseline"><span class="stt"> </span></td></tr><tr><td align="right" valign="baseline"><span class="RktVar">maybe-catch?</span></td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="center" valign="baseline">=</td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="left" valign="baseline"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td></td></tr></table></td></tr><tr><td align="right" valign="baseline"><span class="stt"> </span></td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="center" valign="baseline">|</td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="left" valign="baseline"><span class="RktPn">#:catch?</span><span class="hspace"> </span><span class="RktVar">catch?</span></td></tr></table></td></tr></table></blockquote></div><div class="SIntrapara">Evaluates <span class="RktVar">ct-expr</span> at compile time and quotes the result using
<span class="RktVar">quote-id</span>, which defaults to <span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=quote.html%23%2528form._%2528%2528quote._%7E23%7E25kernel%2529._quote%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">quote</a></span>. Another suitable
argument for <span class="RktVar">quote-id</span> is <span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=Syntax_Quoting__quote-syntax.html%23%2528form._%2528%2528quote._%7E23%7E25kernel%2529._quote-syntax%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">quote-syntax</a></span>.</div></p><p>If <span class="RktVar">catch?</span> is <span class="RktVal">#t</span>, then if the evaluation of
<span class="RktVar">ct-expr</span> raises a compile-time exception, it is caught and
converted to a run-time exception.</p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Examples:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=define-struct.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fbase..rkt%2529._struct%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">struct</a></span><span class="hspace"> </span><span class="RktSym">point</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">x</span><span class="hspace"> </span><span class="RktSym">y</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><table cellspacing="0" cellpadding="0"><tr><td></td></tr></table></td></tr><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fmacro-testing..rkt%29._phase1-eval%29%29" class="RktStxLink" data-pltdoc="x">phase1-eval</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=structinfo.html%23%2528def._%2528%2528lib._racket%252Fstruct-info..rkt%2529._extract-struct-info%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">extract-struct-info</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=stxtrans.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._syntax-local-value%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">syntax-local-value</a></span><span class="hspace"> </span><span class="RktRdr">#'</span><span class="RktSym">point</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><p><span class="RktRes">'(struct:point point point? (point-y point-x) (#f #f) #t)</span></p></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fmacro-testing..rkt%29._phase1-eval%29%29" class="RktStxLink" data-pltdoc="x">phase1-eval</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=structinfo.html%23%2528def._%2528%2528lib._racket%252Fstruct-info..rkt%2529._extract-struct-info%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">extract-struct-info</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=stxtrans.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._syntax-local-value%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">syntax-local-value</a></span><span class="hspace"> </span><span class="RktRdr">#'</span><span class="RktSym">point</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">#:quote</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=Syntax_Quoting__quote-syntax.html%23%2528form._%2528%2528quote._%7E23%7E25kernel%2529._quote-syntax%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">quote-syntax</a></span><span class="RktPn">)</span></td></tr></table></td></tr><tr><td><p><span class="RktRes">#<syntax (struct:point point point? (p...></span></p></td></tr></table></blockquote></td></tr></table></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>syntax</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(form._((lib._unstable/macro-testing..rkt)._convert-compile-time-error))"></a><span title="Provided from: unstable/macro-testing | Package: unstable-macro-testing-lib"><span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fmacro-testing..rkt%29._convert-compile-time-error%29%29" class="RktStxDef RktStxLink" data-pltdoc="x">convert-compile-time-error</a></span></span><span class="hspace"> </span><span class="RktVar">expr</span><span class="RktPn">)</span></p></blockquote></td></tr></table></blockquote></div><div class="SIntrapara">Equivalent to <span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=__expression.html%23%2528form._%2528%2528quote._%7E23%7E25kernel%2529._%7E23%7E25expression%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">#%expression</a></span><span class="stt"> </span><span class="RktVar">expr</span><span class="RktPn">)</span> except if expansion of
<span class="RktVar">expr</span> causes a compile-time exception to be raised; in that
case, the compile-time exception is converted to a run-time exception
raised when the expression is evaluated.</div></p><p>Use <span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fmacro-testing..rkt%29._convert-compile-time-error%29%29" class="RktStxLink" data-pltdoc="x">convert-compile-time-error</a></span> to write tests for
compile-time error checking like syntax errors:</p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Examples:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=rackunit&rel=api.html%23%2528def._%2528%2528lib._rackunit%252Fmain..rkt%2529._check-exn%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">check-exn</a></span><span class="hspace"> </span><span class="RktVal">#rx"missing an \"else\" expression"</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=lambda.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fbase..rkt%2529._lambda%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">lambda</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fmacro-testing..rkt%29._convert-compile-time-error%29%29" class="RktStxLink" data-pltdoc="x">convert-compile-time-error</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=if.html%23%2528form._%2528%2528quote._%7E23%7E25kernel%2529._if%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">if</a></span><span class="hspace"> </span><span class="RktVal">1</span><span class="hspace"> </span><span class="RktVal">2</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0"><tr><td></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=rackunit&rel=api.html%23%2528def._%2528%2528lib._rackunit%252Fmain..rkt%2529._check-exn%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">check-exn</a></span><span class="hspace"> </span><span class="RktVal">#rx"missing formals and body"</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=lambda.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fbase..rkt%2529._lambda%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">lambda</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fmacro-testing..rkt%29._convert-compile-time-error%29%29" class="RktStxLink" data-pltdoc="x">convert-compile-time-error</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=lambda.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fbase..rkt%2529._lambda%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">lambda</a></span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0"><tr><td><p><span class="RktErr">--------------------</span></p></td></tr><tr><td><p><span class="RktErr">FAILURE</span></p></td></tr><tr><td><p><span class="RktErr">message:</span><span class="hspace"> </span><span class="RktErr"></span><span class="hspace"> </span><span class="RktErr">"Wrong exception raised"</span></p></td></tr><tr><td><p><span class="RktErr">exn-message:"eval:6:0: lambda: bad syntax\n</span><span class="hspace"> </span><span class="RktErr">in: (lambda)"</span></p></td></tr><tr><td><p><span class="RktErr">exn:</span><span class="hspace"> </span><span class="RktErr"></span><span class="hspace"> </span><span class="RktErr"></span><span class="hspace"> </span><span class="RktErr"></span><span class="hspace"> </span><span class="RktErr">#(struct:exn:fail:syntax "eval:6:0: lambda: bad syntax\n</span><span class="hspace"> </span><span class="RktErr">in: (lambda)" #<continuation-mark-set> (#<syntax:6:0 (lambda)>))</span></p></td></tr><tr><td><p><span class="RktErr">name: </span><span class="hspace"> </span><span class="RktErr"></span><span class="hspace"> </span><span class="RktErr"></span><span class="hspace"> </span><span class="RktErr">check-exn</span></p></td></tr><tr><td><p><span class="RktErr">location: </span><span class="hspace"> </span><span class="RktErr">(eval 6 0 6 1)</span></p></td></tr><tr><td><p><span class="RktErr">expression: (check-exn #rx"missing formals and body" (lambda () (convert-compile-time-error (lambda))))</span></p></td></tr><tr><td><p><span class="RktErr">params: </span><span class="hspace"> </span><span class="RktErr"></span><span class="hspace"> </span><span class="RktErr">(#rx"missing formals and body" #<procedure:temp10>)</span></p></td></tr><tr><td><p><span class="RktErr"></span></p></td></tr><tr><td><p><span class="RktErr">Check failure</span></p></td></tr><tr><td><p><span class="RktErr">--------------------</span></p></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0"><tr><td></td></tr></table></td></tr></table></blockquote></td></tr></table></p><p>Without the use of <span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fmacro-testing..rkt%29._convert-compile-time-error%29%29" class="RktStxLink" data-pltdoc="x">convert-compile-time-error</a></span>, the checks
above would not be executed because the test program would not compile.</p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>syntax</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(form._((lib._unstable/macro-testing..rkt)._convert-syntax-error))"></a><span title="Provided from: unstable/macro-testing | Package: unstable-macro-testing-lib"><span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fmacro-testing..rkt%29._convert-syntax-error%29%29" class="RktStxDef RktStxLink" data-pltdoc="x">convert-syntax-error</a></span></span><span class="hspace"> </span><span class="RktVar">expr</span><span class="RktPn">)</span></p></blockquote></td></tr></table></blockquote></div><div class="SIntrapara">Like <span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fmacro-testing..rkt%29._convert-compile-time-error%29%29" class="RktStxLink" data-pltdoc="x">convert-compile-time-error</a></span>, but only catches compile-time
<span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=exns.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._exn%7E3afail%7E3asyntax%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">exn:fail:syntax?</a></span> exceptions and sets
<span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=exns.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._error-print-source-location%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">error-print-source-location</a></span> to <span class="RktVal">#f</span> around the
expansion of <span class="RktVar">expr</span> to make the message easier to match
exactly.</div></p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Example:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=rackunit&rel=api.html%23%2528def._%2528%2528lib._rackunit%252Fmain..rkt%2529._check-exn%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">check-exn</a></span><span class="hspace"> </span><span class="RktVal">#rx"^lambda: bad syntax$"</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=lambda.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fbase..rkt%2529._lambda%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">lambda</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fmacro-testing..rkt%29._convert-syntax-error%29%29" class="RktStxLink" data-pltdoc="x">convert-syntax-error</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=lambda.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fbase..rkt%2529._lambda%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">lambda</a></span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0"><tr><td></td></tr></table></td></tr></table></blockquote></td></tr></table></p><div class="navsetbottom"><span class="navleft"><form class="searchform"><input class="searchbox" style="color: #888;" type="text" value="...search manuals..." title="Enter a search string to search the manuals" onkeypress="return DoSearchKey(event, this, "6.1", "../");" onfocus="this.style.color="black"; this.style.textAlign="left"; if (this.value == "...search manuals...") this.value="";" onblur="if (this.value.match(/^ *$/)) { this.style.color="#888"; this.style.textAlign="center"; this.value="...search manuals..."; }"/></form> <a href="../index.html" title="up to the documentation top" data-pltdoc="x" onclick="return GotoPLTRoot("6.1");">top</a></span><span class="navright"> <a href="Logging.html" title="backward to "15 Logging"" data-pltdoc="x">← prev</a> <a href="index.html" title="up to "Unstable: May Change Without Warning"" data-pltdoc="x">up</a> <a href="Mark_Parameters.html" title="forward to "17 Mark Parameters"" data-pltdoc="x">next →</a></span> </div></div></div><div id="contextindicator"> </div></body></html>
|