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 /tests/trunk/basis/tests/filesys.sml
ViewVC logotype

Diff of /tests/trunk/basis/tests/filesys.sml

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

revision 4596, Mon May 14 13:33:39 2018 UTC revision 4597, Tue May 15 14:30:48 2018 UTC
# Line 115  Line 115 
115  val test8a =  val test8a =
116      check'(fn _ => fullPath "." = getDir ());      check'(fn _ => fullPath "." = getDir ());
117  val test8b =  val test8b =
118      check'(fn _ => fullPath testlink = getDir() ^ "/" ^ README);      check'(fn _ => fullPath README = getDir() ^ "/" ^ README);
119  val test8c = (fullPath testcycl seq "WRONG")  val test8c = (fullPath testcycl seq "WRONG")
120               handle OS.SysErr _ => "OK" | _ => "WRONG";               handle OS.SysErr _ => "OK" | _ => "WRONG";
121  val test8d = (fullPath testbadl seq "WRONG")  val test8d = (fullPath testbadl seq "WRONG")

Legend:
Removed from v.4596  
changed lines
  Added in v.4597

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