roc/compiler/gen/tests/gen_str.rs

#[macro_use]
extern crate pretty_assertions;
#[macro_use]
extern crate indoc;

extern crate bumpalo;
extern crate inkwell;
extern crate libc;
extern crate roc_gen;

#[macro_use]
mod helpers;

#[cfg(test)]
mod gen_str {
    #[test]
    fn str_split_bigger_delimiter_small_str() {
        assert_evals_to!(
            indoc!(
                r#"
                    List.len (Str.split "hello" "JJJJ there")
                "#
            ),
            1,
            i64
        );

        assert_evals_to!(
            indoc!(
                r#"
                    when List.first (Str.split "JJJ" "JJJJ there") is
                        Ok str -> 
                            Str.countGraphemes str
                            
                        _ ->
                            -1
                            
                "#
            ),
            3,
            i64
        );

        // assert_evals_to!(
        //     indoc!(
        //         r#"
        //             when List.first (Str.split "JJJJJ" "JJJJ there") is
        //                 Ok str ->
        //                     str
        //                         |> Str.concat str
        //                         |> Str.concat str
        //                         |> Str.concat str
        //                         |> Str.concat str
        //
        //                 _ ->
        //                     "Not Str!"
        //
        //         "#
        //     ),
        //     "JJJJJJJJJJJJJJJJJJJJJJJJJ",
        //     &'static str
        // );
    }

    // #[test]
    // fn str_split_small_str_big_delimiter() {
    //     assert_evals_to!(
    //         indoc!(
    //             r#"
    //                 Str.split "JJJ" "0123456789abcdefghi"
    //             "#
    //         ),
    //         &["JJJ"],
    //         &'static [&'static str]
    //     );
    // }

    #[test]
    fn str_split_big_str_small_delimiter() {
        assert_evals_to!(
            indoc!(
                r#"
                    Str.split "01234567789abcdefghi?01234567789abcdefghi" "?" 
                "#
            ),
            &["01234567789abcdefghi", "01234567789abcdefghi"],
            &'static [&'static str]
        );

        assert_evals_to!(
            indoc!(
                r#"
                    Str.split "01234567789abcdefghi 3ch 01234567789abcdefghi" "3ch" 
                "#
            ),
            &["01234567789abcdefghi ", " 01234567789abcdefghi"],
            &'static [&'static str]
        );
    }

    // #[test]
    // fn str_split_small_str_small_delimiter() {
    //     assert_evals_to!(
    //         indoc!(
    //             r#"
    //                 Str.split "J!J!J" "!"
    //             "#
    //         ),
    //         &["J", "J", "J"],
    //         &'static [&'static str]
    //     );
    // }

    #[test]
    fn str_split_bigger_delimiter_big_str() {
        assert_evals_to!(
            indoc!(
                r#"
                    Str.split 
                        "string to split is shorter" 
                        "than the delimiter which happens to be very very long"
                "#
            ),
            &["string to split is shorter"],
            &'static [&'static str]
        );
    }

    // #[test]
    // fn str_split_big_str() {
    //     assert_evals_to!(
    //         indoc!(
    //             r#"
    //                 Str.split
    //                     "hello 0123456789abcdef there 0123456789abcdef "
    //                     " 0123456789abcdef "
    //             "#
    //         ),
    //         &["hello", "there"],
    //         &'static [&'static str]
    //     );
    // }

    #[test]
    fn str_concat_big_to_big() {
        assert_evals_to!(
            indoc!(
                r#"
                    Str.concat
                        "First string that is fairly long. Longer strings make for different errors. "
                        "Second string that is also fairly long. Two long strings test things that might not appear with short strings."
                "#
            ),
            "First string that is fairly long. Longer strings make for different errors. Second string that is also fairly long. Two long strings test things that might not appear with short strings.",
            &'static str
        );
    }

    #[test]
    fn small_str_literal() {
        assert_evals_to!(
            "\"JJJJJJJJJJJJJJJ\"",
            [
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0b1000_1111
            ],
            [u8; 16]
        );
    }

    #[test]
    fn small_str_zeroed_literal() {
        // Verifies that we zero out unused bytes in the string.
        // This is important so that string equality tests don't randomly
        // fail due to unused memory being there!
        assert_evals_to!(
            "\"J\"",
            [
                0x4a,
                0x00,
                0x00,
                0x00,
                0x00,
                0x00,
                0x00,
                0x00,
                0x00,
                0x00,
                0x00,
                0x00,
                0x00,
                0x00,
                0x00,
                0b1000_0001
            ],
            [u8; 16]
        );
    }

    #[test]
    fn small_str_concat_empty_first_arg() {
        assert_evals_to!(
            r#"Str.concat "" "JJJJJJJJJJJJJJJ""#,
            [
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0b1000_1111
            ],
            [u8; 16]
        );
    }

    #[test]
    fn small_str_concat_empty_second_arg() {
        assert_evals_to!(
            r#"Str.concat "JJJJJJJJJJJJJJJ" """#,
            [
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0b1000_1111
            ],
            [u8; 16]
        );
    }

    #[test]
    fn small_str_concat_small_to_big() {
        assert_evals_to!(
            r#"Str.concat "abc" " this is longer than 15 chars""#,
            "abc this is longer than 15 chars",
            &'static str
        );
    }

    #[test]
    fn small_str_concat_small_to_small_staying_small() {
        assert_evals_to!(
            r#"Str.concat "J" "JJJJJJJJJJJJJJ""#,
            [
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0x4a,
                0b1000_1111
            ],
            [u8; 16]
        );
    }

    #[test]
    fn small_str_concat_small_to_small_overflow_to_big() {
        assert_evals_to!(
            r#"Str.concat "abcdefghijklm" "nopqrstuvwxyz""#,
            "abcdefghijklmnopqrstuvwxyz",
            &'static str
        );
    }

    #[test]
    fn str_concat_empty() {
        assert_evals_to!(r#"Str.concat "" """#, "", &'static str);
    }

    #[test]
    fn small_str_is_empty() {
        assert_evals_to!(r#"Str.isEmpty "abc""#, false, bool);
    }

    #[test]
    fn big_str_is_empty() {
        assert_evals_to!(
            r#"Str.isEmpty "this is more than 15 chars long""#,
            false,
            bool
        );
    }

    #[test]
    fn empty_str_is_empty() {
        assert_evals_to!(r#"Str.isEmpty """#, true, bool);
    }

    #[test]
    fn str_count_graphemes_small_str() {
        assert_evals_to!(r#"Str.countGraphemes "å🤔""#, 2, usize);
    }

    #[test]
    fn str_count_graphemes_big_str() {
        assert_evals_to!(
            r#"Str.countGraphemes "6🤔å🤔e¥🤔çppkd🙃1jdal🦯asdfa∆ltråø˚waia8918.,🏅jjc""#,
            45,
            usize
        );
    }
}