This is a bunch of functions to mock core Emacs Lisp objects for testing purposes.
Make a fakir-file, a struct.
Mock the filesystem with the fakir-file object.
The Emacs Lisp file operations are flet'd so that they operate on the fakir-file.
(fakir-mock-file (//fakir-file// :filename "README" :directory "/home/emacs/fakir") (expand-file-name "~/fakir/README"))
The operations that are supported by the fleted functions are: `file-attributes', `file-exists-pand `expand-file-name. Others will be added as necessary.
Allow easier testing by mocking the process functions.
(fakir-mock-process (:elnode-http-params (:elnode-http-method "GET") (:elnode-http-query "a=10")) (should (equal 10 (elnode-http-param 't "a"))) )
(process-get anything :elnode-http-method)
to always return "GET".
`process-put' is also remapped, currently to swallow any setting.
`process-buffer' is also remapped, to deliver the value of the key :buffer if present and a dummy buffer otherwise.
We return what the body returned.
A very quick function to test mocking process macro.
Encode the time-str as an EmacsLisp time.