# frozen_string_literal: true

require "test_helper"
require_relative "../../sgx-bwmsgsv2"
require "rantly/minitest_extensions"
require_relative "rantly_extensions/data_extensions"

class BadwordsPropertyTest < Minitest::Test
	def setup
		reset_stanzas!
		reset_redis!
	end

	def test_message_containing_badword_is_rejected
		property_of {
			bad_word = choose(*BADWORD_LIST)
			cased = choose(bad_word.downcase, bad_word.upcase, bad_word.capitalize)

			prefix = array(range(0, 4)) { sized(range(3, 8)) { string(:alnum) } }
			suffix = array(range(0, 4)) { sized(range(3, 8)) { string(:alnum) } }
			body = (prefix + [cased] + suffix).join(" ")

			dest = nanpa_phone
			[body, dest]
		}.check { |body, dest|
			reset_stanzas!
			reset_redis!

			stub_request(:post, BW_MESSAGES_URL).to_return(
				status: 201,
				body: JSON.dump(id: "bw-msg-stub")
			)

			m = Blather::Stanza::Message.new("#{dest}@component", body)
			m.from = "test@example.com"
			process_stanza(m)

			assert_equal 1, written.length,
			             "Expected exactly one error stanza for body: #{body.inspect}"

			stanza = Blather::XMPPNode.parse(written.first.to_xml)
			assert stanza.error?,
			       "Expected error stanza for body: #{body.inspect}"

			error = stanza.find_first("error")
			assert_equal "wait", error["type"],
			             "Expected error type 'wait' for body: #{body.inspect}"
			assert_equal "recipient-unavailable", xmpp_error_name(error),
			             "Expected 'recipient-unavailable' for body: #{body.inspect}"
		}
	end
	em :test_message_containing_badword_is_rejected

	def test_message_without_badwords_is_not_rejected_as_unavailable
		property_of {
			dest = nanpa_phone
			[message_body, dest]
		}.check { |body, dest|
			reset_stanzas!
			reset_redis!

			stub_request(:post, BW_MESSAGES_URL).to_return(
				status: 201,
				body: JSON.dump(id: "bw-msg-stub")
			)

			m = Blather::Stanza::Message.new("#{dest}@component", body)
			m.from = "test@example.com"
			process_stanza(m)

			written.each do |response|
				stanza = Blather::XMPPNode.parse(response.to_xml)
				next unless stanza.error?

				error = stanza.find_first("error")
				msg = "Clean message rejected as " \
					"recipient-unavailable: #{body.inspect}"
				refute_equal "recipient-unavailable",
				             xmpp_error_name(error), msg
			end
		}
	end
	em :test_message_without_badwords_is_not_rejected_as_unavailable
end