no-comment 0.0.3

Remove rust-style line and block comments from a char iterator.
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140

use crate::languages::haskell;
use crate::IntoWithoutComments as _;

#[test]
fn test_no_comments() {
    let strings = [
        "This is a string",
        "This is one\nwith a newline",
        "One with a trailing newline\n",
        "\nA leading newline",
        "\nBoth\n",
        "\n",
        "\n\n",
        "\n \n",
        "Double  space",
        " Leading",
        "Trailing ",
        " Both again ",
        "          ",
        "",
        "A // rust line comment",
        "A /* rust block comment */",
        "A /*/* nested */*/ one",
        "Another /* one, this time unclosed",
        "A # python line comment",
        "A ''' python ''' block \"\"\" comment",
    ];

    for string in strings.iter() {
        let without_comments = string
            .chars()
            .without_comments(haskell())
            .collect::<String>();

        assert_eq!(
            &without_comments, string,
            "\"{}\" should be \"{}\"",
            without_comments, string
        );
    }
}

#[test]
fn test_line_comments() {
    let strings = [
        ("With a line comment -- this is it", "With a line comment "),
        ("3 --- should work", "3 "),
        ("4 ---- --", "4 "),
        (
            "With close block-- -} would panic if it were text",
            "With close block",
        ),
        ("Even closer ---}", "Even closer "),
        ("-- Just comment", ""),
        ("--", ""),
        ("---", ""),
        ("A--\nB", "A\nB"),
        ("--\n--\n", "\n\n"),
        (
            "Not a block --{--} still {- -} line comment",
            "Not a block ",
        ),
        (
            "String literals \"--\" are ignored, this is a comment",
            "String literals \"",
        ),
    ];

    for (string, check) in strings.iter() {
        let without_comments = string
            .chars()
            .without_comments(haskell())
            .collect::<String>();

        assert_eq!(&without_comments, check);
    }
}

#[test]
fn test_block_comments() {
    let strings = [
        ("With a {- block -} comment", "With a  comment"), // note the double space
        ("With a {- nested {- block -} comment -}", "With a "), // note the trailing space
        ("With a {--} short one", "With a  short one"),
        ("Con{---}fusing", "Confusing"),
        ("Auto-close{- unclosed", "Auto-close"),
        ("With{-\n-} a newline", "With a newline"),
        ("Nested {- \n {- \n -} \n -}newlines", "Nested newlines"),
        (
            "Line comment{- -- this one -} ignored",
            "Line comment ignored",
        ),
        ("{--}", ""),
        ("{-~-}", ""),
        ("{-\n\t//\nstill a comment-}", ""),
        ("One {- one -}{- two -} Two", "One  Two"),
        ("A{- {- one -}{- two -}{- three {--}-} -}B", "AB"),
        (
            "String \" literals {- comment \" -}are ignored",
            "String \" literals are ignored",
        ),
    ];

    for (string, check) in strings.iter() {
        let without_comments = string
            .chars()
            .without_comments(haskell())
            .collect::<String>();

        assert_eq!(&without_comments, check);
    }
}

#[test]
#[should_panic]
fn test_block_comment_close_panic() {
    let _ = "-}".chars().without_comments(haskell()).collect::<String>();
}

#[test]
fn test_block_and_line_together() {
    let strings = [
        ("Line-- comment\nAnd block{- comment -}", "Line\nAnd block"),
        ("Block{- comment -}-- and a line", "Block"),
        ("--\n{--}--{-", "\n"),
        ("{- --\n still a comment", ""),
        ("Unclosed --", "Unclosed "),
        ("{-S-}he {-be-}lie{-ve-}d", "he lied"),
        ("S{-he -}be{-lie-}ve--d", "Sbeve"),
    ];

    for (string, check) in strings.iter() {
        let without_comments = string
            .chars()
            .without_comments(haskell())
            .collect::<String>();

        assert_eq!(&without_comments, check);
    }
}