diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-10-29 15:09:55 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-10-29 15:09:55 +0300 |
| commit | f382a496acb1f5ab61843e2a0ec8b6d84a9dbfcf (patch) | |
| tree | e17902dd34c0d7c6519f73fac8c6ac693518d173 | |
| parent | tests/server.scm: Update copyright dates (diff) | |
| download | guile-ssh-f382a496acb1f5ab61843e2a0ec8b6d84a9dbfcf.tar.gz | |
tests/session.scm: Use (tests common)
| -rw-r--r-- | tests/session.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/tests/session.scm b/tests/session.scm index 3b5ffa2..ceba11f 100644 --- a/tests/session.scm +++ b/tests/session.scm @@ -1,6 +1,6 @@ ;;; session.scm -- Testing of session procedures without a connection. -;; Copyright (C) 2014 Artyom V. Poptsov <poptsov.artyom@gmail.com> +;; Copyright (C) 2014, 2015 Artyom V. Poptsov <poptsov.artyom@gmail.com> ;; ;; This file is a part of Guile-SSH. ;; @@ -17,14 +17,15 @@ ;; You should have received a copy of the GNU General Public License ;; along with Guile-SSH. If not, see <http://www.gnu.org/licenses/>. +(add-to-load-path (getenv "abs_top_srcdir")) + (use-modules (srfi srfi-64) - (ssh session)) + (ssh session) + ;; Helper procedures + (tests common)) (test-begin "session") -(define %topdir (getenv "abs_top_srcdir")) -(define %rsakey (format #f "~a/tests/rsakey" %topdir)) - (test-assert "%make-session" (%make-session)) |