From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Andrew Whatson Newsgroups: gmane.lisp.guile.devel Subject: [PATCH 1/2] Add tests for get-bytevector-some! Date: Fri, 22 Jan 2021 20:10:09 +1000 Message-ID: <20210122101010.938743-1-whatson@gmail.com> Mime-Version: 1.0 Content-Transfer-Encoding: 8bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="19106"; mail-complaints-to="usenet@ciao.gmane.io" Cc: Andrew Whatson To: guile-devel@gnu.org Original-X-From: guile-devel-bounces+guile-devel=m.gmane-mx.org@gnu.org Fri Jan 22 15:13:39 2021 Return-path: Envelope-to: guile-devel@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1l2xBz-0004rZ-Oj for guile-devel@m.gmane-mx.org; Fri, 22 Jan 2021 15:13:39 +0100 Original-Received: from localhost ([::1]:48006 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1l2xBy-0007nv-Lq for guile-devel@m.gmane-mx.org; Fri, 22 Jan 2021 09:13:38 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:48048) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1l2tOq-00022R-VB for guile-devel@gnu.org; Fri, 22 Jan 2021 05:10:40 -0500 Original-Received: from mail-pl1-x636.google.com ([2607:f8b0:4864:20::636]:46605) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1l2tOo-0007gC-2I for guile-devel@gnu.org; Fri, 22 Jan 2021 05:10:40 -0500 Original-Received: by mail-pl1-x636.google.com with SMTP id u11so2890153plg.13 for ; Fri, 22 Jan 2021 02:10:36 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:cc:subject:date:message-id:mime-version :content-transfer-encoding; bh=9HWpJXhreHwTDpZanPzOQOBzgNJRXyDa/fbM3QX8Uqc=; b=nNyUiva0wdtEn1O6Lm1BjzRahqU9p5D2dmYEtDRcg3TXygtMqLwG24LcGH87UcfG3K IWT7HZwkgC4jb1iOvISkfTtvmknFErEitE4hi4pxJtyfON4+8QBHoixH3CL1TH0ANe0Z 7A19c5qrhP5K6zmpF4iaToPp7DAtv8NCE+TuPsSRSkNm0dBCZiKvHF6MxYBFvcz8ghGQ UN+nC3ZfqTBIXNgTlAoscpGSc0AT0ddLb9bMMUpsO72iAvlhVcAppuwiJmx8rVJDwKU/ 2I7EsiNZ9JJ2UFM8+sNu38v1f9v6OJSug3hNdbLbIprCYxDRquNghnKVgaRSQEchDwhG mnOA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:date:message-id:mime-version :content-transfer-encoding; bh=9HWpJXhreHwTDpZanPzOQOBzgNJRXyDa/fbM3QX8Uqc=; b=gVO2+3V33osLqUGFwU4g+J44hTiElYhEX0n5h4S5A1vgez/nSRVRVDlcx5/uJKRceo EQr+/cL0E950OPmw2Ej5jS9uRd9lM/MCYtq4otZsG3SKr0TYtH8hOGFjAo3lk+YxlxUP sw20ZabQFtBLjiOib1LUla1qePTPsY0My05sWzmpKE8xNfhE7PVgmY7G67zXbTiAA97x PF0dgCCfLJmv3hO4403gQ/6HALHV8Ltovj3s0eR1RbG8T6Xnx5eDhWAgiFHU1FdXF4A5 QWRbnOl2lsPR1schVx8idbT49MVU1O1S1QCA05V3BW9Si8zqrQM8OMFNRG1Nx0FIVwnC 9KGA== X-Gm-Message-State: AOAM530+hOKks3BBG9jNUe3JJTBRzUgDnUahSnnTR1X2H9rCqabjJPqa YCS2+HkCmkwKmW9FUunJ4X3P6fe1dJQ= X-Google-Smtp-Source: ABdhPJz0ernyn5dIW9H5g0apHOlBs2mI/KDK9u1/2BISclyc8MClaDgLlOAX8J9ceE4ekEyBX9MypA== X-Received: by 2002:a17:90b:368f:: with SMTP id mj15mr4412569pjb.201.1611310235287; Fri, 22 Jan 2021 02:10:35 -0800 (PST) Original-Received: from muon.localdomain ([210.185.78.208]) by smtp.gmail.com with ESMTPSA id s2sm8328962pfd.203.2021.01.22.02.10.33 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Fri, 22 Jan 2021 02:10:34 -0800 (PST) X-Mailer: git-send-email 2.30.0 Received-SPF: pass client-ip=2607:f8b0:4864:20::636; envelope-from=whatson@gmail.com; helo=mail-pl1-x636.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Mailman-Approved-At: Fri, 22 Jan 2021 09:11:58 -0500 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane-mx.org@gnu.org Original-Sender: "guile-devel" Xref: news.gmane.io gmane.lisp.guile.devel:20645 Archived-At: * test-suite/tests/r6rs-ports.test (get-bytevector-n! [short]): add (get-bytevector-n! [long]): add --- test-suite/tests/r6rs-ports.test | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/test-suite/tests/r6rs-ports.test b/test-suite/tests/r6rs-ports.test index 4d1981df2..c42783465 100644 --- a/test-suite/tests/r6rs-ports.test +++ b/test-suite/tests/r6rs-ports.test @@ -23,6 +23,7 @@ #:use-module (srfi srfi-1) #:use-module (srfi srfi-11) #:use-module (ice-9 match) + #:use-module ((ice-9 binary-ports) #:select (get-bytevector-some!)) #:use-module (rnrs io ports) #:use-module (rnrs io simple) #:use-module (rnrs exceptions) @@ -183,6 +184,25 @@ (equal? (bytevector->u8-list bv) (map char->integer (string->list str)))))) + (pass-if "get-bytevector-some! [short]" + (let* ((port (open-input-string "GNU Guile")) + (bv (make-bytevector 4)) + (read (get-bytevector-some! port bv 0 4))) + (and (equal? read 4) + (equal? (bytevector->u8-list bv) + (map char->integer (string->list "GNU ")))))) + + (pass-if "get-bytevector-some! [long]" + (let* ((str "GNU Guile") + (port (open-input-string str)) + (bv (make-bytevector 256)) + (read (get-bytevector-some! port bv 0 256))) + (and (equal? read (string-length str)) + (equal? (map (lambda (i) + (bytevector-u8-ref bv i)) + (iota read)) + (map char->integer (string->list str)))))) + (pass-if "get-bytevector-all" (let* ((str "GNU Guile") (index 0) -- 2.30.0