From d65cc267e99ea7350dcdd236a22f29a08c8b7fb2 Mon Sep 17 00:00:00 2001
From: mpeterv <mpeterval@gmail.com>
Date: Fri, 17 Jul 2015 19:38:25 +0300
Subject: [PATCH] Add some tests for globbing

---
 spec/globbing_spec.lua | 71 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 71 insertions(+)
 create mode 100644 spec/globbing_spec.lua

diff --git a/spec/globbing_spec.lua b/spec/globbing_spec.lua
new file mode 100644
index 00000000..45389d43
--- /dev/null
+++ b/spec/globbing_spec.lua
@@ -0,0 +1,71 @@
+local globbing = require "luacheck.globbing"
+
+describe("globbing", function()
+   describe("match", function()
+      it("returns true on literal match", function()
+         assert.is_true(globbing.match("foo/bar", "foo/bar"))
+      end)
+
+      it("returns true on literal match after normalization", function()
+         assert.is_true(globbing.match("foo//bar/baz/..", "./foo/bar/"))
+      end)
+
+      it("returns false for on literal mismatch", function()
+         assert.is_false(globbing.match("foo/bar", "foo/baz"))
+      end)
+
+      it("accepts subdirectory matches", function()
+         assert.is_true(globbing.match("foo/bar", "foo/bar/baz"))
+      end)
+
+      it("understands wildcards", function()
+         assert.is_true(globbing.match("*", "foo"))
+         assert.is_true(globbing.match("foo/*r", "foo/bar"))
+         assert.is_true(globbing.match("foo/*r", "foo/bar/baz"))
+         assert.is_false(globbing.match("foo/*r", "foo/baz"))
+      end)
+
+      it("understands optional characters", function()
+         assert.is_false(globbing.match("?", "foo"))
+         assert.is_true(globbing.match("???", "foo"))
+         assert.is_true(globbing.match("????", "foo"))
+         assert.is_true(globbing.match("f?o/?a?", "foo/bar"))
+         assert.is_false(globbing.match("f?o/?a?", "foo/abc"))
+      end)
+
+      it("understands ranges and classes", function()
+         assert.is_true(globbing.match("[d-h]o[something]", "foo"))
+         assert.is_false(globbing.match("[d-h]o[somewhere]", "bar"))
+         assert.is_false(globbing.match("[.-h]o[i-z]", "bar"))
+      end)
+
+      it("accepts closing bracket as first class character", function()
+         assert.is_true(globbing.match("[]]", "]"))
+         assert.is_false(globbing.match("[]]", "["))
+         assert.is_true(globbing.match("[]foo][]foo][]foo]", "foo"))
+      end)
+
+      it("accepts dash as first or last class character", function()
+         assert.is_true(globbing.match("[-]", "-"))
+         assert.is_false(globbing.match("[-]", "+"))
+         assert.is_true(globbing.match("[---]", "-"))
+      end)
+
+      it("understands negation", function()
+         assert.is_true(globbing.match("[!foo][!bar][!baz]", "boo"))
+         assert.is_false(globbing.match("[!foo][!bar][!baz]", "far"))
+         assert.is_false(globbing.match("[!a-z]", "g"))
+      end)
+
+      it("understands recursive globbing using **", function()
+         assert.is_true(globbing.match("**/*.lua", "foo.lua"))
+         assert.is_true(globbing.match("**/*.lua", "foo/bar.lua"))
+         assert.is_false(globbing.match("foo/**/*.lua", "bar.lua"))
+         assert.is_false(globbing.match("foo/**/*.lua", "foo.lua"))
+         assert.is_true(globbing.match("foo/**/bar/*.lua", "foo/bar/baz.lua"))
+         assert.is_true(globbing.match("foo/**/bar/*.lua", "foo/foo2/foo3/bar/baz.lua"))
+         assert.is_false(globbing.match("foo/**/bar/*.lua", "foo/baz.lua"))
+         assert.is_false(globbing.match("foo/**/bar/*.lua", "bar/baz.lua"))
+      end)
+   end)
+end)