blob: 1515815cdeb90950aaddc67e6bd098442c8606c9 (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
;;; Python on Guile --- Python implementation atop Guile
;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net>
;;;
;;; This file is part of Python on Guile.
;;;
;;; This library is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU Lesser General Public License as
;;; published by the Free Software Foundation, either version 3 of the
;;; License, or (at your option) any later version.
;;;
;;; This library is distributed 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
;;; Lesser General Public License for more details.
;;;
;;; You should have received a copy of the GNU Lesser General Public
;;; License along with this program. If not, see
;;; <http://www.gnu.org/licenses/>.
(define-module (test-completion)
#:use-module (language python completer)
#:use-module (language python spec)
#:use-module (ice-9 readline)
#:use-module (srfi srfi-64))
(test-begin "completion")
(test-equal "completion for os.conc<TAB> works"
"os.concat "
(let ((pyeval (@@ (language python spec) python-eval))
(port (mkstemp! "/tmp/pguile-readline.XXXXXX")))
(with-output-to-port port
(lambda _ (format #t "os.conc ")))
(let ((file (port-filename port)))
(close-port port)
(parameterize ((current-language python))
(pyeval "import os\n")
(with-readline-completion-function
(complete-python pyeval)
(lambda ()
(with-input-from-file file
(lambda ()
(set-readline-input-port! (current-input-port))
(readline)))))))))
(test-end "completion")
|