Added test function to compare syntax trees

fingolfin · Mar 21, 2019 · 9fa7002 · 9fa7002
1 parent 4e5f52e
commit 9fa7002
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/tst/testinstall/syntaxtree.tst b/tst/testinstall/syntaxtree.tst
@@ -11,6 +11,14 @@ gap> SyntaxTree(x -> x);
 gap> SyntaxTree(\+);
 Error, SYNTAX_TREE: <func> must be a plain GAP function (not a function)
 
+gap> test_tree := function( f )
+>       local curr_tree, new_func, new_tree;
+>       curr_tree := SYNTAX_TREE( f );
+>       new_func := SYNTAX_TREE_CODE( curr_tree );
+>       new_tree := SYNTAX_TREE( new_func );
+>       return new_tree = curr_tree;
+> end;;
+
 # Just try compiling all functions we can find in the workspace
 # to see nothing crashes.
 gap> for n in NamesGVars() do
@@ -37,8 +45,7 @@ gap> testit := function(f)
 >   local tree;
 >   tree := SYNTAX_TREE(f);
 >   Display(tree);
->   # TODO: recode the tree, then decode again and compare
->   return true;
+>   return test_tree( f );
 > end;;
 
 # T_PROCCALL_0ARGS