From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Olivier Dion Newsgroups: gmane.lisp.guile.user Subject: [RFC PATCH 2/2] Add tests for strings interpolation reader extension. Date: Sat, 10 Dec 2022 17:17:24 -0500 Message-ID: <20221210221724.23998-3-olivier.dion@polymtl.ca> References: <20221210221724.23998-1-olivier.dion@polymtl.ca> Mime-Version: 1.0 Content-Transfer-Encoding: 8bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="37791"; mail-complaints-to="usenet@ciao.gmane.io" Cc: rekado@elephly.net, Olivier dion To: guile-user@gnu.org Original-X-From: guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org Sat Dec 10 23:18:42 2022 Return-path: Envelope-to: guile-user@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 1p48B7-0009dm-8h for guile-user@m.gmane-mx.org; Sat, 10 Dec 2022 23:18:41 +0100 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1p48AS-0007ge-SU; Sat, 10 Dec 2022 17:18:00 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1p48AR-0007fS-A5 for guile-user@gnu.org; Sat, 10 Dec 2022 17:17:59 -0500 Original-Received: from smtp.polymtl.ca ([132.207.4.11]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1p48AO-0000WV-Hg for guile-user@gnu.org; Sat, 10 Dec 2022 17:17:59 -0500 Original-Received: from laura.ht.home (modemcable094.169-200-24.mc.videotron.ca [24.200.169.94]) (authenticated bits=0) by smtp.polymtl.ca (8.14.7/8.14.7) with ESMTP id 2BAMHc9V021592 (version=TLSv1/SSLv3 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128 verify=NOT); Sat, 10 Dec 2022 17:17:48 -0500 DKIM-Filter: OpenDKIM Filter v2.11.0 smtp.polymtl.ca 2BAMHc9V021592 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=polymtl.ca; s=default; t=1670710669; bh=uStwjep5Vx62igJBucfw6HrzHmIGH1FYq476I37PNYg=; h=From:To:Cc:Subject:Date:In-Reply-To:References:From; b=cDwooUivYxSM0DUxVNI66fLOuDV1qW5weKYSYs5iCofOX9A6Pvvf+zAFDKHY6M6Wf rmWzwpgZLAO7tH66ErIFyRXpQj3FGjoZ6UTt4qrW+YJuafzqYGx2nwyuuGeH7P6nKT KIrxMCCUaZrw19VimMSzKPo14dVBpFpr3h+uNVAA= X-Mailer: git-send-email 2.38.1 In-Reply-To: <20221210221724.23998-1-olivier.dion@polymtl.ca> X-Poly-FromMTA: (modemcable094.169-200-24.mc.videotron.ca [24.200.169.94]) at Sat, 10 Dec 2022 22:17:38 +0000 Received-SPF: pass client-ip=132.207.4.11; envelope-from=olivier.dion@polymtl.ca; helo=smtp.polymtl.ca X-Spam_score_int: -43 X-Spam_score: -4.4 X-Spam_bar: ---- X-Spam_report: (-4.4 / 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, RCVD_IN_DNSWL_MED=-2.3, RCVD_IN_MSPIKE_H3=0.001, RCVD_IN_MSPIKE_WL=0.001, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org Original-Sender: guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.lisp.guile.user:18771 Archived-At: From: Olivier dion * test-suite/tests/reader.test: Add the tests. --- test-suite/tests/reader.test | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/test-suite/tests/reader.test b/test-suite/tests/reader.test index 27daf6106..fb31575dd 100644 --- a/test-suite/tests/reader.test +++ b/test-suite/tests/reader.test @@ -200,7 +200,16 @@ (pass-if-equal '(#f) (read-string "(#FALSE)")) (pass-if-equal '(#f) (read-string "(#FaLsE)")) - (pass-if (eof-object? (read-string "#!!#")))) + (pass-if (eof-object? (read-string "#!!#"))) + + (pass-if-equal "raw" (read-string "#\"raw\"")) + (pass-if-equal "@raw" (read-string "#\"@@raw\"")) + (pass-if-equal "@raw" (read-string "#\"@@raw@\"")) + (pass-if-equal "@raw@" (read-string "#\"@@raw@@\"")) + (pass-if-equal '(format #f "true=~a" (or #f #t)) + (read-string "#\"true=@(or #f #t)\"")) + (pass-if-equal '(format #f "@@~a" '@) + (read-string "#\"@@@@@'@\""))) -- 2.38.1