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

Fixes

Slava Pestov 2008-03-20 17:38:39 -05:00
parent a2a81b3eaa
commit 6d434090e0
3 changed files with 9 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
core/io/io-tests.factor
View File

@ -28,15 +28,6 @@ IN: io.tests
! Make sure we use correct to_c_string form when writing ! Make sure we use correct to_c_string form when writing
[ ] [ "\0" write ] unit-test [ ] [ "\0" write ] unit-test
[ "" ] [ 0 read ] unit-test
! [ ] [ "123" write 9000 CHAR: x <string> write flush ] unit-test
[
"/core/io/test/binary.txt" <resource-reader>
[ 0.2 read ] with-stream
] must-fail
[ [
{ {
{ "It seems " CHAR: J } { "It seems " CHAR: J }
@ -58,3 +49,12 @@ IN: io.tests
10 [ 65536 read drop ] times 10 [ 65536 read drop ] times
] with-file-reader ] with-file-reader
] unit-test ] unit-test
! [ "" ] [ 0 read ] unit-test
! [ ] [ "123" write 9000 CHAR: x <string> write flush ] unit-test
! [
! "/core/io/test/binary.txt" <resource-reader>
! [ 0.2 read ] with-stream
! ] must-fail

2
extra/help/lint/lint.factor
View File

@ -39,8 +39,6 @@ IN: help.lint
{ {
$shuffle $shuffle
$values-x/y $values-x/y
$slot-reader
$slot-writer
$predicate $predicate
$class-description $class-description
$error-description $error-description

12
extra/help/markup/markup-tests.factor
View File

@ -4,18 +4,6 @@ IN: help.markup.tests
TUPLE: blahblah quux ; TUPLE: blahblah quux ;
: test-slot blahblah "slots" word-prop second ;
[
{ { "blahblah" { $instance blahblah } } { "quux" { $instance object } } }
] [
test-slot blahblah ($spec-reader-values)
] unit-test
[ ] [
test-slot blahblah $spec-reader-values
] unit-test
[ "an int" ] [ [ { "int" } $instance ] with-string-writer ] unit-test [ "an int" ] [ [ { "int" } $instance ] with-string-writer ] unit-test
[ ] [ \ blahblah-quux help ] unit-test [ ] [ \ blahblah-quux help ] unit-test