Changeset 30529 in project


Ignore:
Timestamp:
03/07/14 05:42:14 (7 years ago)
Author:
Ivan Raikov
Message:

byte-blob: remove temporary file created by unit tests

Location:
release/4/byte-blob/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/byte-blob/trunk/byte-blob.scm

    r29440 r30529  
    22;;  Utility procedures for manipulating blobs as byte sequences.
    33;;
    4 ;;   Copyright 2009-2013 Ivan Raikov and the Okinawa Institute of
     4;;   Copyright 2009-2014 Ivan Raikov and the Okinawa Institute of
    55;;   Science and Technology.
    66;;
  • release/4/byte-blob/trunk/byte-blob.setup

    r29439 r30529  
    1717
    1818  ;; Assoc list with properties for your extension:
    19   '((version 1.15)
     19  '((version 1.16)
    2020    ))
    2121
  • release/4/byte-blob/trunk/tests/run.scm

    r29440 r30529  
    188188              (test-assert
    189189               (sprintf "byte-blob-write" )
    190                (byte-blob-write out-port
    191                                 (byte-blob-intersperse
    192                                  (byte-blob-map
    193                                   (lambda (x) (* 2 x))
    194                                   (byte-blob-cons
    195                                    5 (byte-blob-reverse (byte-blob-append a b)))) 9)))
     190               (byte-blob-write
     191                out-port
     192                (byte-blob-intersperse
     193                 (byte-blob-map
     194                  (lambda (x) (* 2 x))
     195                  (byte-blob-cons
     196                   5 (byte-blob-reverse (byte-blob-append a b)))) 9)))
    196197
    197198              (close-output-port out-port)
     
    212213               (byte-blob->list
    213214                (file->byte-blob temp-path)))
     215
     216              (delete-file temp-path)
    214217               
    215218              )
Note: See TracChangeset for help on using the changeset viewer.