Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /smlnj-lib/trunk/SExp/sexp-tests.sml
ViewVC logotype

Diff of /smlnj-lib/trunk/SExp/sexp-tests.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3860, Thu Nov 21 03:48:49 2013 UTC revision 3861, Thu Nov 21 15:31:53 2013 UTC
# Line 125  Line 125 
125    val assert' = TEST.assert'    val assert' = TEST.assert'
126    val throws' = TEST.throws'    val throws' = TEST.throws'
127    
128    fun pS str = P.parse (TextIO.openString str)    fun pS str = hd (P.parse (TextIO.openString str))
129    
130    val tests = TEST.SUITE{name="parsing", tests=[    val tests = TEST.SUITE{name="parsing", tests=[
131    
# Line 233  Line 233 
233          assert' (S.same(pS "x0", S.SYMBOL (Atom.atom "x0")))},          assert' (S.same(pS "x0", S.SYMBOL (Atom.atom "x0")))},
234        TEST.CASE{name="quoted", test=fn ()=>        TEST.CASE{name="quoted", test=fn ()=>
235          assert' (S.same(pS "'0", S.SYMBOL (Atom.atom "0")))}          assert' (S.same(pS "'0", S.SYMBOL (Atom.atom "0")))}
236        ]},
237    
238        TEST.SUITE{name="bugs", tests=[
239            TEST.CASE{name="bug01", test= fn () =>
240                assert' (S.same(
241                  pS "(set pi 3.141592653589793 :documentation \"The value of $\\pi$.\")",
242                  S.LIST[
243                      S.SYMBOL(Atom.atom "set"), S.SYMBOL(Atom.atom "pi"),
244                      S.FLOAT 3.141592653589793, S.SYMBOL(Atom.atom ":documentation"),
245                      S.STRING "The value of $\\pi$."
246                    ]))
247              }
248      ]}      ]}
249    ]}    ]}
250    

Legend:
Removed from v.3860  
changed lines
  Added in v.3861

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0