Skip to content

Commit af62d3b

Browse files
committed
TEST: fixed modules test (not using lit-words for type and name fields)
1 parent b4b1651 commit af62d3b

File tree

1 file changed

+9
-6
lines changed

1 file changed

+9
-6
lines changed

src/tests/units/module-test.r3

Lines changed: 9 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -5,10 +5,13 @@ Rebol [
55
Tabs: 4
66
Needs: quick-test
77
]
8+
system/options/quiet: false
9+
system/options/log/rebol: 4
810

911
~~~start-file~~~ "module!"
1012

1113
modules-dir: system/options/modules
14+
? modules-dir
1215

1316

1417
===start-group=== "module keywords"
@@ -181,8 +184,8 @@ modules-dir: system/options/modules
181184
;@@ https://github.com/Oldes/Rebol-issues/issues/923
182185
write modules-dir/mymodule.reb {
183186
Rebol [
184-
type: 'module
185-
name: 'mymodule
187+
type: module
188+
name: mymodule
186189
exports: [myfunc]
187190
]
188191
print "mymodule imported"
@@ -199,8 +202,8 @@ myfunc: func [arg [string!]][reverse arg]
199202
;;; This test would fail as the module needs itself! It should be detected, but it isn't yet.
200203
;; write %mymodule2.reb {
201204
;; Rebol [
202-
;; type: 'module
203-
;; name: 'mymodule2
205+
;; type: module
206+
;; name: mymodule2
204207
;; exports: [myfunc2]
205208
;; needs: [%mymodule2.reb]
206209
;; ]
@@ -313,7 +316,7 @@ probe all [
313316

314317
--test-- "import/version"
315318
;@@ https://github.com/Oldes/Rebol-issues/issues/1687
316-
m-1687: module [version: 1.0.0 name: 'm-1687][a: 1]
319+
m-1687: module [version: 1.0.0 name: m-1687][a: 1]
317320
--assert all [
318321
error? e: try [import/version (m-1687) 2.2.2]
319322
e/id = 'needs
@@ -347,7 +350,7 @@ probe all [
347350
;@@ https://github.com/Oldes/Rebol-issues/issues/1721
348351
unset in system/contexts/user 'issue-1721-a
349352
unset in system/contexts/user 'issue-1721-b
350-
import {rebol [type: 'module] issue-1721-a: 1 export issue-1721-b: 2}
353+
import {rebol [type: module] issue-1721-a: 1 export issue-1721-b: 2}
351354
--assert unset? :system/contexts/user/issue-1721-a
352355
--assert system/contexts/user/issue-1721-b = 2
353356

0 commit comments

Comments
 (0)