Skip to content

Commit 204500f

Browse files
committed
TEST: No /all refinement on load
related to: Oldes/Rebol-issues#20
1 parent 27f5d8e commit 204500f

File tree

2 files changed

+25
-0
lines changed

2 files changed

+25
-0
lines changed

src/tests/run-tests.r3

+1
Original file line numberDiff line numberDiff line change
@@ -10,6 +10,7 @@ dt [ ;- delta time
1010
;recycle/torture
1111
wrap load %units/mold-test.r3
1212
wrap load %units/lexer-test.r3
13+
wrap load %units/load-test.r3
1314
wrap load %units/evaluation-test.r3
1415
wrap load %units/enbase-test.r3
1516
wrap load %units/map-test.r3

src/tests/units/load-test.r3

+24
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,24 @@
1+
Rebol [
2+
Title: "Rebol loading test script"
3+
Author: "Peter W A Wood, Oldes"
4+
File: %load-test.r3
5+
Tabs: 4
6+
Needs: [%../quick-test-module.r3]
7+
Rights: "Copyright (C) 2011-2015 Red Foundation. All rights reserved."
8+
License: "BSD-3 - https://github.com/red/red/blob/origin/BSD-3-License.txt"
9+
]
10+
11+
~~~start-file~~~ "load"
12+
13+
===start-group=== "Load/all"
14+
--test-- "issue-20"
15+
;@@ https://github.com/Oldes/Rebol-issues/issues/20
16+
v: mold/all next "123"
17+
--assert block? v: load/all v
18+
--assert "23" = v/1
19+
--assert "123" = head v/1
20+
21+
===end-group===
22+
23+
~~~end-file~~~
24+

0 commit comments

Comments
 (0)