{$CLEO .s}
{$INCLUDE_ONCE ../cleo_tester.inc}

script_name '2604'
test("2604 (is_text_suffix)", tests)
terminate_this_custom_script


function tests
    it("should contain text suffix", test1)
    it("should NOT contain text suffix", test2)
    return

    function test1
        is_text_suffix {text} "the_longer test_text" {suffix} "" {ignoreCase} false
        assert_result_true()

        is_text_suffix {text} "the_longer test_text" {suffix} "" {ignoreCase} false
        assert_result_true()

        is_text_suffix {text} "the_longer test_text" {suffix} "t" {ignoreCase} false
        assert_result_true()

        is_text_suffix {text} "the_longer test_text" {suffix} "t" {ignoreCase} true
        assert_result_true()

        is_text_suffix {text} "the_longer test_text" {suffix} "text" {ignoreCase} false
        assert_result_true()

        is_text_suffix {text} "the_longer test_text" {suffix} "text" {ignoreCase} true
        assert_result_true()

        is_text_suffix {text} "the_longer test_text" {suffix} " test_text" {ignoreCase} false
        assert_result_true()

        is_text_suffix {text} "the_longer test_text" {suffix} " test_text" {ignoreCase} true
        assert_result_true()

        is_text_suffix {text} "the_longer test_text" {suffix} "the_longer test_text" {ignoreCase} false
        assert_result_true()

        is_text_suffix {text} "the_longer test_text" {suffix} "the_longer test_text" {ignoreCase} true
        assert_result_true()

        // case mismatch
        is_text_suffix {text} "the_longer test_text" {suffix} "EXT" {ignoreCase} true
        assert_result_true()

        is_text_suffix {text} "the_longer test_text" {suffix} "tEsT_TeXt" {ignoreCase} true
        assert_result_true()
    end

    function test2
        is_text_suffix {text} "the_longer test_text" {suffix} "tex" {ignoreCase} false
        assert_result_false()

        is_text_suffix {text} "the_longer test_text" {suffix} "tex" {ignoreCase} true
        assert_result_false()

        is_text_suffix {text} "text" {suffix} "the_longer test_text" {ignoreCase} false
        assert_result_false()

        is_text_suffix {text} "text" {suffix} "the_longer test_text" {ignoreCase} true
        assert_result_false()

        // case mismatch
        is_text_suffix {text} "the_longer test_text" {suffix} "EXT" {ignoreCase} false
        assert_result_false()

        is_text_suffix {text} "the_longer test_text" {suffix} "tEsT_TeXt" {ignoreCase} false
        assert_result_false()
    end
end