56 lines
1.9 KiB
Text
56 lines
1.9 KiB
Text
|
- wc pads the result with blanks, trim its output
|
||
|
|
- use "seq 3" rather than assuming /proc is available
|
||
|
|
- fix nonsensical crypt invocation, use examples from manpage
|
||
|
|
|
||
|
|
Index: test-suite/tests/posix.test
|
||
|
|
--- test-suite/tests/posix.test.orig
|
||
|
|
+++ test-suite/tests/posix.test
|
||
|
|
@@ -411,7 +411,7 @@
|
||
|
|
(display "Hello world.\n" (cdr a+b))
|
||
|
|
(close-port (cdr a+b))
|
||
|
|
|
||
|
|
- (let ((str (get-string-all (car c+d))))
|
||
|
|
+ (let ((str (string-trim (get-string-all (car c+d)))))
|
||
|
|
(close-port (car c+d))
|
||
|
|
(waitpid pid)
|
||
|
|
str)))
|
||
|
|
@@ -428,18 +428,16 @@
|
||
|
|
(waitpid pid)
|
||
|
|
str)))
|
||
|
|
|
||
|
|
- (pass-if-equal "ls /proc/self/fd"
|
||
|
|
- "0\n1\n2\n3\n" ;fourth FD is for /proc/self/fd
|
||
|
|
- (if (file-exists? "/proc/self/fd") ;Linux
|
||
|
|
- (let* ((input+output (pipe))
|
||
|
|
- (pid (spawn "ls" '("ls" "/proc/self/fd")
|
||
|
|
- #:output (cdr input+output))))
|
||
|
|
- (close-port (cdr input+output))
|
||
|
|
- (let ((str (get-string-all (car input+output))))
|
||
|
|
- (close-port (car input+output))
|
||
|
|
- (waitpid pid)
|
||
|
|
- str))
|
||
|
|
- (throw 'unresolved)))
|
||
|
|
+ (pass-if-equal "seq 3"
|
||
|
|
+ "1\n2\n3\n"
|
||
|
|
+ (let* ((input+output (pipe))
|
||
|
|
+ (pid (spawn "seq" '("seq" "3")
|
||
|
|
+ #:output (cdr input+output))))
|
||
|
|
+ (close-port (cdr input+output))
|
||
|
|
+ (let ((str (get-string-all (car input+output))))
|
||
|
|
+ (close-port (car input+output))
|
||
|
|
+ (waitpid pid)
|
||
|
|
+ str)))
|
||
|
|
|
||
|
|
(pass-if-equal "file not found"
|
||
|
|
ENOENT
|
||
|
|
@@ -459,7 +457,8 @@
|
||
|
|
(pass-if "basic usage"
|
||
|
|
(if (not (defined? 'crypt))
|
||
|
|
(throw 'unsupported)
|
||
|
|
- (string? (crypt "pass" "abcdefg"))))
|
||
|
|
+ (string? (crypt "OrpheanBeholderScryDoubt"
|
||
|
|
+ "$2b$12$FPWWO2RJ3CK4FINTw0Hi8OiPKJcX653gzSS.jqltHFMxyDmmQ0Hqq"))))
|
||
|
|
|
||
|
|
(pass-if "crypt invalid salt on glibc"
|
||
|
|
(begin
|