core: fix unit tests
This commit is contained in:
parent
d14d58d990
commit
a14060a228
|
@ -924,7 +924,7 @@
|
||||||
(mocker-mock-default-record-cls 'mocker-stub-record))
|
(mocker-mock-default-record-cls 'mocker-stub-record))
|
||||||
(mocker-let
|
(mocker-let
|
||||||
((file-exists-p (f) ((:output t :occur 2)))
|
((file-exists-p (f) ((:output t :occur 2)))
|
||||||
(load (f) ((:output nil :occur 1))))
|
(load (f &optional noerr nomsg) ((:output nil :occur 1))))
|
||||||
(should (equal (cfgl-layer "layer"
|
(should (equal (cfgl-layer "layer"
|
||||||
:name 'layer
|
:name 'layer
|
||||||
:disabled-for nil
|
:disabled-for nil
|
||||||
|
@ -943,7 +943,7 @@
|
||||||
(mocker-mock-default-record-cls 'mocker-stub-record))
|
(mocker-mock-default-record-cls 'mocker-stub-record))
|
||||||
(mocker-let
|
(mocker-let
|
||||||
((file-exists-p (f) ((:output t :occur 2)))
|
((file-exists-p (f) ((:output t :occur 2)))
|
||||||
(load (f) ((:output nil :occur 1))))
|
(load (f &optional noerr nomsg) ((:output nil :occur 1))))
|
||||||
(should (equal (cfgl-layer "layer"
|
(should (equal (cfgl-layer "layer"
|
||||||
:name 'layer
|
:name 'layer
|
||||||
:disabled-for nil
|
:disabled-for nil
|
||||||
|
@ -976,7 +976,7 @@
|
||||||
(mocker-mock-default-record-cls 'mocker-stub-record))
|
(mocker-mock-default-record-cls 'mocker-stub-record))
|
||||||
(mocker-let
|
(mocker-let
|
||||||
((file-exists-p (f) ((:output t :occur 2)))
|
((file-exists-p (f) ((:output t :occur 2)))
|
||||||
(load (f) ((:output nil :occur 1))))
|
(load (f &optional noerr nomsg) ((:output nil :occur 1))))
|
||||||
(should (equal (cfgl-layer "layer"
|
(should (equal (cfgl-layer "layer"
|
||||||
:name 'layer
|
:name 'layer
|
||||||
:disabled-for '(pkg8 pkg9)
|
:disabled-for '(pkg8 pkg9)
|
||||||
|
@ -1019,7 +1019,7 @@
|
||||||
(mocker-mock-default-record-cls 'mocker-stub-record))
|
(mocker-mock-default-record-cls 'mocker-stub-record))
|
||||||
(mocker-let
|
(mocker-let
|
||||||
((file-exists-p (f) ((:output t :occur 2)))
|
((file-exists-p (f) ((:output t :occur 2)))
|
||||||
(load (f) ((:output nil :occur 1))))
|
(load (f &optional noerr nomsg) ((:output nil :occur 1))))
|
||||||
(should (equal (cfgl-layer "layer"
|
(should (equal (cfgl-layer "layer"
|
||||||
:name 'layer
|
:name 'layer
|
||||||
:disabled-for '(pkg8 pkg9)
|
:disabled-for '(pkg8 pkg9)
|
||||||
|
|
Loading…
Reference in New Issue