checksums.multi: making these checked $examples.

windows-high-dpi
John Benediktsson 2018-03-04 17:49:52 -08:00
parent 8dece633e6
commit 39602240da
1 changed files with 5 additions and 4 deletions

View File

@ -13,7 +13,8 @@ $nl
$nl $nl
"The " { $link checksum-bytes } " and the " { $link checksum-stream } " methods encapsulate the above protocol, including instantiation and disposal of the " { $link multi-state } " tuple." "The " { $link checksum-bytes } " and the " { $link checksum-stream } " methods encapsulate the above protocol, including instantiation and disposal of the " { $link multi-state } " tuple."
{ $examples { $examples
{ $unchecked-example "USING: byte-arrays checksums checksums.md5 checksums.sha ;" { $example "USING: byte-arrays checksums checksums.md5 "
" checksums.multi checksums.sha ;"
"\"test\" >byte-array { md5 sha1 } <multi-checksum> checksum-bytes ." "\"test\" >byte-array { md5 sha1 } <multi-checksum> checksum-bytes ."
"{ "{
B{ B{
@ -25,9 +26,9 @@ $nl
} }
}" } }" }
$nl $nl
{ $unchecked-example "USING: checksums checksums.common checksums.md5 checksums.sha" { $example "USING: checksums checksums.common checksums.md5 "
"io io.encodings.binary namespaces ;" "checksums.multi checksums.sha io io.encodings.binary namespaces ;"
"\"LICENSE.txt\" binary [" "\"resource:LICENSE.txt\" binary ["
" input-stream get { md5 sha1 } <multi-checksum> checksum-stream" " input-stream get { md5 sha1 } <multi-checksum> checksum-stream"
"] with-file-reader ." "] with-file-reader ."
"{ "{