diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-03-31 07:17:06 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-03-31 07:17:06 -0700 |
| commit | bae5a63ed738cae08c056bdfa272130029fa7ca5 (patch) | |
| tree | dc0d26c3dba1130d112cc60cf799c8b5dddf6766 /tests/019/data | |
| parent | 4700005a4302a1eed2d9e5bc7f1668b2621ff1f0 (diff) | |
| download | txr-bae5a63ed738cae08c056bdfa272130029fa7ca5.tar.gz txr-bae5a63ed738cae08c056bdfa272130029fa7ca5.tar.bz2 txr-bae5a63ed738cae08c056bdfa272130029fa7ca5.zip | |
Add test for loading issue.
This test currently fails because when we execute an
unsuffixed file like test/019/a, which exists,
another file is executed instead, like test/019/a.txr.
* tests/019/data/a,
* tests/019/data/a.tl,
* tests/019/data/a.tlo,
* tests/019/data/a.txr
* tests/019/data/b.tl
* tests/019/data/b.tlo
* tests/019/data/b.txr
* tests/019/data/c.tl
* tests/019/data/c.txr
* tests/019/load-search.tl: New files.
Diffstat (limited to 'tests/019/data')
| -rwxr-xr-x | tests/019/data/a | 3 | ||||
| -rwxr-xr-x | tests/019/data/a.tl | 1 | ||||
| -rwxr-xr-x | tests/019/data/a.tlo | 2 | ||||
| -rwxr-xr-x | tests/019/data/a.txr | 3 | ||||
| -rwxr-xr-x | tests/019/data/b.tl | 1 | ||||
| -rwxr-xr-x | tests/019/data/b.tlo | 2 | ||||
| -rwxr-xr-x | tests/019/data/b.txr | 3 | ||||
| -rwxr-xr-x | tests/019/data/c.tl | 1 | ||||
| -rwxr-xr-x | tests/019/data/c.txr | 3 |
9 files changed, 19 insertions, 0 deletions
diff --git a/tests/019/data/a b/tests/019/data/a new file mode 100755 index 00000000..8fbed4f6 --- /dev/null +++ b/tests/019/data/a @@ -0,0 +1,3 @@ +@(output) +a +@(end) diff --git a/tests/019/data/a.tl b/tests/019/data/a.tl new file mode 100755 index 00000000..6f25fed5 --- /dev/null +++ b/tests/019/data/a.tl @@ -0,0 +1 @@ +(put-line "a.tl") diff --git a/tests/019/data/a.tlo b/tests/019/data/a.tlo new file mode 100755 index 00000000..40f39e81 --- /dev/null +++ b/tests/019/data/a.tlo @@ -0,0 +1,2 @@ +(7 0 nil) +((2 3 #b'0200012000000004 02000010' #("a.tlo") #(usr:put-line))) diff --git a/tests/019/data/a.txr b/tests/019/data/a.txr new file mode 100755 index 00000000..ceab552d --- /dev/null +++ b/tests/019/data/a.txr @@ -0,0 +1,3 @@ +@(output) +a.txr +@(end) diff --git a/tests/019/data/b.tl b/tests/019/data/b.tl new file mode 100755 index 00000000..46c6dd30 --- /dev/null +++ b/tests/019/data/b.tl @@ -0,0 +1 @@ +(put-line "b.tl") diff --git a/tests/019/data/b.tlo b/tests/019/data/b.tlo new file mode 100755 index 00000000..2f432257 --- /dev/null +++ b/tests/019/data/b.tlo @@ -0,0 +1,2 @@ +(7 0 nil) +((2 3 #b'0200012000000004 02000010' #("b.tlo") #(usr:put-line))) diff --git a/tests/019/data/b.txr b/tests/019/data/b.txr new file mode 100755 index 00000000..0b8883e0 --- /dev/null +++ b/tests/019/data/b.txr @@ -0,0 +1,3 @@ +@(output) +b.txr +@(end) diff --git a/tests/019/data/c.tl b/tests/019/data/c.tl new file mode 100755 index 00000000..b9e018ea --- /dev/null +++ b/tests/019/data/c.tl @@ -0,0 +1 @@ +(put-line "c.tl") diff --git a/tests/019/data/c.txr b/tests/019/data/c.txr new file mode 100755 index 00000000..19995e8a --- /dev/null +++ b/tests/019/data/c.txr @@ -0,0 +1,3 @@ +@(output) +c.txr +@(end) |