ideal • runtime • resources • test

class test resolver

class test store

extends base resource store

public test store(string path prefix, boolean is current)

super(path prefix, is current, is current)

override boolean exists(immutable list[string] path)

return false

override string read string(immutable list[string] path)

return "test"

override void write string(immutable list[string] path, string new value)

pass

override void make catalog(immutable list[string] path)

pass

static CURRENT : test store • new(resource util • CURRENT CATALOG, true) • top()

static ROOT : test store • new(resource util • ROOT CATALOG, false) • top()

testcase test file catalogs()

assert CURRENT • get id() • to string == "."

assert ROOT • get id() • to string == "/"

testcase test simple resolve()

foo : "foo"

assert CURRENT • resolve(foo) • to string == "foo"

assert ROOT • resolve(foo) • to string == "/foo"

testcase test resolve extension()

bar : "bar"

html : base extension • HTML

assert CURRENT • resolve(bar, html) • to string == "bar.html"

assert ROOT • resolve(bar, html) • to string == "/bar.html"

testcase test sub catalogs()

cat : CURRENT

dog : cat • resolve("dog")

assert dog • to string == "dog"

cat2 : dog • access catalog()

assert cat2 • get id() • to string == "dog"

dog2 : cat2 • resolve("Yoshka")

assert dog2 • to string == "dog/Yoshka"

testcase test root subdirs()

cat : ROOT

dog : cat • resolve("dog")

assert dog • to string == "/dog"

cat2 : dog • access catalog()

assert cat2 • get id() • to string == "/dog"

dog2 : cat2 • resolve("Yoshka")

assert dog2 • to string == "/dog/Yoshka"

testcase test multiple subdirs()

var foo : ROOT

var bar : foo • resolve("bar")

assert bar • to string == "/bar"

foo = bar • access catalog()

assert foo • get id() • to string == "/bar"

bar = foo • resolve("baz")

assert bar • to string == "/bar/baz"

foo = bar • access catalog()

bar = foo • resolve("quux")

assert bar • to string == "/bar/baz/quux"

foo = bar • access catalog()

bar = foo • resolve("")

assert bar • to string == "/bar/baz/quux"

bar = foo • resolve("./././.")

assert bar • to string == "/bar/baz/quux"

testcase test more subdir ops()

var foo : CURRENT

var bar : foo • resolve("foo/bar/././baz")

assert "foo/bar/baz" == bar • to string

foo = bar • access catalog()

bar = foo • resolve("..")

assert "foo/bar" == bar • to string

foo = bar • access catalog()

bar = foo • resolve("../..")

assert "." == bar • to string

foo = bar • access catalog()

bar = foo • resolve("..")

assert "." == bar • to string

testcase test parent catalog()

foo : CURRENT

var bar : foo • resolve("foo/bar/././baz")

assert "foo/bar/baz" == bar • to string

bar = bar • parent()

assert "foo/bar" == bar • to string

bar = bar • parent()

assert "foo" == bar • to string

bar = bar • parent()

assert "." == bar • to string

bar = bar • parent()

assert "." == bar • to string