Remove LFortran tests

Abdullahjavednesar · Mar 19, 2022 · de9c5e0 · de9c5e0
1 parent 11f8b4d
commit de9c5e0
Show file tree

Hide file tree

Showing 5 changed files with 1 addition and 613 deletions.
diff --git a/src/bin/lpython.cpp b/src/bin/lpython.cpp
@@ -10,7 +10,6 @@
 #include <lpython/parser/parser.h>
 #include <lpython/parser/preprocessor.h>
 #include <lpython/pickle.h>
-#include <lpython/semantics/ast_to_asr.h>
 #include <lpython/semantics/python_ast_to_asr.h>
 #include <lpython/mod_to_asr.h>
 #include <libasr/codegen/asr_to_llvm.h>

diff --git a/src/lpython/fortran_evaluator.cpp b/src/lpython/fortran_evaluator.cpp
@@ -7,7 +7,6 @@
 #include <libasr/exception.h>
 #include <lpython/ast.h>
 #include <libasr/asr.h>
-#include <lpython/semantics/ast_to_asr.h>
 #include <lpython/parser/parser.h>
 #include <lpython/parser/preprocessor.h>
 #include <lpython/pickle.h>
@@ -225,7 +224,7 @@ Result<ASR::TranslationUnit_t*> FortranEvaluator::get_asr2(
 }
 
 Result<ASR::TranslationUnit_t*> FortranEvaluator::get_asr3(
-            AST::TranslationUnit_t &ast, diag::Diagnostics &diagnostics)
+            AST::TranslationUnit_t &/*ast*/, diag::Diagnostics &/*diagnostics*/)
 {
     ASR::TranslationUnit_t* asr;
     // AST -> ASR
@@ -236,15 +235,6 @@ Result<ASR::TranslationUnit_t*> FortranEvaluator::get_asr3(
         }
         symbol_table->mark_all_variables_external(al);
     }
-    auto res = ast_to_asr(al, ast, diagnostics, symbol_table,
-        compiler_options.symtab_only);
-    if (res.ok) {
-        asr = res.result;
-    } else {
-        LFORTRAN_ASSERT(diagnostics.has_error())
-        return res.error;
-    }
-    if (!symbol_table) symbol_table = asr->m_global_scope;
 
     return asr;
 }

diff --git a/src/lpython/tests/test_ast.cpp b/src/lpython/tests/test_ast.cpp
@@ -6,7 +6,6 @@
 #include <lpython/ast.h>
 #include <libasr/asr.h>
 #include <lpython/parser/parser.h>
-#include <lpython/semantics/ast_to_asr.h>
 #include <libasr/asr_verify.h>
 
 namespace LFortran {
@@ -25,35 +24,5 @@ TEST_CASE("Test types") {
 
 }
 
-TEST_CASE("ASR Verify") {
-    Allocator al(4*1024);
-
-    std::string src = R"""(
-program expr2
-implicit none
-integer :: x
-x = (2+3)*5
-print *, x
-end program
-)""";
-
-    LFortran::diag::Diagnostics diagnostics;
-    AST::TranslationUnit_t* ast = TRY(LFortran::parse(al, src, diagnostics));
-    ASR::TranslationUnit_t* asr = TRY(LFortran::ast_to_asr(al, *ast,
-        diagnostics));
-
-    CHECK(asr_verify(*asr)); // Passes
-
-    // Extract the variable "x" from the "x = (2+3)*5" line:
-    ASR::Program_t *prog = ASR::down_cast<ASR::Program_t>(asr->m_global_scope->scope["expr2"]);
-    ASR::Assignment_t *a = ASR::down_cast<ASR::Assignment_t>(prog->m_body[0]);
-    ASR::Var_t *v = ASR::down_cast<ASR::Var_t>(a->m_target);
-
-    v->m_v = &(prog->base); // Assign the wrong symbol to Var_t::m_v
-
-    // This will be caught by the verifier
-    CHECK_THROWS_AS(asr_verify(*asr), LFortranException);
-}
-
 
 } // namespace LFortran