test-glog: drop uninteresting nodes from AST output

This makes future test changes more readable.

tests/test-glog.t

@@ -102,6 +102,7 b' o (0) root'
   >             expr = logrevset(repo, pats, opts)
   >             if expr:
   >                 tree = revsetlang.parse(expr)
+  >                 tree = revsetlang.analyze(tree)
   >             else:
   >                 tree = []
   >             ui.write('%r\n' % (opts.get('rev', []),))
@@ -1465,8 +1466,6 b' glog always reorders nodes which explain'
   +nodetag 21
   $ testlog -u test -u not-a-user
   []
-  (group
-    (group
       (or
         (list
           (func
@@ -1474,15 +1473,13 b' glog always reorders nodes which explain'
             (string 'test'))
           (func
             (symbol 'user')
-            (string 'not-a-user'))))))
+        (string 'not-a-user'))))
   $ testlog -b not-a-branch
   abort: unknown revision 'not-a-branch'!
   abort: unknown revision 'not-a-branch'!
   abort: unknown revision 'not-a-branch'!
   $ testlog -b 35 -b 36 --only-branch branch
   []
-  (group
-    (group
       (or
         (list
           (func
@@ -1493,11 +1490,9 b' glog always reorders nodes which explain'
             (string 'branch'))
           (func
             (symbol 'branch')
-            (string 'branch'))))))
+        (string 'branch'))))
   $ testlog -k expand -k merge
   []
-  (group
-    (group
       (or
         (list
           (func
@@ -1505,50 +1500,43 b' glog always reorders nodes which explain'
             (string 'expand'))
           (func
             (symbol 'keyword')
-            (string 'merge'))))))
+        (string 'merge'))))
   $ testlog --only-merges
   []
-  (group
+  (func
+    (symbol 'merge')
+    None)
+  $ testlog --no-merges
+  []
+  (not
     (func
       (symbol 'merge')
       None))
-  $ testlog --no-merges
-  []
-  (group
-    (not
-      (func
-        (symbol 'merge')
-        None)))
   $ testlog --date '2 0 to 4 0'
   []
-  (group
     (func
       (symbol 'date')
-      (string '2 0 to 4 0')))
+    (string '2 0 to 4 0'))
   $ hg log -G -d 'brace ) in a date'
   hg: parse error: invalid date: 'brace ) in a date'
   [255]
   $ testlog --prune 31 --prune 32
   []
-  (group
-    (group
       (and
         (not
-          (group
             (or
               (list
                 (string '31')
                 (func
                   (symbol 'ancestors')
-                  (string '31'))))))
+            (string '31')))))
         (not
-          (group
             (or
               (list
                 (string '32')
                 (func
                   (symbol 'ancestors')
-                  (string '32')))))))))
+            (string '32'))))))
 
 Dedicated repo for --follow and paths filtering. The g is crafted to
 have 2 filelog topological heads in a linear changeset graph.
@@ -1595,15 +1583,11 b' have 2 filelog topological heads in a li'
 
   $ testlog a
   []
-  (group
-    (group
       (func
         (symbol 'filelog')
-        (string 'a'))))
+    (string 'a'))
   $ testlog a b
   []
-  (group
-    (group
       (or
         (list
           (func
@@ -1611,26 +1595,24 b' have 2 filelog topological heads in a li'
             (string 'a'))
           (func
             (symbol 'filelog')
-            (string 'b'))))))
+        (string 'b'))))
 
 Test falling back to slow path for non-existing files
 
   $ testlog a c
   []
-  (group
     (func
       (symbol '_matchfiles')
       (list
         (string 'r:')
         (string 'd:relpath')
         (string 'p:a')
-        (string 'p:c'))))
+      (string 'p:c')))
 
 Test multiple --include/--exclude/paths
 
   $ testlog --include a --include e --exclude b --exclude e a e
   []
-  (group
     (func
       (symbol '_matchfiles')
       (list
@@ -1641,7 +1623,7 b' Test multiple --include/--exclude/paths'
         (string 'i:a')
         (string 'i:e')
         (string 'x:b')
-        (string 'x:e'))))
+      (string 'x:e')))
 
 Test glob expansion of pats
 
@@ -1653,11 +1635,9 b' Test glob expansion of pats'
   >    testlog a*;
   > fi;
   []
-  (group
-    (group
       (func
         (symbol 'filelog')
-        (string 'aa'))))
+    (string 'aa'))
 
 Test --follow on a non-existent directory
 
@@ -1671,7 +1651,6 b' Test --follow on a directory'
   $ hg up -q '.^'
   $ testlog -f dir
   []
-  (group
     (and
       (func
         (symbol 'ancestors')
@@ -1681,7 +1660,7 b' Test --follow on a directory'
         (list
           (string 'r:')
           (string 'd:relpath')
-          (string 'p:dir')))))
+        (string 'p:dir'))))
   $ hg up -q tip
 
 Test --follow on file not in parent revision
@@ -1695,7 +1674,6 b' Test --follow and patterns'
 
   $ testlog -f 'glob:*'
   []
-  (group
     (and
       (func
         (symbol 'ancestors')
@@ -1705,40 +1683,34 b' Test --follow and patterns'
         (list
           (string 'r:')
           (string 'd:relpath')
-          (string 'p:glob:*')))))
+        (string 'p:glob:*'))))
 
 Test --follow on a single rename
 
   $ hg up -q 2
   $ testlog -f a
   []
-  (group
-    (group
       (func
         (symbol 'follow')
-        (string 'a'))))
+    (string 'a'))
 
 Test --follow and multiple renames
 
   $ hg up -q tip
   $ testlog -f e
   []
-  (group
-    (group
       (func
         (symbol 'follow')
-        (string 'e'))))
+    (string 'e'))
 
 Test --follow and multiple filelog heads
 
   $ hg up -q 2
   $ testlog -f g
   []
-  (group
-    (group
       (func
         (symbol 'follow')
-        (string 'g'))))
+    (string 'g'))
   $ cat log.nodes
   nodetag 2
   nodetag 1
@@ -1746,11 +1718,9 b' Test --follow and multiple filelog heads'
   $ hg up -q tip
   $ testlog -f g
   []
-  (group
-    (group
       (func
         (symbol 'follow')
-        (string 'g'))))
+    (string 'g'))
   $ cat log.nodes
   nodetag 3
   nodetag 2
@@ -1760,8 +1730,6 b' Test --follow and multiple files'
 
   $ testlog -f g e
   []
-  (group
-    (group
       (or
         (list
           (func
@@ -1769,7 +1737,7 b' Test --follow and multiple files'
             (string 'g'))
           (func
             (symbol 'follow')
-            (string 'e'))))))
+        (string 'e'))))
   $ cat log.nodes
   nodetag 4
   nodetag 3
@@ -1797,22 +1765,19 b' Test --follow-first'
   $ hg ci -m "merge 5 and 4"
   $ testlog --follow-first
   []
-  (group
     (func
       (symbol '_firstancestors')
       (func
         (symbol 'rev')
-        (symbol '6'))))
+      (symbol '6')))
 
 Cannot compare with log --follow-first FILE as it never worked
 
   $ hg log -G --print-revset --follow-first e
   []
-  (group
-    (group
       (func
         (symbol '_followfirst')
-        (string 'e'))))
+    (string 'e'))
   $ hg log -G --follow-first e --template '{rev} {desc|firstline}\n'
   @    6 merge 5 and 4
   |\
@@ -1844,22 +1809,20 b' Test "set:..." and parent revision'
   $ hg up -q 4
   $ testlog "set:copied()"
   []
-  (group
     (func
       (symbol '_matchfiles')
       (list
         (string 'r:')
         (string 'd:relpath')
-        (string 'p:set:copied()'))))
+      (string 'p:set:copied()')))
   $ testlog --include "set:copied()"
   []
-  (group
     (func
       (symbol '_matchfiles')
       (list
         (string 'r:')
         (string 'd:relpath')
-        (string 'i:set:copied()'))))
+      (string 'i:set:copied()')))
   $ testlog -r "sort(file('set:copied()'), -rev)"
   ["sort(file('set:copied()'), -rev)"]
   []
@@ -1871,16 +1834,14 b' Test --removed'
   []
   $ testlog --removed a
   []
-  (group
     (func
       (symbol '_matchfiles')
       (list
         (string 'r:')
         (string 'd:relpath')
-        (string 'p:a'))))
+      (string 'p:a')))
   $ testlog --removed --follow a
   []
-  (group
     (and
       (func
         (symbol 'ancestors')
@@ -1890,7 +1851,7 b' Test --removed'
         (list
           (string 'r:')
           (string 'd:relpath')
-          (string 'p:a')))))
+        (string 'p:a'))))
 
 Test --patch and --stat with --follow and --follow-first
 
@@ -2214,23 +2175,21 b' changessincelatesttag with no prior tag'
   +g
   $ testlog --follow -r6 -r8 -r5 -r7 -r4
   ['6', '8', '5', '7', '4']
-  (group
     (func
       (symbol 'descendants')
       (func
         (symbol 'rev')
-        (symbol '6'))))
+      (symbol '6')))
 
 Test --follow-first and forward --rev
 
   $ testlog --follow-first -r6 -r8 -r5 -r7 -r4
   ['6', '8', '5', '7', '4']
-  (group
     (func
       (symbol '_firstdescendants')
       (func
         (symbol 'rev')
-        (symbol '6'))))
+      (symbol '6')))
   --- log.nodes	* (glob)
   +++ glog.nodes	* (glob)
   @@ -1,3 +1,3 @@
@@ -2243,23 +2202,21 b' Test --follow and backward --rev'
 
   $ testlog --follow -r6 -r5 -r7 -r8 -r4
   ['6', '5', '7', '8', '4']
-  (group
     (func
       (symbol 'ancestors')
       (func
         (symbol 'rev')
-        (symbol '6'))))
+      (symbol '6')))
 
 Test --follow-first and backward --rev
 
   $ testlog --follow-first -r6 -r5 -r7 -r8 -r4
   ['6', '5', '7', '8', '4']
-  (group
     (func
       (symbol '_firstancestors')
       (func
         (symbol 'rev')
-        (symbol '6'))))
+      (symbol '6')))
 
 Test --follow with --rev of graphlog extension
 
@@ -2275,27 +2232,22 b' Test subdir'
   $ cd dir
   $ testlog .
   []
-  (group
     (func
       (symbol '_matchfiles')
       (list
         (string 'r:')
         (string 'd:relpath')
-        (string 'p:.'))))
+      (string 'p:.')))
   $ testlog ../b
   []
-  (group
-    (group
       (func
         (symbol 'filelog')
-        (string '../b'))))
+    (string '../b'))
   $ testlog -f ../b
   []
-  (group
-    (group
       (func
         (symbol 'follow')
-        (string 'b'))))
+    (string 'b'))
   $ cd ..
 
 Test --hidden