[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