globs: adding tests for char-range.

diff --git a/basis/globs/globs-tests.factor b/basis/globs/globs-tests.factor
index f2ad950cbc3ef149eaea88b0e43b3f234c212505..a8b81f6d8ec6c2f5a4a674217f4504c5f0cdda4c 100755 (executable)
--- a/basis/globs/globs-tests.factor
+++ b/basis/globs/globs-tests.factor
@@ -18,6 +18,8 @@ IN: globs.tests
 { f } [ "foo." "*.{xml,txt}" glob-matches? ] unit-test
 { t } [ "foo." "*.{,xml,txt}" glob-matches? ] unit-test
 { t } [ "foo.{" "*.{" glob-matches? ] unit-test
+{ t } [ "foo" "[a-z]oo" glob-matches? ] unit-test
+{ f } [ "foo" "[g-z]oo" glob-matches? ] unit-test
 
 { f } [ "foo" "bar" append-path "*" glob-matches? ] unit-test
 { t } [ "foo" "bar" append-path "*" "*" append-path glob-matches? ] unit-test