require_relative "test_helper"

module NativeTest
  SAMPLE_SASS_STRING = "$size: 30px; .hi { width: $size; }"
  SAMPLE_CSS_OUTPUT = ".hi {\n  width: 30px; }\n"
  BAD_SASS_STRING = "$size = 30px;"

  class General < SassCTest
    def test_it_reports_the_libsass_version
      assert_equal "3.2.0-beta.1", SassC::Native.version
    end
  end

  class DataContext < SassCTest
    def teardown
      SassC::Native.delete_data_context(@data_context)
    end

    def test_compile_status_is_zero_when_successful
      @data_context = SassC::Native.make_data_context(SAMPLE_SASS_STRING)
      context = SassC::Native.data_context_get_context(@data_context)

      status = SassC::Native.compile_data_context(@data_context)
      assert_equal 0, status

      status = SassC::Native.context_get_error_status(context)
      assert_equal 0, status
    end

    def test_compiled_css_is_correct
      @data_context = SassC::Native.make_data_context(SAMPLE_SASS_STRING)
      context = SassC::Native.data_context_get_context(@data_context)
      SassC::Native.compile_data_context(@data_context)

      css = SassC::Native.context_get_output_string(context)
      assert_equal SAMPLE_CSS_OUTPUT, css
    end

    def test_compile_status_is_one_if_failed
      @data_context = SassC::Native.make_data_context(BAD_SASS_STRING)
      context = SassC::Native.data_context_get_context(@data_context)

      status = SassC::Native.compile_data_context(@data_context)
      refute_equal 0, status

      status = SassC::Native.context_get_error_status(context)
      refute_equal 0, status
    end

    def test_failed_compile_gives_error_message
    end

    def test_custom_function
      data_context = SassC::Native.make_data_context("foo { margin: foo(); }")
      context = SassC::Native.data_context_get_context(data_context)
      options = SassC::Native.context_get_options(context)

      random_thing = FFI::MemoryPointer.from_string("hi")

      funct = FFI::Function.new(:pointer, [:pointer, :pointer]) do |s_args, cookie|
        SassC::Native.make_number(43, "px")
      end

      callback = SassC::Native.make_function(
        "foo()",
        funct,
        random_thing
      )

      list = SassC::Native.make_function_list(1)
      SassC::Native::function_set_list_entry(list, 0, callback);
      SassC::Native::option_set_c_functions(options, list)

      assert_equal SassC::Native.option_get_c_functions(options), list

      first_list_entry = SassC::Native.function_get_list_entry(list, 0)
      assert_equal SassC::Native.function_get_function(first_list_entry),
                   funct
      assert_equal SassC::Native.function_get_signature(first_list_entry),
                   "foo()"
      assert_equal SassC::Native.function_get_cookie(first_list_entry),
                   random_thing

      #string = SassC::Native.make_string("hello")
      string = SassC::Native.make_string("hello")
      assert_equal :sass_string, SassC::Native.value_get_tag(string)
      assert_equal "hello", SassC::Native.string_get_value(string)

      SassC::Native.compile_data_context(data_context)

      css = SassC::Native.context_get_output_string(context)
      assert_equal "foo {\n  margin: 43px; }\n", css
    end
  end

  class FileContext < SassCTest
    def around
      within_construct do |construct|
        @construct = construct
        yield
      end

      @construct = nil
    end

    def teardown
      SassC::Native.delete_file_context(@file_context)
    end

    def test_compile_status_is_zero_when_successful
      @construct.file("style.scss", SAMPLE_SASS_STRING)

      @file_context = SassC::Native.make_file_context("style.scss")
      context = SassC::Native.file_context_get_context(@file_context)

      status = SassC::Native.compile_file_context(@file_context)
      assert_equal 0, status

      status = SassC::Native.context_get_error_status(context)
      assert_equal 0, status
    end

    def test_compiled_css_is_correct
      @construct.file("style.scss", SAMPLE_SASS_STRING)

      @file_context = SassC::Native.make_file_context("style.scss")
      context = SassC::Native.file_context_get_context(@file_context)
      SassC::Native.compile_file_context(@file_context)

      css = SassC::Native.context_get_output_string(context)
      assert_equal SAMPLE_CSS_OUTPUT, css
    end

    def test_invalid_file_name
      @construct.file("style.scss", SAMPLE_SASS_STRING)

      @file_context = SassC::Native.make_file_context("style.jajaja")
      context = SassC::Native.file_context_get_context(@file_context)
      status = SassC::Native.compile_file_context(@file_context)

      refute_equal 0, status

      error = SassC::Native.context_get_error_message(context)

      assert_match "Error: File to read not found or unreadable: style.jajaja",
                   error
    end

    def test_file_import
      @construct.file("not_included.scss", "$size: 30px;")
      @construct.file("import_parent.scss", "$size: 30px;")
      @construct.file("import.scss", "@import 'import_parent'; $size: 30px;")
      @construct.file("styles.scss", "@import 'import.scss'; .hi { width: $size; }")

      @file_context = SassC::Native.make_file_context("styles.scss")
      context = SassC::Native.file_context_get_context(@file_context)
      status = SassC::Native.compile_file_context(@file_context)

      assert_equal 0, status

      css = SassC::Native.context_get_output_string(context)
      assert_equal SAMPLE_CSS_OUTPUT, css

      included_files = SassC::Native.context_get_included_files(context)
      included_files.sort!

      assert_match /import.scss/, included_files[0]
      assert_match /import_parent.scss/, included_files[1]
      assert_match /styles.scss/, included_files[2]
    end

    def test_custom_importer
      @construct.file("not_included.scss", "$size: $var + 25;")
      @construct.file("styles.scss", "@import 'import.scss'; .hi { width: $size; }")

      @file_context = SassC::Native.make_file_context("styles.scss")
      context = SassC::Native.file_context_get_context(@file_context)
      options = SassC::Native.context_get_options(context)

      funct = FFI::Function.new(:pointer, [:pointer, :pointer, :pointer]) do |url, prev, cookie|
        list = SassC::Native.make_import_list(2)

        str = "$var: 5px;\0"
        data = SassC::Native::LibC.malloc(str.size)
        data.write_string(str)

        entry0 = SassC::Native.make_import_entry("fake_includ.scss", data, nil)
        entry1 = SassC::Native.make_import_entry("not_included.scss", nil, nil)
        SassC::Native.import_set_list_entry(list, 0, entry0)
        SassC::Native.import_set_list_entry(list, 1, entry1)
        list
      end

      callback = SassC::Native.make_importer(funct, nil)

      SassC::Native.option_set_importer(options, callback)

      status = SassC::Native.compile_file_context(@file_context)
      assert_equal 0, status

      css = SassC::Native.context_get_output_string(context)
      assert_equal SAMPLE_CSS_OUTPUT, css
    end
  end
end