RakuAST: adapt tests/deparsing to new reality

with regards to constant initializers
rakudo · Mar 18, 2023 · c843b6f · c843b6f
1 parent be633ca
commit c843b6f
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 5 deletions.
diff --git a/src/core.c/RakuAST/Deparse.pm6 b/src/core.c/RakuAST/Deparse.pm6
@@ -1957,8 +1957,7 @@ class RakuAST::Deparse {
         if $ast.traits -> @traits {
             @parts.push(self.deparse($_)) for @traits;
         }
-        @parts.push('=');
-        @parts.push(self.deparse($ast.initializer));
+        @parts.push(self.deparse($ast.initializer).trim-leading);
 
         @parts.join(' ');
     }

diff --git a/t/12-rakuast/var.rakutest b/t/12-rakuast/var.rakutest
@@ -1056,7 +1056,9 @@ subtest 'Lexical constant' => {
     ast RakuAST::Statement::Expression.new(
       expression => RakuAST::VarDeclaration::Constant.new(
         name        => "foo",
-        initializer => RakuAST::StrLiteral.new("bar")
+        initializer => RakuAST::Initializer::Assign.new(
+          RakuAST::StrLiteral.new("bar")
+        )
       )
     );
     is-deeply $deparsed, 'constant foo = "bar"', 'deparse';
@@ -1080,7 +1082,9 @@ subtest 'Lexical my constant' => {
       expression => RakuAST::VarDeclaration::Constant.new(
         scope       => "my",
         name        => "foo",
-        initializer => RakuAST::StrLiteral.new("bar")
+        initializer => RakuAST::Initializer::Assign.new(
+          RakuAST::StrLiteral.new("bar")
+        )
       )
     );
     is-deeply $deparsed, 'my constant foo = "bar"', 'deparse';
@@ -1096,7 +1100,9 @@ subtest 'Lexical my constant with expression' => {
       expression => RakuAST::VarDeclaration::Constant.new(
         scope       => "my",
         name        => "foo",
-        initializer => RakuAST::Term::Named.new("now")
+        initializer => RakuAST::Initializer::Assign.new(
+          RakuAST::Term::Named.new("now")
+        )
       )
     );
     is-deeply $deparsed, 'my constant foo = now', 'deparse';