From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Matt Wette Newsgroups: gmane.lisp.guile.bugs Subject: bug#30094: test script Date: Tue, 4 Sep 2018 18:35:21 -0700 Message-ID: References: <876086wvan.fsf@elephly.net> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 7bit X-Trace: blaine.gmane.org 1536111258 1825 195.159.176.226 (5 Sep 2018 01:34:18 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Wed, 5 Sep 2018 01:34:18 +0000 (UTC) User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:52.0) Gecko/20100101 Thunderbird/52.9.1 To: 30094@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Wed Sep 05 03:34:14 2018 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1fxMhx-0000KR-NU for guile-bugs@m.gmane.org; Wed, 05 Sep 2018 03:34:13 +0200 Original-Received: from localhost ([::1]:53346 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fxMk4-0006My-0w for guile-bugs@m.gmane.org; Tue, 04 Sep 2018 21:36:24 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:52812) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fxMju-0006MV-A5 for bug-guile@gnu.org; Tue, 04 Sep 2018 21:36:19 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fxMjj-0004Zj-Lb for bug-guile@gnu.org; Tue, 04 Sep 2018 21:36:08 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:41162) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1fxMjj-0004ZA-Dy for bug-guile@gnu.org; Tue, 04 Sep 2018 21:36:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1fxMjh-0005oq-Ia for bug-guile@gnu.org; Tue, 04 Sep 2018 21:36:03 -0400 X-Loop: help-debbugs@gnu.org In-Reply-To: <876086wvan.fsf@elephly.net> Resent-From: Matt Wette Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Wed, 05 Sep 2018 01:36:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 30094 X-GNU-PR-Package: guile X-GNU-PR-Keywords: Original-Received: via spool by 30094-submit@debbugs.gnu.org id=B30094.153611133222334 (code B ref 30094); Wed, 05 Sep 2018 01:36:01 +0000 Original-Received: (at 30094) by debbugs.gnu.org; 5 Sep 2018 01:35:32 +0000 Original-Received: from localhost ([127.0.0.1]:46180 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1fxMjE-0005oA-Ei for submit@debbugs.gnu.org; Tue, 04 Sep 2018 21:35:32 -0400 Original-Received: from mail-pg1-f170.google.com ([209.85.215.170]:36751) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1fxMjB-0005nw-TV for 30094@debbugs.gnu.org; Tue, 04 Sep 2018 21:35:30 -0400 Original-Received: by mail-pg1-f170.google.com with SMTP id d1-v6so2559454pgo.3 for <30094@debbugs.gnu.org>; Tue, 04 Sep 2018 18:35:29 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:subject:to:message-id:date:user-agent:mime-version :content-transfer-encoding:content-language; bh=+zQglOxhdjZah7U2gh1Fm0idIVHbk76fzxFaWAQ5yzM=; b=TwssboCukGbvx5sfP9uxJ4i9whZjg18m2wSu5TejqKYg7bp+eVCDW8py3fsSC+/TBd avA2GCusYAHKGyvrY2qOg5bkeyDuRzXpeuqdOl1JWLFINg4IyDi5mTVtXnQRZ14js+mZ 718bnygUIEdlRABwlqtnY3QhqvozIseZnkErLqDjtaxVdS12MyN0qQUOpHDVmRZvmzZn LuC3Umdc/UZTAh28mRYIApXNuXMwyicjyo6hRbuZKLDZSpeDYCKHPazckYuyMTKuUG2b mDJ9P6c3MRJraVaRYC0l+pXWmhAw9rpMfF4j4HyOVVCo+8bWTNUNtwkM4YeSYs7UVztB t0jg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:subject:to:message-id:date:user-agent :mime-version:content-transfer-encoding:content-language; bh=+zQglOxhdjZah7U2gh1Fm0idIVHbk76fzxFaWAQ5yzM=; b=iBLI9mkYr1SSS3xRlYkaW2smZ9vzz+YXSsaxBj/355Pew0EsxUERZ7W+L1OFPAFGu4 6VSVb5dp4tkQgVtRet1RbqO//HB4FvvUgBadiQk+Vg/xY41jPcey3RyQuo3ThmY3Dxft ZILXRa+kKbYHBCRVAEq6rcisCyEG5x5k9y63aJwUSPMkOQQBaKNYLQhWQZE8Q2hOVb8P SfhbKW7HFwRngzLjdZC4q95fkvf7WHM3uGU23rXyo4rqmB4IPk9qLrx//tc/Lyx3e5Hq 6AG8MdzRaru4cJ5x8DqciH3F7hbI7/2Q+8WQTB4LXV25Q37u8m3ZJwwGmOLdLVV7Cqzf DrDg== X-Gm-Message-State: APzg51COH7WaXx/GvkqHA657D697CpFHinPH3myQkGiZVy6h+MmBCxT3 ksX0teYjrlJTb68TY3m3iHFYDT4V X-Google-Smtp-Source: ANB0VdZyi0HLOqkokO4lGbgDgsP2bIqkaMM2ZcXQbrjdHcbxiYXVaIljiUjbqDehJ06NlDXKayG9Vw== X-Received: by 2002:a63:d857:: with SMTP id k23-v6mr34082309pgj.106.1536111323621; Tue, 04 Sep 2018 18:35:23 -0700 (PDT) Original-Received: from [192.168.2.183] (216-165-229-229.championbroadband.com. [216.165.229.229]) by smtp.gmail.com with ESMTPSA id f4-v6sm417876pfj.46.2018.09.04.18.35.22 for <30094@debbugs.gnu.org> (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Tue, 04 Sep 2018 18:35:23 -0700 (PDT) Content-Language: en-US X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 X-BeenThere: bug-guile@gnu.org List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Original-Sender: "bug-guile" Xref: news.gmane.org gmane.lisp.guile.bugs:9148 Archived-At: The following test script works with the 2.2.4 patch provided. elisp tests don't work well but I think that is elisp issue. This stuff works with my own developed. ;;; load-lang.test - -*- scheme -*- (define-module (test-suite test-load-lang) #:use-module (test-suite lib)) (define tmp-dir (getcwd)) (define (data-file-name filename) (in-vicinity tmp-dir filename)) (with-test-prefix "load/lang" (pass-if "using #lang" (let ((src-file (data-file-name "load1js"))) (with-output-to-file src-file (lambda () (display "#lang ecmascript\n") (display "function js_1pl(b) { return 1 + b; }\n"))) (load src-file) (delete-file src-file) (= (js_1pl 2) 3))) (pass-if "using dot-js" (let ((src-file (data-file-name "load2.js"))) (with-output-to-file src-file (lambda () (display "function js_2pl(b) { return 2 + b; }\n"))) (load src-file) (delete-file src-file) (= (js_2pl 2) 4))) ) ;; --- last line ---