[m-rev.] trivial diff: fix broken pretty_printer test cases

[Julien Fischer]

Estimated hours taken: 0.1
Branches: main

Fix some failing test cases.

tests/hard_coded/test_pretty_printer.m:
tests/hard_coded/test_pretty_printer_defaults.m:
 	Conform to recent changes to the pretty_printer module.

Julien.

Index: tests/hard_coded/test_pretty_printer.m
===================================================================
RCS file: /home/mercury/mercury1/repository/tests/hard_coded/test_pretty_printer.m,v
retrieving revision 1.3
diff -u -r1.3 test_pretty_printer.m
--- tests/hard_coded/test_pretty_printer.m	15 Oct 2007 04:27:23 -0000	1.3
+++ tests/hard_coded/test_pretty_printer.m	19 Oct 2007 05:15:01 -0000
@@ -79,7 +79,7 @@
          [s(string.string(Limit)), i(MaxLines), i(LineWidth)], !IO),
      Ruler = "\n|" ++ string.duplicate_char(('-'), LineWidth - 2) ++ "|\n",
      io.write_string(Ruler, !IO),
-    pretty_printer.format(Doc, !IO),
+    pretty_printer.write_doc(Doc, !IO),
      io.write_string(Ruler, !IO).


Index: tests/hard_coded/test_pretty_printer_defaults.m
===================================================================
RCS file: /home/mercury/mercury1/repository/tests/hard_coded/test_pretty_printer_defaults.m,v
retrieving revision 1.1
diff -u -r1.1 test_pretty_printer_defaults.m
--- tests/hard_coded/test_pretty_printer_defaults.m	14 Aug 2007 04:21:09 -0000	1.1
+++ tests/hard_coded/test_pretty_printer_defaults.m	19 Oct 2007 05:15:01 -0000
@@ -39,7 +39,7 @@
      pretty_printer.get_default_formatter_map(FMap, !IO),
      io.print(FMap, !IO),
      io.nl(!IO),
-    pretty_printer.format(
+    pretty_printer.write_doc(
          docs([
              str("list:    "), format(L), nl,
              str("array:   "), format(A), nl,

--------------------------------------------------------------------------
mercury-reviews mailing list
Post messages to:       mercury-reviews at csse.unimelb.edu.au
Administrative Queries: owner-mercury-reviews at csse.unimelb.edu.au
Subscriptions:          mercury-reviews-request at csse.unimelb.edu.au
--------------------------------------------------------------------------