Commit | Line | Data |
---|---|---|
7f918cf1 CE |
1 | (* Copyright (C) 2009 Matthew Fluet. |
2 | * Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh | |
3 | * Jagannathan, and Stephen Weeks. | |
4 | * | |
5 | * MLton is released under a BSD-style license. | |
6 | * See the file MLton-LICENSE for details. | |
7 | *) | |
8 | ||
9 | structure Z = | |
10 | struct | |
11 | val _ = | |
12 | let open Trace.Immediate | |
13 | in debug := Out Out.error | |
14 | ; flagged() | |
15 | ; ["concat"] | |
16 | ; ["Uri.fromString", "Uri.resolve", "Uri.relativize", | |
17 | "Authority.equals"] | |
18 | ; ["Uri.fromString", "Uri.resolve", "Uri.toString", | |
19 | "Uri.relativize", "Uri.checkResolve"] | |
20 | ; ["Regexp.match"] | |
21 | end | |
22 | end | |
23 | structure Z = TestBase64 (Base64) | |
24 | structure Z = TestBinarySearch (BinarySearch) | |
25 | structure Z = TestChar (Char) | |
26 | structure Z = TestDirectedGraph (DirectedGraph) | |
27 | structure Z = TestFormat (Format) | |
28 | structure Z = TestHashSet (HashSet) | |
29 | structure Z = TestHttp (Http) | |
30 | structure Z = TestLinkedList (LinkedList) | |
31 | structure Z = TestList (List) | |
32 | structure Z = TestProcess (Process) | |
33 | structure Z = TestQuickSort (QuickSort) | |
34 | structure Z = TestRegexp (Regexp) | |
35 | structure Z = TestString (String) | |
36 | structure Z = TestUri (Uri) | |
37 | structure Z = TestVector (Vector) | |
38 | structure Z = struct end |