]> gitweb.factorcode.org Git - factor.git/commitdiff
checksums.multi: making these checked $examples.
authorJohn Benediktsson <mrjbq7@gmail.com>
Mon, 5 Mar 2018 01:49:52 +0000 (17:49 -0800)
committerJohn Benediktsson <mrjbq7@gmail.com>
Mon, 5 Mar 2018 01:49:52 +0000 (17:49 -0800)
extra/checksums/multi/multi-docs.factor

index 26ea2abad84d63f1c1d4a4a9bbb6dd65d9c12b63..c029e813a8b9efe9a3126c3d77108d9a371093bf 100644 (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 ."
     "{