Branch: Tag:

1996-12-02

1996-12-02 07:02:57 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

tests for glob added

Rev: src/testsuite.in:1.11

1: - test_true([["$Id: testsuite.in,v 1.10 1996/11/25 21:30:39 hubbe Exp $"]]) + test_true([["$Id: testsuite.in,v 1.11 1996/12/02 07:02:57 hubbe Exp $"]])   test_any([[object(File) o=File(); return objectp(o);]],1)   test_any([[object o=Regexp("foo"); return objectp(o);]],1)   test_any([[object o=Regexp("foo"); return object_program(o);]],Regexp)
47:   test_true(glob("?o?","foo"))   test_true(glob("f*","foo"))   test_true(glob("*o","foo")) + test_true(glob("*<<<*","<<<")) + test_true(glob("*<<<*","<<<foo"))   test_false(glob("*f","foo"))   test_false(glob("o*","foo"))   test_false(glob("?f?","foo"))