tweaked test file

marcomaggi · Jun 15, 2017 · 483ba3a · 483ba3a
1 parent 08aaf9e
commit 483ba3a
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/tests/test-vicare-posix-basic.sps b/tests/test-vicare-posix-basic.sps
@@ -8,7 +8,7 @@
 ;;;
 ;;;
 ;;;
-;;;Copyright (c) 2010-2015 Marco Maggi <marco.maggi-ipsu@poste.it>
+;;;Copyright (c) 2010-2015, 2017 Marco Maggi <marco.maggi-ipsu@poste.it>
 ;;;
 ;;;This program is free software:  you can redistribute it and/or modify
 ;;;it under the terms of the  GNU General Public License as published by
@@ -2289,8 +2289,11 @@
       => "/bin/ls"))
    (else
     (check	;first char is slash
-	(px.find-executable-as-string "/usr/bin/ls")
-      => "/usr/bin/ls")))
+	(or (let ((X (px.find-executable-as-string "/usr/bin/ls")))
+	      (and X (string=? X "/usr/bin/ls")))
+	    (let ((X (px.find-executable-as-string "/bin/ls")))
+	      (and X (string=? X "/bin/ls"))))
+      => #t)))
 
   (check
       (string? (px.find-executable-as-string "ls"))