[m-rev.] Trivial diff: update browser .exp files to match pprint changes

Ralph Becket rafe at cs.mu.OZ.AU
Mon Nov 5 15:26:52 AEDT 2001


Estimated hours taken: 0.5
Branches: main

Change .exp files to match .out files in debugger/browser tests
to match recent changes in pprint.

tests/debugger/browse_pretty.exp
tests/debugger/browser_test.exp

Index: browse_pretty.exp
===================================================================
RCS file: /home/mercury1/repository/tests/debugger/browse_pretty.exp,v
retrieving revision 1.6
diff -u -r1.6 browse_pretty.exp
--- browse_pretty.exp	25 Sep 2001 09:37:08 -0000	1.6
+++ browse_pretty.exp	5 Nov 2001 04:02:05 -0000
@@ -9,37 +9,26 @@
 browser> set format raw_pretty
 browser> set depth 10
 browser> ls
-big(
-  big(big(small, [1], small), [1, 2], small), 
-  [1, 2, 3], 
-  big(
-    big(small, [1, 2, 3, 4], big(small, [1, 2, 3, 4, 5], small)), 
-    [1, 2, 3, 4, 5, 6], 
-    small))
+big(big(big(small, [1], small), [1, 2], small), [1, 2, 3], 
+  big(big(small, [1, 2, 3, 4], big(small, [1, 2, 3, 4, 5], small)), 
+    [1, 2, 3, 4, 5, 6], small))
 browser> set width 131
 browser> ls
-big(
-  big(big(small, [1], small), [1, 2], small), 
-  [1, 2, 3], 
+big(big(big(small, [1], small), [1, 2], small), [1, 2, 3], 
   big(big(small, [1, 2, 3, 4], big(small, [1, 2, 3, 4, 5], small)), [1, 2, 3, 4, 5, 6], small))
 browser> set width 30
 browser> ls
 big(
   big(
     big(small, [1], small), 
-    [1, 2], 
-    small), 
+    [1, 2], small), 
   [1, 2, 3], 
   big(
-    big(
-      small, 
-      [1, 2, 3, 4], 
-      big(
-        small, 
+    big(small, [1, 2, 3, 4], 
+      big(small, 
         [1, 2, 3, 4, 5], 
         small)), 
-    [1, 2, 3, 4, 5, 6], 
-    small))
+    [1, 2, 3, 4, 5, 6], small))
 browser> set width 10
 browser> ls
 big(
@@ -48,40 +37,37 @@
       small, 
       [1], 
       small), 
-    [1, 
-    2], 
+    [1, 2], 
     small), 
   [1, 2, 
-  3], 
+   3], 
   big(
     big(
       small, 
-      [1, 
-      2, 
-      3, 
-      4], 
+      [
+       1, 
+       2, 
+       3, 
+       4], 
       big(
         small, 
-        [1, 
-        2, 
-        3, 
-        4, 
-        5], 
+        [
+         1, 
+         2, 
+         3, 
+         4, 
+         5], 
         small)), 
     [1, 
-    2, 
-    3, 
-    4, 
-    5, 
-    6], 
+     2, 
+     3, 
+     4, 
+     5, 6], 
     small))
 browser> set width 79
 browser> set depth 3
 browser> ls
-big(
-  big(big(small, [...], small), [1, ...], small), 
-  [1, 2, ...], 
-  big(big(small, [...], big/3), [1, ...], small))
+big(big(big(...), ...), [1, ...], ...)
 browser> set format pretty
 browser> set lines 4
 browser> set width 40

Index: browser_test.exp
===================================================================
RCS file: /home/mercury1/repository/tests/debugger/browser_test.exp,v
retrieving revision 1.10
diff -u -r1.10 browser_test.exp
--- browser_test.exp	23 Feb 2001 04:15:17 -0000	1.10
+++ browser_test.exp	5 Nov 2001 04:03:31 -0000
@@ -6,10 +6,7 @@
 mdb> set format pretty
 mdb> print *
        HeadVar__1             	
-big(
-  big(big(small, 1, small), 2, small), 
-  3, 
-  big(big(small, 4, big/3), 6, small))
+big(big(big(small, 1, small), 2, small), 3, big(big(small, 4, big/3), 6, small))
 mdb> set -A format verbose
 mdb> print *
        HeadVar__1             	
@@ -29,10 +26,7 @@
        HeadVar__1             	big(big(big(small, 1, small), 2, small), 3, big(big(small, 4, big/3), 6, small))
 mdb> print -r 1
        HeadVar__1             	
-big(
-  big(big(small, 1, small), 2, small), 
-  3, 
-  big(big(small, 4, big/3), 6, small))
+big(big(big(...), ...), 3, ...)
 mdb> print -v 1
        HeadVar__1             	
 big
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------



More information about the reviews mailing list