// Copyright 2020 The Tint Authors.
//
// Licensed under the Apache License, Version 2.0 (the "License");
// you may not use this file except in compliance with the License.
// You may obtain a copy of the License at
//
//     http://www.apache.org/licenses/LICENSE-2.0
//
// Unless required by applicable law or agreed to in writing, software
// distributed under the License is distributed on an "AS IS" BASIS,
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
// See the License for the specific language governing permissions and
// limitations under the License.

#include "gtest/gtest.h"
#include "spirv/unified1/GLSL.std.450.h"
#include "src/ast/call_statement.h"
#include "src/ast/pipeline_stage.h"
#include "src/ast/return_statement.h"
#include "src/ast/scalar_constructor_expression.h"
#include "src/ast/sint_literal.h"
#include "src/ast/stage_decoration.h"
#include "src/ast/type/f32_type.h"
#include "src/ast/type/i32_type.h"
#include "src/ast/type/void_type.h"
#include "src/ast/variable.h"
#include "src/ast/variable_decl_statement.h"
#include "src/type_determiner.h"
#include "src/validator/validator_impl.h"
#include "src/validator/validator_test_helper.h"

namespace tint {
namespace {

class ValidateFunctionTest : public ValidatorTestHelper,
                             public testing::Test {};

TEST_F(ValidateFunctionTest, VoidFunctionEndWithoutReturnStatement_Pass) {
  // [[stage(vertex)]]
  // fn func -> void { var a:i32 = 2; }
  ast::type::I32 i32;
  auto* var = create<ast::Variable>(
      Source{},                  // source
      "a",                       // name
      ast::StorageClass::kNone,  // storage_class
      &i32,                      // type
      false,                     // is_const
      create<ast::ScalarConstructorExpression>(
          create<ast::SintLiteral>(&i32, 2)),  // constructor
      ast::VariableDecorationList{});          // decorations

  ast::VariableList params;
  ast::type::Void void_type;
  auto* body = create<ast::BlockStatement>();
  body->append(create<ast::VariableDeclStatement>(var));
  auto* func = create<ast::Function>(
      Source{Source::Location{12, 34}}, mod()->RegisterSymbol("func"), "func",
      params, &void_type, body,
      ast::FunctionDecorationList{
          create<ast::StageDecoration>(ast::PipelineStage::kVertex, Source{}),
      });
  mod()->AddFunction(func);

  EXPECT_TRUE(td()->Determine()) << td()->error();
  EXPECT_TRUE(v()->Validate(mod()));
}

TEST_F(ValidateFunctionTest,
       VoidFunctionEndWithoutReturnStatementEmptyBody_Pass) {
  // [[stage(vertex)]]
  // fn func -> void {}
  ast::type::Void void_type;
  ast::VariableList params;
  auto* func = create<ast::Function>(
      Source{Source::Location{12, 34}}, mod()->RegisterSymbol("func"), "func",
      params, &void_type, create<ast::BlockStatement>(),
      ast::FunctionDecorationList{
          create<ast::StageDecoration>(ast::PipelineStage::kVertex, Source{}),
      });
  mod()->AddFunction(func);

  EXPECT_TRUE(td()->Determine()) << td()->error();
  EXPECT_TRUE(v()->Validate(mod()));
}

TEST_F(ValidateFunctionTest, FunctionEndWithoutReturnStatement_Fail) {
  // fn func -> int { var a:i32 = 2; }

  ast::type::I32 i32;
  auto* var = create<ast::Variable>(
      Source{},                  // source
      "a",                       // name
      ast::StorageClass::kNone,  // storage_class
      &i32,                      // type
      false,                     // is_const
      create<ast::ScalarConstructorExpression>(
          create<ast::SintLiteral>(&i32, 2)),  // constructor
      ast::VariableDecorationList{});          // decorations

  ast::VariableList params;
  ast::type::Void void_type;
  auto* body = create<ast::BlockStatement>();
  body->append(create<ast::VariableDeclStatement>(var));
  auto* func = create<ast::Function>(
      Source{Source::Location{12, 34}}, mod()->RegisterSymbol("func"), "func",
      params, &i32, body, ast::FunctionDecorationList{});
  mod()->AddFunction(func);

  EXPECT_TRUE(td()->Determine()) << td()->error();
  EXPECT_FALSE(v()->Validate(mod()));
  EXPECT_EQ(v()->error(),
            "12:34 v-0002: non-void function must end with a return statement");
}

TEST_F(ValidateFunctionTest, FunctionEndWithoutReturnStatementEmptyBody_Fail) {
  // fn func -> int {}
  ast::type::Void void_type;
  ast::type::I32 i32;
  ast::VariableList params;
  auto* func = create<ast::Function>(
      Source{Source::Location{12, 34}}, mod()->RegisterSymbol("func"), "func",
      params, &i32, create<ast::BlockStatement>(),
      ast::FunctionDecorationList{});
  mod()->AddFunction(func);

  EXPECT_TRUE(td()->Determine()) << td()->error();
  EXPECT_FALSE(v()->Validate(mod()));
  EXPECT_EQ(v()->error(),
            "12:34 v-0002: non-void function must end with a return statement");
}

TEST_F(ValidateFunctionTest, FunctionTypeMustMatchReturnStatementType_Pass) {
  // [[stage(vertex)]]
  // fn func -> void { return; }
  ast::type::Void void_type;
  ast::VariableList params;

  auto* body = create<ast::BlockStatement>();
  body->append(create<ast::ReturnStatement>(Source{}));
  auto* func = create<ast::Function>(
      Source{}, mod()->RegisterSymbol("func"), "func", params, &void_type, body,
      ast::FunctionDecorationList{
          create<ast::StageDecoration>(ast::PipelineStage::kVertex, Source{}),
      });
  mod()->AddFunction(func);

  EXPECT_TRUE(td()->DetermineFunctions(mod()->functions())) << td()->error();
  EXPECT_TRUE(v()->ValidateFunctions(mod()->functions())) << v()->error();
}

TEST_F(ValidateFunctionTest, FunctionTypeMustMatchReturnStatementType_fail) {
  // fn func -> void { return 2; }
  ast::type::Void void_type;
  ast::type::I32 i32;
  ast::VariableList params;
  auto* body = create<ast::BlockStatement>();
  auto* return_expr = create<ast::ScalarConstructorExpression>(
      create<ast::SintLiteral>(&i32, 2));

  body->append(create<ast::ReturnStatement>(Source{Source::Location{12, 34}},
                                            return_expr));
  auto* func = create<ast::Function>(Source{}, mod()->RegisterSymbol("func"),
                                     "func", params, &void_type, body,
                                     ast::FunctionDecorationList{});
  mod()->AddFunction(func);

  EXPECT_TRUE(td()->Determine()) << td()->error();
  EXPECT_FALSE(v()->Validate(mod()));
  // TODO(sarahM0): replace 000y with a rule number
  EXPECT_EQ(v()->error(),
            "12:34 v-000y: return statement type must match its function "
            "return type, returned '__i32', expected '__void'");
}

TEST_F(ValidateFunctionTest, FunctionTypeMustMatchReturnStatementTypeF32_fail) {
  // fn func -> f32 { return 2; }
  ast::type::I32 i32;
  ast::type::F32 f32;
  ast::VariableList params;
  auto* body = create<ast::BlockStatement>();
  auto* return_expr = create<ast::ScalarConstructorExpression>(
      create<ast::SintLiteral>(&i32, 2));

  body->append(create<ast::ReturnStatement>(Source{Source::Location{12, 34}},
                                            return_expr));
  auto* func =
      create<ast::Function>(Source{}, mod()->RegisterSymbol("func"), "func",
                            params, &f32, body, ast::FunctionDecorationList{});
  mod()->AddFunction(func);

  EXPECT_TRUE(td()->Determine()) << td()->error();
  EXPECT_FALSE(v()->Validate(mod()));
  // TODO(sarahM0): replace 000y with a rule number
  EXPECT_EQ(v()->error(),
            "12:34 v-000y: return statement type must match its function "
            "return type, returned '__i32', expected '__f32'");
}

TEST_F(ValidateFunctionTest, FunctionNamesMustBeUnique_fail) {
  // fn func -> i32 { return 2; }
  // fn func -> i32 { return 2; }
  ast::type::Void void_type;
  ast::type::I32 i32;

  ast::VariableList params;
  auto* body = create<ast::BlockStatement>();
  auto* return_expr = create<ast::ScalarConstructorExpression>(
      create<ast::SintLiteral>(&i32, 2));

  body->append(create<ast::ReturnStatement>(Source{}, return_expr));
  auto* func =
      create<ast::Function>(Source{}, mod()->RegisterSymbol("func"), "func",
                            params, &i32, body, ast::FunctionDecorationList{});

  ast::VariableList params_copy;
  auto* body_copy = create<ast::BlockStatement>();
  auto* return_expr_copy = create<ast::ScalarConstructorExpression>(
      create<ast::SintLiteral>(&i32, 2));

  body_copy->append(create<ast::ReturnStatement>(Source{}, return_expr_copy));
  auto* func_copy = create<ast::Function>(
      Source{Source::Location{12, 34}}, mod()->RegisterSymbol("func"), "func",
      params_copy, &i32, body_copy, ast::FunctionDecorationList{});

  mod()->AddFunction(func);
  mod()->AddFunction(func_copy);

  EXPECT_TRUE(td()->Determine()) << td()->error();
  EXPECT_FALSE(v()->Validate(mod()));
  EXPECT_EQ(v()->error(), "12:34 v-0016: function names must be unique 'func'");
}

TEST_F(ValidateFunctionTest, RecursionIsNotAllowed_Fail) {
  // fn func() -> void {func(); return; }
  ast::type::F32 f32;
  ast::type::Void void_type;
  ast::ExpressionList call_params;
  auto* call_expr = create<ast::CallExpression>(
      Source{Source::Location{12, 34}},
      create<ast::IdentifierExpression>("func"), call_params);
  ast::VariableList params0;
  auto* body0 = create<ast::BlockStatement>();
  body0->append(create<ast::CallStatement>(call_expr));
  body0->append(create<ast::ReturnStatement>(Source{}));
  auto* func0 = create<ast::Function>(Source{}, mod()->RegisterSymbol("func"),
                                      "func", params0, &f32, body0,
                                      ast::FunctionDecorationList{});
  mod()->AddFunction(func0);

  EXPECT_TRUE(td()->Determine()) << td()->error();
  EXPECT_FALSE(v()->Validate(mod())) << v()->error();
  EXPECT_EQ(v()->error(), "12:34 v-0004: recursion is not allowed: 'func'");
}

TEST_F(ValidateFunctionTest, RecursionIsNotAllowedExpr_Fail) {
  // fn func() -> i32 {var a: i32 = func(); return 2; }
  ast::type::I32 i32;
  ast::ExpressionList call_params;
  auto* call_expr = create<ast::CallExpression>(
      Source{Source::Location{12, 34}},
      create<ast::IdentifierExpression>("func"), call_params);
  auto* var =
      create<ast::Variable>(Source{},                        // source
                            "a",                             // name
                            ast::StorageClass::kNone,        // storage_class
                            &i32,                            // type
                            false,                           // is_const
                            call_expr,                       // constructor
                            ast::VariableDecorationList{});  // decorations
  ast::VariableList params0;
  auto* body0 = create<ast::BlockStatement>();
  body0->append(create<ast::VariableDeclStatement>(var));
  auto* return_expr = create<ast::ScalarConstructorExpression>(
      create<ast::SintLiteral>(&i32, 2));

  body0->append(create<ast::ReturnStatement>(Source{}, return_expr));
  auto* func0 = create<ast::Function>(Source{}, mod()->RegisterSymbol("func"),
                                      "func", params0, &i32, body0,
                                      ast::FunctionDecorationList{});
  mod()->AddFunction(func0);

  EXPECT_TRUE(td()->Determine()) << td()->error();
  EXPECT_FALSE(v()->Validate(mod())) << v()->error();
  EXPECT_EQ(v()->error(), "12:34 v-0004: recursion is not allowed: 'func'");
}

TEST_F(ValidateFunctionTest, Function_WithPipelineStage_NotVoid_Fail) {
  // [[stage(vertex)]]
  // fn vtx_main() -> i32 { return 0; }
  ast::type::I32 i32;
  ast::VariableList params;
  auto* return_expr = create<ast::ScalarConstructorExpression>(
      create<ast::SintLiteral>(&i32, 0));

  auto* body = create<ast::BlockStatement>();
  body->append(create<ast::ReturnStatement>(Source{}, return_expr));
  auto* func = create<ast::Function>(
      Source{Source::Location{12, 34}}, mod()->RegisterSymbol("vtx_main"),
      "vtx_main", params, &i32, body,
      ast::FunctionDecorationList{
          create<ast::StageDecoration>(ast::PipelineStage::kVertex, Source{}),
      });

  mod()->AddFunction(func);
  EXPECT_TRUE(td()->Determine()) << td()->error();
  EXPECT_FALSE(v()->Validate(mod()));
  EXPECT_EQ(v()->error(),
            "12:34 v-0024: Entry point function must return void: 'vtx_main'");
}

TEST_F(ValidateFunctionTest, Function_WithPipelineStage_WithParams_Fail) {
  // [[stage(vertex)]]
  // fn vtx_func(a : i32) -> void { return; }
  ast::type::I32 i32;
  ast::type::Void void_type;
  ast::VariableList params;
  params.push_back(
      create<ast::Variable>(Source{},                         // source
                            "a",                              // name
                            ast::StorageClass::kNone,         // storage_class
                            &i32,                             // type
                            false,                            // is_const
                            nullptr,                          // constructor
                            ast::VariableDecorationList{}));  // decorations
  auto* body = create<ast::BlockStatement>();
  body->append(create<ast::ReturnStatement>(Source{}));
  auto* func = create<ast::Function>(
      Source{Source::Location{12, 34}}, mod()->RegisterSymbol("vtx_func"),
      "vtx_func", params, &void_type, body,
      ast::FunctionDecorationList{
          create<ast::StageDecoration>(ast::PipelineStage::kVertex, Source{}),
      });

  mod()->AddFunction(func);
  EXPECT_TRUE(td()->Determine()) << td()->error();
  EXPECT_FALSE(v()->Validate(mod()));
  EXPECT_EQ(v()->error(),
            "12:34 v-0023: Entry point function must accept no parameters: "
            "'vtx_func'");
}

TEST_F(ValidateFunctionTest, PipelineStage_MustBeUnique_Fail) {
  // [[stage(fragment)]]
  // [[stage(vertex)]]
  // fn main() -> void { return; }
  ast::type::Void void_type;
  ast::VariableList params;
  auto* body = create<ast::BlockStatement>();
  body->append(create<ast::ReturnStatement>(Source{}));
  auto* func = create<ast::Function>(
      Source{Source::Location{12, 34}}, mod()->RegisterSymbol("main"), "main",
      params, &void_type, body,
      ast::FunctionDecorationList{
          create<ast::StageDecoration>(ast::PipelineStage::kVertex, Source{}),
          create<ast::StageDecoration>(ast::PipelineStage::kFragment, Source{}),
      });

  mod()->AddFunction(func);
  EXPECT_TRUE(td()->Determine()) << td()->error();
  EXPECT_FALSE(v()->Validate(mod()));
  EXPECT_EQ(
      v()->error(),
      "12:34 v-0020: only one stage decoration permitted per entry point");
}

TEST_F(ValidateFunctionTest, OnePipelineStageFunctionMustBePresent_Pass) {
  // [[stage(vertex)]]
  // fn vtx_func() -> void { return; }
  ast::type::Void void_type;
  ast::VariableList params;
  auto* body = create<ast::BlockStatement>();
  body->append(create<ast::ReturnStatement>(Source{}));
  auto* func = create<ast::Function>(
      Source{}, mod()->RegisterSymbol("vtx_func"), "vtx_func", params,
      &void_type, body,
      ast::FunctionDecorationList{
          create<ast::StageDecoration>(ast::PipelineStage::kVertex, Source{}),
      });
  mod()->AddFunction(func);

  EXPECT_TRUE(td()->Determine()) << td()->error();
  EXPECT_TRUE(v()->Validate(mod())) << v()->error();
}

TEST_F(ValidateFunctionTest, OnePipelineStageFunctionMustBePresent_Fail) {
  // fn vtx_func() -> void { return; }
  ast::type::Void void_type;
  ast::VariableList params;
  auto* body = create<ast::BlockStatement>();
  body->append(create<ast::ReturnStatement>(Source{}));
  auto* func = create<ast::Function>(
      Source{}, mod()->RegisterSymbol("vtx_func"), "vtx_func", params,
      &void_type, body, ast::FunctionDecorationList{});
  mod()->AddFunction(func);

  EXPECT_TRUE(td()->Determine()) << td()->error();
  EXPECT_FALSE(v()->Validate(mod()));
  EXPECT_EQ(v()->error(),
            "v-0003: At least one of vertex, fragment or compute shader must "
            "be present");
}

}  // namespace
}  // namespace tint