mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 04:15:36 +02:00
Code Activity

Merge from stable-2.2

Browse source
This commit is contained in:
Andy Wingo 2019-08-02 14:31:46 +02:00
commit 0a78d39b77
2 changed files with 20 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test-suite/tests/filesys.test
View file

@ -1,6 +1,6 @@
;;;; filesys.test --- test file system functions -*- scheme -*-
;;;;
;;;; Copyright (C) 2004, 2006, 2013 Free Software Foundation, Inc.
;;;; Copyright (C) 2004, 2006, 2013, 2019 Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@ -222,6 +222,12 @@
(cons (join-thread child) out)))
(throw 'unresolved)))))
(with-test-prefix "basename"
(pass-if-equal "/" "/" (basename "/"))
(pass-if-equal "//" "/" (basename "//"))
(pass-if-equal "a/b/c" "c" (basename "a/b/c")))
(delete-file (test-file))
(when (file-exists? (test-symlink))
(delete-file (test-symlink)))