steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

lists.lazy.tests: plugs file descriptor leak

db4
Björn Lindqvist 2014-09-24 22:14:46 +02:00 committed by John Benediktsson
parent 5fe8dd7604
commit 239deaeaaa
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/lists/lazy/lazy-tests.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2006 Matthew Willis and Chris Double. ! Copyright (C) 2006 Matthew Willis and Chris Double.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: io io.encodings.utf8 io.files kernel lists lists.lazy USING: destructors io io.encodings.utf8 io.files kernel lists
math sequences tools.test ; lists.lazy math sequences tools.test ;
IN: lists.lazy.tests IN: lists.lazy.tests
[ { 1 2 3 4 } ] [ [ { 1 2 3 4 } ] [
@ -41,5 +41,13 @@ IN: lists.lazy.tests
[ { 1 2 3 } ] [ { 1 2 3 4 5 } >list [ 2 > ] luntil list>array ] unit-test [ { 1 2 3 } ] [ { 1 2 3 4 5 } >list [ 2 > ] luntil list>array ] unit-test
[ ] [ "resource:license.txt" utf8 <file-reader> llines list>array drop ] unit-test [ ] [
[ ] [ "resource:license.txt" utf8 <file-reader> lcontents list>array drop ] unit-test "resource:license.txt" utf8 <file-reader> [
llines list>array drop
] with-disposal
] unit-test
[ ] [
"resource:license.txt" utf8 <file-reader> [
lcontents list>array drop
] with-disposal
] unit-test