ryuslash/emacs-config
1
0
Fork 0
Code Activity

Fix tests by including ‘subr-x’

Browse source 
‘string-empty-p’ is defined in ‘subr-x’ and this library isn’t loaded into Emacs
by default.
This commit is contained in:
Tom Willemse 2020-04-08 23:51:59 -07:00
parent dcffe90e3c
commit 0d8c294865
5 changed files with 22 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
test/integration/oni-company.bats
View file

@ -1,7 +1,8 @@
#!/usr/bin/env bats #!/usr/bin/env bats
@test "Opening Emacs loads oni-company" { @test "Loading company loads oni-company" {
run emacs -batch -l package -f package-initialize \ run emacs -batch -l package -f package-initialize \
-l company \
-eval "(prin1 (featurep 'oni-company))" -eval "(prin1 (featurep 'oni-company))"
echo "$output" echo "$output"
@ -9,8 +10,9 @@
[[ "$output" == *"t" ]] [[ "$output" == *"t" ]]
} }
@test "Opening Emacs diminishes company-mode" { @test "Loading company diminishes company-mode" {
run emacs -batch -l package -f package-initialize \ run emacs -batch -l package -f package-initialize -l subr-x \
-l company \
-eval "(prin1 (string-empty-p (car (alist-get 'company-mode minor-mode-alist))))" -eval "(prin1 (string-empty-p (car (alist-get 'company-mode minor-mode-alist))))"
echo "$output" echo "$output"
@ -19,7 +21,8 @@
} }
@test "Reloading company diminishes company-mode" { @test "Reloading company diminishes company-mode" {
run emacs -batch -l package -f package-initialize \ run emacs -batch -l package -f package-initialize -l subr-x \
-l company \
-eval "(load-library \"company\")" \ -eval "(load-library \"company\")" \
-eval "(prin1 (string-empty-p (car (alist-get 'company-mode minor-mode-alist))))" -eval "(prin1 (string-empty-p (car (alist-get 'company-mode minor-mode-alist))))"
@ -28,8 +31,9 @@
[[ "$output" == *"t" ]] [[ "$output" == *"t" ]]
} }
@test "Opening Emacs diminishes company-posframe-mode" { @test "Loading company-posframe diminishes company-posframe-mode" {
run emacs -batch -l package -f package-initialize \ run emacs -batch -l package -f package-initialize -l subr-x \
-l company-posframe \
-eval "(prin1 (string-empty-p (car (alist-get 'company-posframe-mode minor-mode-alist))))" -eval "(prin1 (string-empty-p (car (alist-get 'company-posframe-mode minor-mode-alist))))"
echo "$output" echo "$output"
@ -38,7 +42,8 @@
} }
@test "Reloading company-posframe diminishes company-posframe-mode" { @test "Reloading company-posframe diminishes company-posframe-mode" {
run emacs -batch -l package -f package-initialize \ run emacs -batch -l package -f package-initialize -l subr-x \
-l company-posframe \
-eval "(load-library \"company-posframe\")" \ -eval "(load-library \"company-posframe\")" \
-eval "(prin1 (string-empty-p (car (alist-get 'company-posframe-mode minor-mode-alist))))" -eval "(prin1 (string-empty-p (car (alist-get 'company-posframe-mode minor-mode-alist))))"

4
test/integration/oni-counsel.bats
View file

@ -11,7 +11,7 @@
} }
@test "Loading counsel diminishes counsel-mode" { @test "Loading counsel diminishes counsel-mode" {
run emacs -batch -l package -f package-initialize \ run emacs -batch -l package -f package-initialize -l subr-x \
-l counsel \ -l counsel \
-eval "(prin1 (string-empty-p (car (alist-get 'counsel-mode minor-mode-alist))))" -eval "(prin1 (string-empty-p (car (alist-get 'counsel-mode minor-mode-alist))))"
@ -21,7 +21,7 @@
} }
@test "Reloading counsel diminishes counsel-mode" { @test "Reloading counsel diminishes counsel-mode" {
run emacs -batch -l package -f package-initialize \ run emacs -batch -l package -f package-initialize -l subr-x \
-l counsel \ -l counsel \
-eval "(load-library \"counsel\")" \ -eval "(load-library \"counsel\")" \
-eval "(prin1 (string-empty-p (car (alist-get 'counsel-mode minor-mode-alist))))" -eval "(prin1 (string-empty-p (car (alist-get 'counsel-mode minor-mode-alist))))"

8
test/integration/oni-ivy.bats
View file

@ -10,7 +10,7 @@
} }
@test "Opening emacs diminishes ivy-mode" { @test "Opening emacs diminishes ivy-mode" {
run emacs -batch -l package -f package-initialize \ run emacs -batch -l package -f package-initialize -l subr-x \
-eval "(prin1 (string-empty-p (car (alist-get 'ivy-mode minor-mode-alist))))" -eval "(prin1 (string-empty-p (car (alist-get 'ivy-mode minor-mode-alist))))"
echo "$output" echo "$output"
@ -19,7 +19,7 @@
} }
@test "Reloading ivy diminishes ivy-mode" { @test "Reloading ivy diminishes ivy-mode" {
run emacs -batch -l package -f package-initialize \ run emacs -batch -l package -f package-initialize -l subr-x \
-eval "(load-library \"ivy\")" \ -eval "(load-library \"ivy\")" \
-eval "(prin1 (string-empty-p (car (alist-get 'ivy-mode minor-mode-alist))))" -eval "(prin1 (string-empty-p (car (alist-get 'ivy-mode minor-mode-alist))))"
@ -29,7 +29,7 @@
} }
@test "Opening emacs diminishes ivy-posframe-mode" { @test "Opening emacs diminishes ivy-posframe-mode" {
run emacs -batch -l package -f package-initialize \ run emacs -batch -l package -f package-initialize -l subr-x \
-eval "(prin1 (string-empty-p (car (alist-get 'ivy-posframe-mode minor-mode-alist))))" -eval "(prin1 (string-empty-p (car (alist-get 'ivy-posframe-mode minor-mode-alist))))"
echo "$output" echo "$output"
@ -38,7 +38,7 @@
} }
@test "Reloading ivy-posframe diminishes ivy-posframe-mode" { @test "Reloading ivy-posframe diminishes ivy-posframe-mode" {
run emacs -batch -l package -f package-initialize \ run emacs -batch -l package -f package-initialize -l subr-x \
-eval "(load-library \"ivy-posframe\")" \ -eval "(load-library \"ivy-posframe\")" \
-eval "(prin1 (string-empty-p (car (alist-get 'ivy-posframe-mode minor-mode-alist))))" -eval "(prin1 (string-empty-p (car (alist-get 'ivy-posframe-mode minor-mode-alist))))"

4
test/integration/oni-paredit.bats
View file

@ -11,7 +11,7 @@
} }
@test "Loading paredit diminishes paredit-mode" { @test "Loading paredit diminishes paredit-mode" {
run emacs -batch -l package -f package-initialize \ run emacs -batch -l package -f package-initialize -l subr-x \
-l paredit \ -l paredit \
-eval "(prin1 (string-empty-p (car (alist-get 'paredit-mode minor-mode-alist))))" -eval "(prin1 (string-empty-p (car (alist-get 'paredit-mode minor-mode-alist))))"
@ -21,7 +21,7 @@
} }
@test "Reloading paredit diminishes paredit-mode" { @test "Reloading paredit diminishes paredit-mode" {
run emacs -batch -l package -f package-initialize \ run emacs -batch -l package -f package-initialize -l subr-x \
-l paredit \ -l paredit \
-eval "(load-library \"paredit\")" \ -eval "(load-library \"paredit\")" \
-eval "(prin1 (string-empty-p (car (alist-get 'paredit-mode minor-mode-alist))))" -eval "(prin1 (string-empty-p (car (alist-get 'paredit-mode minor-mode-alist))))"

4
test/integration/oni-yasnippet.bats
View file

@ -10,7 +10,7 @@
} }
@test "Opening Emacs diminishes yas-minor-mode" { @test "Opening Emacs diminishes yas-minor-mode" {
run emacs -batch -l package -f package-initialize \ run emacs -batch -l package -f package-initialize -l subr-x \
-eval "(prin1 (string-empty-p (car (alist-get 'yas-minor-mode minor-mode-alist))))" -eval "(prin1 (string-empty-p (car (alist-get 'yas-minor-mode minor-mode-alist))))"
echo "$output" echo "$output"
@ -19,7 +19,7 @@
} }
@test "Reloading yasnippet diminishes yas-minor-mode" { @test "Reloading yasnippet diminishes yas-minor-mode" {
run emacs -batch -l package -f package-initialize \ run emacs -batch -l package -f package-initialize -l subr-x \
-eval "(load-library \"yasnippet\")" \ -eval "(load-library \"yasnippet\")" \
-eval "(prin1 (string-empty-p (car (alist-get 'yas-minor-mode minor-mode-alist))))" -eval "(prin1 (string-empty-p (car (alist-get 'yas-minor-mode minor-mode-alist))))"