guix - Wojtek's customized Guix

diff options

Diffstat (limited to 'COPYING')

0 files changed, 0 insertions, 0 deletions

uted in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. (define-module (test-base16) #:use-module (guix base16) #:use-module (srfi srfi-1) #:use-module (srfi srfi-64) #:use-module (rnrs bytevectors)) (test-begin "base16") (test-assert "bytevector->base16-string->bytevector" (every (lambda (bv) (equal? (base16-string->bytevector (bytevector->base16-string bv)) bv)) (map string->utf8 '("" "f" "fo" "foo" "foob" "fooba" "foobar")))) (test-end "base16")


context:
space:
mode: