RakuAST: don't absolutify file names of compunit

Several spectests expect file names in backtraces to be relative.
rakudo · May 1, 2024 · 1278c5b · 1278c5b
1 parent b50fb0c
commit 1278c5b
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 4 deletions.
diff --git a/src/Raku/ast/origins.rakumod b/src/Raku/ast/origins.rakumod
@@ -85,9 +85,6 @@ class RakuAST::Origin::Source {
             if nqp::isnull($file := nqp::getlexdyn('$?FILES')) {
                 $file := '<unknown file>';
             }
-            elsif !nqp::eqat($file,'/',0) && !nqp::eqat($file,'-',0) && !nqp::eqat($file,':',1) {
-                $file := nqp::cwd ~ '/' ~ $file;
-            }
         }
         nqp::bindattr($obj, RakuAST::Origin::Source, '$!line-file', nqp::list(nqp::list(0, 0, $file)));
         $obj.SETUP-LINE-POSITIONS();

diff --git a/t/12-rakuast/var.rakutest b/t/12-rakuast/var.rakutest
@@ -16,7 +16,7 @@ sub ast(RakuAST::Node:D $node --> Nil) {
 
 # MUST be the first test to handle EVAL_n counter
 subtest 'Special compiler variable $?FILE' => {
-    my $file := $*CWD.absolute ~ '/EVAL_1';
+    my $file := 'EVAL_1';
     # $?FILE
     ast RakuAST::Var::Compiler::File.new($file);