factor/basis/vocabs/metadata/resources/resources-tests.factor

! Copyright (C) 2010 Joe Groff.
! See http://factorcode.org/license.txt for BSD license.
USING: arrays globs sorting tools.test vocabs.metadata.resources ;
IN: vocabs.metadata.resources.tests

! match-pattern
{ { "hello.txt" } } [
    "*.txt" { "hello.txt" } match-pattern
] unit-test

[
    "*.txt" { "foo.bar" "foo.factor" } match-pattern
] [ resource-missing? ] must-fail-with

! match-patterns
{
    { "a.txt" "b.pdf" }
} [
    { "*.txt" "*.pdf" } { "a.txt" "b.pdf" "a" } match-patterns
] unit-test

! vocab-resource-files
{ { "bar" "bas" "foo" } }
[ "vocabs.metadata.resources.test.1" vocab-resource-files natural-sort ] unit-test

{ { "bar.wtf" "foo.wtf" } }
[ "vocabs.metadata.resources.test.2" vocab-resource-files natural-sort ] unit-test

{
    {
        "resource-dir"
        "resource-dir/bar"
        "resource-dir/bas"
        "resource-dir/bas/zang"
        "resource-dir/bas/zim"
        "resource-dir/foo"
    }
} [
    "vocabs.metadata.resources.test.3" vocab-resource-files natural-sort
] unit-test