Add test for #18 and #24

inst/tests/modules/a.r

@@ -18,3 +18,5 @@ inc = function ()
 
 `+.string` = function (a, b)
     paste(a, b, sep = '')
+
+which = function () '/a'

inst/tests/modules/nested/a/__init__.r

@@ -1 +1,3 @@
 cat('a/__init__.r\n')
+
+which = function () 'nested/a'

inst/tests/modules/nested/relative_a.r

@@ -0,0 +1,6 @@
+a = import('a')
+local_a = import('./a')
+
+a_which = function () a$which()
+
+local_a_which = function () local_a$which()

inst/tests/test-relative-import.r

@@ -0,0 +1,27 @@
+context('Relative imports test')
+
+setup = function () {
+    thispath = file.path(getwd(), 'modules/nested')
+    prev = getOption('import.path')
+    if (! identical(prev, thispath))
+        previous_import_path <<- prev
+    options(import.path = thispath)
+}
+
+teardown = function () {
+    options(import.path = previous_import_path)
+}
+
+test_that('Imports are absolute by default', {
+    on.exit(teardown())
+    setup()
+    ra = import('relative_a')
+    expect_that(ra$a_which(), equals('/a'))
+})
+
+test_that('Relative import are always local', {
+    on.exit(teardown())
+    setup()
+    ra = import('relative_a')
+    expect_that(ra$local_a_which(), equals('nested/a'))
+})