1
exercism fetch elixir grep

grep_test.exs

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
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
if !System.get_env("EXERCISM_TEST_EXAMPLES") do
  Code.load_file("grep.exs", __DIR__)
end

ExUnit.start
ExUnit.configure exclude: :pending, trace: true

defmodule GrepTest do
  use ExUnit.Case

  setup context do

    if context[:files] do
      File.write!("iliad.txt", """
      Achilles sing, O Goddess! Peleus' son;
      His wrath pernicious, who ten thousand woes
      Caused to Achaia's host, sent many a soul
      Illustrious into Ades premature,
      And Heroes gave (so stood the will of Jove)
      To dogs and to all ravening fowls a prey,
      When fierce dispute had separated once
      The noble Chief Achilles from the son
      Of Atreus, Agamemnon, King of men.
      """)

      File.write!("midsummer-night.txt", """
      I do entreat your grace to pardon me.
      I know not by what power I am made bold,
      Nor how it may concern my modesty,
      In such a presence here to plead my thoughts;
      But I beseech your grace that I may know
      The worst that may befall me in this case,
      If I refuse to wed Demetrius.
      """
      )

      File.write!("paradise-lost.txt", """
      Of Mans First Disobedience, and the Fruit
      Of that Forbidden Tree, whose mortal tast
      Brought Death into the World, and all our woe,
      With loss of Eden, till one greater Man
      Restore us, and regain the blissful Seat,
      Sing Heav'nly Muse, that on the secret top
      Of Oreb, or of Sinai, didst inspire
      That Shepherd, who first taught the chosen Seed
      """)

      on_exit fn ->
        File.rm!("iliad.txt")
        File.rm!("midsummer-night.txt")
        File.rm!("paradise-lost.txt")
      end
    end
  end

  @moduletag :files

  describe "grepping a single file" do

    test "one match, no flags" do
      assert Grep.grep("Agamemnon", [], ["iliad.txt"]) ==
        """
        Of Atreus, Agamemnon, King of men.
        """
    end

    @tag :pending
    test "one match, print line numbers flag" do
      assert Grep.grep("Forbidden", ["-n"], ["paradise-lost.txt"]) ==
        """
        2:Of that Forbidden Tree, whose mortal tast
        """
    end

    @tag :pending
    test "one match, case-insensitive flag" do
      assert Grep.grep("FORBIDDEN", ["-i"], ["paradise-lost.txt"]) ==
        """
        Of that Forbidden Tree, whose mortal tast
        """
    end

    @tag :pending
    test "one match, print file names flag" do
      assert Grep.grep("Forbidden", ["-l"], ["paradise-lost.txt"]) ==
        """
        paradise-lost.txt
        """
    end

    @tag :pending
    test "one match, match entire lines flag" do
      assert Grep.grep("With loss of Eden, till one greater Man",
                       ["-x"], ["paradise-lost.txt"]) ==
        """
        With loss of Eden, till one greater Man
        """
    end

    @tag :pending
    test "one match, multiple flags" do
      assert Grep.grep("OF ATREUS, Agamemnon, KIng of MEN.",
                       ["-n", "-i", "-x"], ["iliad.txt"]) ==
        """
        9:Of Atreus, Agamemnon, King of men.
        """
    end

    @tag :pending
    test "several matches, no flags" do
      assert Grep.grep("may", [], ["midsummer-night.txt"]) ==
        """
        Nor how it may concern my modesty,
        But I beseech your grace that I may know
        The worst that may befall me in this case,
        """
    end

    @tag :pending
    test "several matches, print line numbers flag" do
      assert Grep.grep("may", ["-n"], ["midsummer-night.txt"]) ==
        """
        3:Nor how it may concern my modesty,
        5:But I beseech your grace that I may know
        6:The worst that may befall me in this case,
        """
    end

    @tag :pending
    test "several matches, match entire lines flag" do
      assert Grep.grep("may", ["-x"], ["midsummer-night.txt"]) == ""
    end

    @tag :pending
    test "several matches, case-insensitive flag" do
      assert Grep.grep("ACHILLES", ["-i"], ["iliad.txt"]) ==
        """
        Achilles sing, O Goddess! Peleus' son;
        The noble Chief Achilles from the son
        """
    end

    @tag :pending
    test "several matches, inverted flag" do
      assert Grep.grep("Of", ["-v"], ["paradise-lost.txt"]) ==
        """
        Brought Death into the World, and all our woe,
        With loss of Eden, till one greater Man
        Restore us, and regain the blissful Seat,
        Sing Heav'nly Muse, that on the secret top
        That Shepherd, who first taught the chosen Seed
        """
    end

    @tag :pending
    test "no matches, various flags" do
      assert Grep.grep("Gandalf", ["-n", "-l", "-x", "-i"], ["iliad.txt"]) == ""
    end
  end

  describe "grepping multiples files at once" do

    @tag :pending
    test "one match, no flags" do
      assert Grep.grep("Agamemnon", [],
        ["iliad.txt", "midsummer-night.txt", "paradise-lost.txt"]) ==
        """
        iliad.txt:Of Atreus, Agamemnon, King of men.
        """
    end

    @tag :pending
    test "several matches, no flags" do
      assert Grep.grep("may", [],
        ["iliad.txt", "midsummer-night.txt", "paradise-lost.txt"]) ==
        """
        midsummer-night.txt:Nor how it may concern my modesty,
        midsummer-night.txt:But I beseech your grace that I may know
        midsummer-night.txt:The worst that may befall me in this case,
        """
    end

    @tag :pending
    test "several matches, print line numbers flag" do
      assert Grep.grep("that", ["-n"],
        ["iliad.txt", "midsummer-night.txt", "paradise-lost.txt"]) ==
        """
        midsummer-night.txt:5:But I beseech your grace that I may know
        midsummer-night.txt:6:The worst that may befall me in this case,
        paradise-lost.txt:2:Of that Forbidden Tree, whose mortal tast
        paradise-lost.txt:6:Sing Heav'nly Muse, that on the secret top
        """
    end

    @tag :pending
    test "one match, print file names flag" do
      assert Grep.grep("who", ["-l"],
        ["iliad.txt", "midsummer-night.txt", "paradise-lost.txt"]) ==
        """
        iliad.txt
        paradise-lost.txt
        """
    end

    @tag :pending
    test "several matches, case-insensitive flag" do
      assert Grep.grep("TO", ["-i"],
        ["iliad.txt", "midsummer-night.txt", "paradise-lost.txt"]) ==
        """
        iliad.txt:Caused to Achaia's host, sent many a soul
        iliad.txt:Illustrious into Ades premature,
        iliad.txt:And Heroes gave (so stood the will of Jove)
        iliad.txt:To dogs and to all ravening fowls a prey,
        midsummer-night.txt:I do entreat your grace to pardon me.
        midsummer-night.txt:In such a presence here to plead my thoughts;
        midsummer-night.txt:If I refuse to wed Demetrius.
        paradise-lost.txt:Brought Death into the World, and all our woe,
        paradise-lost.txt:Restore us, and regain the blissful Seat,
        paradise-lost.txt:Sing Heav'nly Muse, that on the secret top
        """
    end

    @tag :pending
    test "several matches, inverted flag" do
      assert Grep.grep("a", ["-v"],
        ["iliad.txt", "midsummer-night.txt", "paradise-lost.txt"]) ==
        """
        iliad.txt:Achilles sing, O Goddess! Peleus' son;
        iliad.txt:The noble Chief Achilles from the son
        midsummer-night.txt:If I refuse to wed Demetrius.
        """
    end

    @tag :pending
    test "one match, match entire lines flag" do
      assert Grep.grep("But I beseech your grace that I may know", ["-x"],
        ["iliad.txt", "midsummer-night.txt", "paradise-lost.txt"]) ==
        """
        midsummer-night.txt:But I beseech your grace that I may know
        """
    end

    @tag :pending
    test "one match, multiple flags" do
      assert Grep.grep("WITH LOSS OF EDEN, TILL ONE GREATER MAN",
        ["-n", "-x", "-i"],
        ["iliad.txt", "midsummer-night.txt", "paradise-lost.txt"]) ==
        """
        paradise-lost.txt:4:With loss of Eden, till one greater Man
        """
    end

    @tag :pending
    test "no matches, various flags" do
      assert Grep.grep("Frodo", ["-n", "-l", "-x", "i"],
        ["iliad.txt", "midsummer-night.txt", "paradise-lost.txt"]) == ""
    end
  end
end