home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Moscow ML 1.42 / src / mosmllib / test / stringmac.sml < prev    next >
Encoding:
Text File  |  1997-08-18  |  11.3 KB  |  344 lines  |  [TEXT/R*ch]
  1. (* test/string.sml 
  2.    PS 1994-12-10, 1995-06-14, 1996-05-16 *)
  3.  
  4. use "auxil.sml";
  5.  
  6. local 
  7.     open Char String
  8.  
  9.     val s1 = ""                         (* size s1 =  0 *)
  10.     and s2 = "ABCDE\tFGHI";             (* size s2 = 10 *)
  11.     val ABCDE = List.map chr [65,66,67,68,69];  
  12. in
  13.  
  14. val test1 = check'(fn _ => (size s1 = 0 andalso size s2 = 10));
  15. val test2 = check'(fn _ => (sub(s2,6) = chr 70 andalso sub(s2,9) = chr 73));
  16. val test3 = (sub(s1, 0)  seq "WRONG") handle Subscript => "OK" | _ => "WRONG";
  17. val test4 = (sub(s2, ~1) seq "WRONG") handle Subscript => "OK" | _ => "WRONG";
  18. val test5 = (sub(s2, 10) seq "WRONG") handle Subscript => "OK" | _ => "WRONG";
  19.  
  20. val test6 = 
  21.     check'(fn _ => 
  22.            "" = concat [] andalso "" = concat [s1] 
  23.            andalso s2 = concat [s2] andalso s2^s2 = concat [s2,s2]
  24.            andalso "ABCD" = concat ["A","B","C","D"]);
  25.     
  26. val test7 = check'(fn _ => "A" = str(chr 65));
  27.  
  28. val test8 = 
  29.     check'(fn _ => 
  30.            "" = implode [] andalso "ABCDE" = implode ABCDE); 
  31.  
  32. val test9 = 
  33.     check'(fn _ => 
  34.            [] = explode "" andalso ABCDE = explode "ABCDE");
  35.  
  36. val test10 = 
  37.     check'(fn _ => 
  38.            s1 < s2 andalso s1 <= s1 
  39.            andalso s2 > s1 andalso s2 >=s2);
  40.  
  41. val test11a = 
  42.     check'(fn _ => 
  43.            s2 = extract(s2, 0, SOME (size s2))
  44.            andalso s2 = extract(s2, 0, NONE)
  45.            andalso "" = extract(s2, size s2, SOME 0)
  46.            andalso "" = extract(s2, size s2, NONE)
  47.            andalso "" = extract(s1, 0, SOME 0)
  48.            andalso "" = extract(s1, 0, NONE));
  49.  
  50. val test11b = (extract(s2, ~1, SOME 0) seq "WRONG") 
  51.               handle Subscript => "OK" | _ => "WRONG";
  52. val test11c = (extract(s2, 11, SOME 0) seq "WRONG") 
  53.               handle Subscript => "OK" | _ => "WRONG";
  54. val test11d = (extract(s2, 0, SOME 11) seq "WRONG") 
  55.               handle Subscript => "OK" | _ => "WRONG";
  56. val test11e = (extract(s2, 10, SOME 1) seq "WRONG") 
  57.               handle Subscript => "OK" | _ => "WRONG";
  58. val test11f = (extract(s2, ~1, NONE) seq "WRONG") 
  59.               handle Subscript => "OK" | _ => "WRONG";
  60. val test11g = (extract(s2, 11, NONE) seq "WRONG") 
  61.               handle Subscript => "OK" | _ => "WRONG";
  62.  
  63. val test11h = 
  64.     check'(fn _ => 
  65.            "ABCDE" = extract(s2, 0, SOME 5)
  66.            andalso "FGHI" = extract(s2, 6, SOME 4)
  67.            andalso "FGHI" = extract(s2, 6, NONE));
  68.  
  69. val test12a = 
  70.     check'(fn _ => 
  71.            s2 = substring(s2, 0, size s2)
  72.            andalso "" = substring(s2, size s2, 0)
  73.            andalso "" = substring(s1, 0, 0));
  74.  
  75. val test12b = (substring(s2, ~1, 0) seq "WRONG") 
  76.               handle Subscript => "OK" | _ => "WRONG";
  77. val test12c = (substring(s2, 11, 0) seq "WRONG") 
  78.               handle Subscript => "OK" | _ => "WRONG";
  79. val test12d = (substring(s2, 0, 11) seq "WRONG") 
  80.               handle Subscript => "OK" | _ => "WRONG";
  81. val test12e = (substring(s2, 10, 1) seq "WRONG") 
  82.               handle Subscript => "OK" | _ => "WRONG";
  83. val test12f = 
  84.     check'(fn _ => 
  85.            "ABCDE" = substring(s2, 0, 5)
  86.            andalso "FGHI" = substring(s2, 6, 4));
  87. val test12g = 
  88.     case (Int.minInt, Int.maxInt) of
  89.         (SOME min, SOME max) => 
  90.             ((substring("", max, max); substring("", min, min); "WRONG")
  91.              handle Subscript => "OK" | _ => "WRONG")
  92.        | _ => "OK";
  93.  
  94. val test13a = 
  95.     check'(fn _ => 
  96.            (translate (fn _ => "") s2 = ""
  97.             andalso translate (fn x => str x) "" = ""
  98.             andalso translate (fn x => str x) s2 = s2));
  99.  
  100. val test13b = 
  101.     check'(fn _ => 
  102.            (translate (fn c => if c = #"\t" then "XYZ " else str c) s2 
  103.                       = "ABCDEXYZ FGHI"));
  104.  
  105. val test14 = 
  106.     check'(fn _ => 
  107.            (tokens isSpace "" = []
  108.             andalso tokens isSpace "   \t \n" = []
  109.             andalso tokens (fn c => c = #",") ",asd,,def,fgh" 
  110.                     = ["asd","def","fgh"]));
  111.  
  112. val test15 = 
  113.     check'(fn _ => 
  114.            (fields isSpace "" = [""]
  115.             andalso fields isSpace "   \t \n" = ["","","","","","",""]
  116.             andalso fields (fn c => c = #",") ",asd,,def,fgh" 
  117.                     = ["","asd","","def","fgh"]));
  118.  
  119. val test16a = 
  120.     check'(fn _ => 
  121.            EQUAL = compare(s1,s1) andalso EQUAL = compare(s2,s2)
  122.            andalso LESS = compare("A", "B")
  123.            andalso GREATER = compare("B", "A")
  124.            andalso LESS = compare("ABCD", "ABCDE")
  125.            andalso GREATER = compare("ABCDE", "ABCD"));
  126.  
  127. val test16b = 
  128.     check'(fn _ => 
  129.            EQUAL = compare(s1,s1) andalso EQUAL = compare(s2,s2)
  130.            andalso LESS = compare("A", "a")
  131.            andalso GREATER = compare("b", "B")
  132.            andalso LESS = compare("abcd", "abcde")
  133.            andalso GREATER = compare("abcde", "abcd"));
  134.  
  135.  
  136. (* Test cases for SML string escape functions. *)
  137.  
  138. val test17 = 
  139.     let fun chk (arg, res) = toString (str arg) = res
  140.         val argResList =
  141.               [(#"\000", "\\^@"),
  142.                (#"\001", "\\^A"),
  143.                (#"\006", "\\^F"),
  144.                (#"\007", "\\a"),
  145.                (#"\008", "\\b"),
  146.                (#"\009", "\\t"),
  147.                (#"\013", "\\n"), (* MacSwapped: was #"\010" *)
  148.                (#"\011", "\\v"),
  149.                (#"\012", "\\f"),
  150.                (#"\010", "\\r"), (* MacSwapped: was #"\013" *)
  151.                (#"\014", "\\^N"),
  152.                (#"\031", "\\^_"),
  153.                (#"\032", " "),
  154.                (#"\126", "~"),
  155.                (#"\\", "\\\\"),
  156.                (#"\"", "\\\""),
  157.                (#"A", "A"),
  158.                (#"\127", "\\127"),
  159.                (#"\128", "\\128"),
  160.                (#"\255", "\\255")]
  161.         val (arg, res) = (implode (map #1 argResList), 
  162.                           concat (map #2 argResList))
  163.     in check'(fn _ => List.all chk argResList
  164.                       andalso toString arg = res)
  165.     end;
  166.  
  167. val test18 = 
  168.     let val chars = CharVector.tabulate(256, chr)
  169.     in check'(fn _ => fromString(toString chars) = SOME chars) end
  170.  
  171. val test19 =                 
  172.     let fun chkFromString (arg, res) = fromString arg = SOME (str res)
  173.         val argResList = 
  174.             [("A", #"A"),
  175.              ("z", #"z"),
  176.              ("@", #"@"),
  177.              ("~", #"~"),
  178.              ("\\a", #"\007"),
  179.              ("\\b", #"\008"),
  180.              ("\\t", #"\009"),
  181.              ("\\n", #"\013"), (* MacSwapped: was #"\010" *)
  182.              ("\\v", #"\011"),
  183.              ("\\f", #"\012"),
  184.              ("\\r", #"\010"), (* MacSwapped: was #"\013" *)
  185.              ("\\\\", #"\\"),
  186.              ("\\\"", #"\""),
  187.              ("\\^@", #"\000"),
  188.              ("\\^A", #"\001"),
  189.              ("\\^Z", #"\026"),
  190.              ("\\^_", #"\031"), 
  191.              ("\\000", #"\000"),
  192.              ("\\097", #"a"),
  193.              ("\\255", #"\255"),
  194.              ("\\   \t\n\n \\A", #"A"),
  195.              ("\\   \t\n\n \\z", #"z"),
  196.              ("\\   \t\n\n \\@", #"@"),
  197.              ("\\   \t\n\n \\~", #"~"),
  198.              ("\\   \t\n\n \\\\n", #"\n"),
  199.              ("\\   \t\n\n \\\\t", #"\t"),
  200.              ("\\   \t\n\n \\\\\\", #"\\"),
  201.              ("\\   \t\n\n \\\\\"", #"\""),
  202.              ("\\   \t\n\n \\\\^@", #"\000"),
  203.              ("\\   \t\n\n \\\\^A", #"\001"),
  204.              ("\\   \t\n\n \\\\^Z", #"\026"),
  205.              ("\\   \t\n\n \\\\^_", #"\031"), 
  206.              ("\\   \t\n\n \\\\000", #"\000"),
  207.              ("\\   \t\n\n \\\\097", #"a"),
  208.              ("\\   \t\n\n \\\\255", #"\255")]
  209.         val (arg, res) = (concat (map #1 argResList), 
  210.                           implode (map #2 argResList))
  211.     in 
  212.         check'(fn _ => List.all chkFromString argResList 
  213.                        andalso fromString arg = SOME res)
  214.     end;
  215.  
  216. val test20 = 
  217.     check'(fn _ => List.all (fn arg => fromString arg = NONE)
  218.            ["\\",
  219.             "\\c",
  220.             "\\F",
  221.             "\\e",
  222.             "\\g",
  223.             "\\N",
  224.             "\\T",
  225.             "\\1",
  226.             "\\11",
  227.             "\\256",
  228.             "\\-65",
  229.             "\\~65",
  230.             "\\?",
  231.             "\\^`",
  232.             "\\^a",
  233.             "\\^z",
  234.             "\\   a",
  235.             "\\   a\\B",
  236.             "\\   \\"]);
  237.  
  238.  
  239. (* Test cases for C string escape functions *)
  240.  
  241. val test21 = 
  242.     let val chars = CharVector.tabulate(256, chr)
  243.     in check'(fn _ => fromCString(toCString chars) = SOME chars) end;
  244.  
  245. val test22 = 
  246.     let val argResList = 
  247.             [("\013", "\\n"), (* MacSwapped: was "\010" *)
  248.              ("\009", "\\t"),
  249.              ("\011", "\\v"),
  250.              ("\008", "\\b"),
  251.              ("\010", "\\r"), (* MacSwapped: was "\013" *)
  252.              ("\012", "\\f"),
  253.              ("\007", "\\a"),
  254.              ("\\", "\\\\"),
  255.              ("?", "\\?"),
  256.              ("'", "\\'"),
  257.              ("\"", "\\\"")]
  258.         val (arg, res) = (concat (map #1 argResList), 
  259.                           concat (map #2 argResList))
  260.     in
  261.         check'(fn _ => 
  262.                List.all (fn (arg, res) => toCString arg = res) argResList
  263.                andalso toCString arg = res)
  264.     end;
  265.  
  266. val test23 = 
  267.     let fun checkFromCStringSucc (arg, res) = fromCString arg = SOME res
  268.         val argResList = 
  269.             [("\\n", "\013"), (* MacSwapped: was "\010" *)
  270.              ("\\t", "\009"),
  271.              ("\\v", "\011"),
  272.              ("\\b", "\008"),
  273.              ("\\r", "\010"), (* MacSwapped: was "\013" *)
  274.              ("\\f", "\012"),
  275.              ("\\a", "\007"),
  276.              ("\\\\",  "\\"),
  277.              ("\\?", "?"),
  278.              ("\\'", "'"),
  279.              ("\\\"", "\""),
  280.              ("\\1", "\001"),
  281.              ("\\11", "\009"),
  282.              ("\\111", "\073"),
  283.              ("\\1007", "\0647"),
  284.              ("\\100A", "\064A"),
  285.              ("\\0",   "\000"),
  286.              ("\\377", "\255"),
  287.              ("\\18", "\0018"),
  288.              ("\\178", "\0158"),
  289.              ("\\1C", "\001C"),
  290.              ("\\17C", "\015C"),
  291.              ("\\x0", "\000"),
  292.              ("\\xff", "\255"),
  293.              ("\\xFF", "\255"),
  294.              ("\\x1", "\001"),
  295.              ("\\x11", "\017"),
  296.              ("\\xag", "\010g"),
  297.              ("\\xAAg", "\170g"),
  298.              ("\\x0000000a", "\010"),
  299.              ("\\x0000000a2", "\162"),
  300.              ("\\x0000000ag", "\010g"),
  301.              ("\\x0000000A", "\010"),
  302.              ("\\x0000000A2", "\162"),
  303.              ("\\x0000000Ag", "\010g"),
  304.              ("\\x00000000000000000000000000000000000000000000000000000000000000011+",
  305.               "\017+")]
  306.         val (arg, res) = (concat (map #1 argResList), 
  307.                           concat (map #2 argResList))
  308.     in 
  309.         check'(fn _ => List.all checkFromCStringSucc argResList
  310.                        andalso fromCString arg = SOME res)
  311.     end;
  312.  
  313. val test24 = 
  314.     let fun checkFromCStringFail arg = fromCString arg = NONE
  315.     in
  316.         check'(fn _ => List.all checkFromCStringFail 
  317.                ["\\",
  318.                 "\\X",
  319.                 "\\=",
  320.                 "\\400",
  321.                 "\\777",
  322.                 "\\8",
  323.                 "\\9",
  324.                 "\\c",
  325.                 "\\d",
  326.                 "\\x",
  327.                 "\\x100",
  328.                 "\\xG"])
  329.     end;
  330.  
  331. val test25 = 
  332.     check'(fn _ => 
  333.            isPrefix "" ""
  334.            andalso isPrefix ""  "abcde"
  335.            andalso isPrefix "a"  "abcde"
  336.            andalso isPrefix "abcd"  "abcde"
  337.            andalso isPrefix "abcde"  "abcde"
  338.            andalso not (isPrefix "abcde"  "")
  339.            andalso not (isPrefix "abcdef"  "abcde")
  340.            andalso not (isPrefix "Abcde"  "abcde")
  341.            andalso not (isPrefix "abcdE"  "abcde"))
  342.  
  343. end
  344.