Fixes
parent
a2a81b3eaa
commit
6d434090e0
|
@ -28,15 +28,6 @@ IN: io.tests
|
|||
! Make sure we use correct to_c_string form when writing
|
||||
[ ] [ "\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 }
|
||||
|
@ -58,3 +49,12 @@ IN: io.tests
|
|||
10 [ 65536 read drop ] times
|
||||
] with-file-reader
|
||||
] 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
|
||||
|
|
|
@ -39,8 +39,6 @@ IN: help.lint
|
|||
{
|
||||
$shuffle
|
||||
$values-x/y
|
||||
$slot-reader
|
||||
$slot-writer
|
||||
$predicate
|
||||
$class-description
|
||||
$error-description
|
||||
|
|
|
@ -4,18 +4,6 @@ IN: help.markup.tests
|
|||
|
||||
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
|
||||
|
||||
[ ] [ \ blahblah-quux help ] unit-test
|
||||
|
|
Loading…
Reference in New Issue