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
"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
{ $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 ."
"{
B{
@ -25,9 +26,9 @@ $nl
}
}" }
$nl
{ $unchecked-example "USING: checksums checksums.common checksums.md5 checksums.sha"
"io io.encodings.binary namespaces ;"
"\"LICENSE.txt\" binary ["
{ $example "USING: checksums checksums.common checksums.md5 "
"checksums.multi checksums.sha io io.encodings.binary namespaces ;"
"\"resource:LICENSE.txt\" binary ["
" input-stream get { md5 sha1 } <multi-checksum> checksum-stream"
"] with-file-reader ."
"{